Spécifier une adresse relative de répertoire

Résolu/Fermé
nchristedem Messages postés 23 Date d'inscription mercredi 29 avril 2009 Statut Membre Dernière intervention 12 décembre 2009 - 26 mai 2009 à 11:40
nchristedem Messages postés 23 Date d'inscription mercredi 29 avril 2009 Statut Membre Dernière intervention 12 décembre 2009 - 2 juin 2009 à 15:40
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

Bonjour

Utilise ThisWorkbook.path
2
williom Messages postés 230 Date d'inscription dimanche 3 octobre 2004 Statut Membre Dernière intervention 2 juillet 2009 51
26 mai 2009 à 11:45
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 mercredi 29 avril 2009 Statut Membre Dernière intervention 12 décembre 2009 4
2 juin 2009 à 15:40
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