Chemin d'acces introuvables

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

bonjour,

Par défaut VBA recherche ton fichier dans le répertoire courant donc

sFileName doit spécifier non seulement le nom mais également le chemin du fichier si celui-ci est différent du "ActiveWorkbook.Path"

A+

Bonjour Galopin,

Merci de ta réponse, elle m'a beaucoup aidé.

A bientôt.

axel.

Rechercher des sujets similaires à "chemin acces introuvables"