Spécifier une adresse relative de répertoire Résolu

Question

Bonjour,
J'ai un programme en VBA (en excel) qui crée un fichier txt, entre autre. Jusqu'ici, je spécifie
Set fichier = objet.CreateTextFile("C:Users\User\Burea... True)
et il me crée le fichier Result.txt au bureau. Je voudrais maintenant qu'il puisse créer ce fichier dans le même répertoire où se trouve le fichier Excel, afin que je ne sois pas obligé de spécifier à nouveau l'emplacement, quand je change de machine. En bref une adresse relative. Comment fait-on cela?
Le code
Set fichier = objet.CreateTextFile(".\Result.txt", True)
me le met dans "Mes documents"

le père · Accepted Answer

Bonjour

Utilise ThisWorkbook.path

williom · Answer

Bonjour,

En VB6, c'est App.path...
Apparemment en VBA c'est comme çà : Application.CurrentProject.Path  (mais je n'en suis pas sur)

nchristedem · Answer

Merci le père.
Je ne connaissais pas cette fonction. Elle m'a aidé à résoudre mon problème. 
Set fichier = objet.CreateTextFile(ThisWorkbook.Path & "\Nom_du_fichier.txt", True) .

Spécifier une adresse relative de répertoire

3 réponses

Votre réponse

Discussions similaires

Newsletters