[VBA] Problème d'encodage après avoir récupéré les données d'un fichier xml

Question

Bonjour,
J'ai récupéré les données d'un fichier XML avec le code suivant :

Private Sub CommandButton2_Click()

Dim fichier As String
fichier = "\\ap.cdc.fr\racinedfs\SERVICES\DSI\6-DRS\SDSI64DRS\SGI643\Application OCAPI\05 - Projets\2020 - CANSSM - imputation PROJ00570\FicherInsertTest.xml"

If fichier <> "" Then
Close #1
        Open fichier For Input As #1

            Dim i As Long
            Dim lineFromFile As String
            Dim lineItems As Variant 'array of string
            Dim colonne As Integer
            Dim sDecoded As String
            i = 1

            Feuil14.Cells.Clear

            Do Until EOF(1) 'loop jusqu'à la fin du fichier
                Line Input #1, lineFromFile 'Lire le fichier ligne par ligne
                lineItems = Split(lineFromFile, ",")
                Feuil14.Range("A" & i) = lineItems(0)
                i = i + 1
            Loop
        Close #1
    End If

End Sub

Tout fonctionne comme je veux, mis à part que l'encodage n'est pas bon :

J'ai vu plusieurs solutions sur internet, notamment avec la création d'un objet, mais je n'ai pas su l'adapter à mon code.
J'ai aussi trouvé la fonction Strconv, mais elle ne répond pas à mon problème...

Pouvez-vous m'aider svp ?

Merci.

GVIALLES · Answer

Si ton problème est toujours d'actualité, peux-tu joindre le fichier 'FicherInsertTest.xml' ...