hhhh

Sub ImporterIdFluxDepuisDernierDossier()


    Dim basePath As String

    Dim lastFolder As String

    Dim fso As Object, folder As Object, subFolder As Object

    Dim newestDate As Date

    Dim xmlFile As String

    Dim xmlDoc As Object

    Dim idFluxValue As String

    

    ' Dossier de base

    basePath = "C:\Users\A447HW\AppData\Local\SuiviProd\AXA\"

    

    ' Création FileSystemObject

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set folder = fso.GetFolder(basePath)

    

    newestDate = 0

    lastFolder = ""

    

    ' Trouver le dernier sous-dossier créé

    For Each subFolder In folder.SubFolders

        If subFolder.DateCreated > newestDate Then

            newestDate = subFolder.DateCreated

            lastFolder = subFolder.Path

        End If

    Next subFolder

    

    If lastFolder = "" Then

        MsgBox "Aucun sous-dossier trouvé dans : " & basePath, vbExclamation

        Exit Sub

    End If

    

    ' Chercher le fichier XML dans le dernier dossier

    xmlFile = Dir(lastFolder & "\AXA_FluxCourriers_RTI_*.xml")

    

    If xmlFile = "" Then

        MsgBox "Aucun fichier 'AXA_FluxCourriers_RTI_*.xml' trouvé dans : " & lastFolder, vbExclamation

        Exit Sub

    End If

    

    ' Charger XML

    Set xmlDoc = CreateObject("MSXML2.DOMDocument")

    xmlDoc.async = False

    xmlDoc.Load lastFolder & "\" & xmlFile

    

    ' Extraire la valeur <idFlux>

    If Not xmlDoc Is Nothing Then

        On Error Resume Next

        idFluxValue = xmlDoc.SelectSingleNode("//idFlux").Text

        On Error GoTo 0

    End If

    

    If idFluxValue = "" Then

        MsgBox "Balise <idFlux> introuvable dans le fichier : " & xmlFile, vbExclamation

        Exit Sub

    End If

    

    ' Mettre la valeur dans C5 de OLD Maquette

    Sheets("OLD Maquette").Range("C5").Value = idFluxValue

    

    MsgBox "Import terminé : " & idFluxValue, vbInformation


End Sub


Popular posts from this blog

Privacy Policy Speedy Runner

  🔒 Privacy Policy for Speedy Runner This Privacy Policy (the "Policy") governs the privacy practices of Mobavia ("we," "us," or "our") regarding your use of the mobile game application Speedy Runner (the "Game" or "App"). We are committed to protecting the privacy of our users. This Policy explains how we collect, use, and disclose information from our users. 1. Information We Collect We do not directly collect any Personally Identifiable Information (PII) about you through the Game. PII includes information like your name, address, email, or telephone number. However, we may utilize third-party services that automatically collect non-personal information to provide essential services, analytics, and advertising. A. Information Collected Automatically (Non-Personal) Third-party services integrated into the Game may collect the following types of information: Device Information: Device type, operating system version, devi...
Read more

PRIVACY POLICY - Best 40 Hair Salon Girl Games

Privacy Policy Privacy Policy This privacy policy applies to the Best 50 Girl Games - Play Games for Girls app (hereby referred to as "Application") for mobile devices that was created by Haddameddo (hereby referred to as "Service Provider") as a Free service. This service is intended for use "AS IS". Information Collection and Use The Application collects information when you download and use it. This information may include information such as Your device's Internet Protocol address (e.g. IP address) The pages of the Application that you visit, the time and date of your visit, the time spent on those pages The time spent on the Application The operating system you use on your mobile device The Application does not gather precise information about the location of your mobile device. The Application collects your device's location, which helps the Service Provider determine your approximate geog...
Read more