Bonjour,
Je m'arrache les cheveux avec ce codes. Je n'arrive pas à trouver de solutions. Si quelqu'un pouvait me mettre sur la voie se serait génial, merci de votre aide :
Public Function ReadFile(sFileName) As String
Dim fso As Object, fFile As Object
Dim sTemp As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set fFile = fso.OpenTextFile(sFileName, 1, False)
sTemp = fFile.ReadAll
fFile.Close
Set fFile = Nothing
ReadFile = sTemp
End Function