CreateTextFile ciblage

[lolonene]

Bonjour à tous,

J'utilise l'exemple si dessous, trouvé dans l'aide VBA d'Excel pour créer un fichier txt externe.

Sub CreateAfile
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\fichiertest.txt", True)
a.WriteLine("Ceci est un test.")
a.Close
End Sub

ça fonctionne très bien, mais je voudrait pouvoir ne pas indiquer le chemin d'enregistrement de mon fichier (ici à la racine du disque c), mais que le fichier txt s'enregistre dans le même répertoire que le fichier xls. Et ce quelque soit l'endroit ou je copie mon fichier sur le disque.

L'un de vous a t-il une idée ?

J'ai essayé CreateTextFile("\fichiertest.txt", True)
et
CreateTextFile("fichiertest.txt", True)

sans succès

Merci d'avance

 

[wilfried_42]

Re : CreateTextFile ciblage

bonjour lolonene

essaie ceci : chemin = thisworkbook.path
Set a = fs.CreateTextFile( chemin & "\fichiertest.txt", True)

 

[lolonene]

Re : CreateTextFile ciblage

ça fonctionne, formidable

merci