Spécifier une adresse relative de répertoire

Résolu
nchristedem Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   -  
nchristedem Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   -
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"
A voir également:

3 réponses

le père
 
Bonjour

Utilise ThisWorkbook.path
2
williom Messages postés 230 Date d'inscription   Statut Membre Dernière intervention   51
 
Bonjour,

En VB6, c'est App.path...
Apparemment en VBA c'est comme çà : Application.CurrentProject.Path (mais je n'en suis pas sur)
0
nchristedem Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   4
 
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) .
0