[VBA] Insertion code par fichier texte et caractères accentués

En utilisant un objet ADODB.stream, ajouter pour cela la référence à "Microsoft ActiveX Data Object " version 2.5 ou supérieure.

' Ajouter la référence Microsoft ActiveX Data Objects 2.5 ou +
Dim stream As New ADODB.stream
stream.Charset = "UTF-8"
stream.Open
stream.LoadFromFile "c:\tmp\testUTF8.txt"
MsgBox stream.ReadText
stream.Close

Sub Ajout_Code_Depuis_Fichier_INV()
NbLigne = 0
IndexFichier = FreeFile()
Open "I:\Informatique\0 - Sauvegardes Programmes Office\Excel\Code_Feuille_INV.txt" For Input As #IndexFichier
While Not EOF(IndexFichier) '
    Line Input #IndexFichier, Ligne_Active
    NbLigne = NbLigne + 1
    ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule.InsertLines NbLigne, Ligne_Active
Wend
End Sub

Sub EssaidecodTxt()
Dim stream As New ADODB.stream
stream.Charset = "UTF-8"
stream.Open
stream.LoadFromFile "C:\Users\PC_PAPA\Desktop\Code_Feuille_INV.txt"
MsgBox stream.ReadText
stream.Close
End Sub

Sub EssaidecodTxt()
Dim stream As New ADODB.stream   ' Faire le Dim camme d'hab.

' A mettre là vous vous voulez récupérer le texte'
stream.Charset = "UTF-8"
stream.Open
stream.LoadFromFile "C:\Users\PC_PAPA\Desktop\Code_Feuille_INV.txt"


stream.ReadText contient le texte avec caractères accentués

'A mettre après le traitement du texte.
stream.Close
End Sub