[VBA Excel] Recupérer le répertoire du fichier .xls courrant

Bonjour,

A partir d’une Macro dans un fichier .xls, je voudrais récupérer le chemin du répertoire dans lequel le fichier .xls est stocké pour pouvoir y sauvegarder une feuille en .csv (à côté).
Je pourrais sauvegarder mon .csv dans le répertoire « .\ » mais pour que ça marche je suis obligé de sauvegarder mon .xls qui contient la macro avant (apparemment, pour Excel, le répertoire courrant n’est pas celui d’où vient le fichier tant qu’il ne l’a pas sauvegardé).

Comment faire ?

Merci.

Essaie avec curdir

Code:

---

NomRep = CurDir

---

A+

Citation:

---

apparemment, pour Excel, le répertoire courrant n’est pas celui d’où vient le fichier tant qu’il ne l’a pas sauvegardé

---

J'ignore si c'est bien ce que tu veux dire mais... effectivement, avant d'avoir enregistré un fichier, le fichier ne sait pas où il est ... :wink:
C'est pas méchant...

A+

bonsoir Greg2, bonsoir Ouskel'n'or

s'il s'agit de recuperer le repertoire du classeur contenant la macro , j'utiliserais

Code:

---

ThisWorkbook.Path

---

cordialement
michel

Avec CurDir j'ai le même problème, il me revoit quelque chose comme "C:\...\mes documents"

Je pensais qu'Excel était capable de savoir d'où venait le fichier qu'il vient d'ouvrir (et donc qui existait déjà avant).

Je voulais éviter de sauvegarder inutilement "à la main" mon fichier à chaque fois, uniquement pour que ma macro fonctionne.

Moi, je ferais ce qu'a proposé Silky, parce que c'est ce que je fais en général...
:D

Effectivement, CurDir ne marche que si le fichier est actif.

A+

Curdir ne renvoi pas le chemin du fichier Excel ouvert... mais le chemin courant ..

Citation:

---

Envoyé par Aide en ligne VbA

CurDir, fonction


Renvoie une valeur de type Variant (String) indiquant le chemin en cours.

Syntaxe

CurDir[(drive)]

L'argument facultatif drive est une expression de chaîne désignant un lecteur existant. Si aucun lecteur n'est indiqué ou si l'argument drive est une chaîne de longueur nulle (""), la fonction CurDir renvoie le chemin du lecteur courant. Sur le Macintosh, la fonction CurDir ne tient pas compte du lecteur spécifié dans l'argument drive et renvoie le chemin d'accès du lecteur courant.

---

les fonctions ChDir et ChDrive permettent de changer de répertoire ou de disque courant ... :roll: :wink:

Allo? Greg2 !!!
Alors, le code:

Code:

---

1 2	Workbook.Path

---

, il te convient?

Ca semble marcher :)


Et super les Cours Excel c'est top :P

Merci.

Avec le tag "Résolu" et tout et tout!
Ça va faire plaisir à Théocourant...
:D

5 années et demi se sont écoulées, mais j'aimerai ajouter un petit commentaire.
Pour ouvrir un fichier, j'ai dû ajouter le "\" à la fin du chemin récupéré à l'aide ThisWorkbook.path et l'extension (si nécessaire).

Exemple :

Code:

---

1 2 3 4 5 6

Dim Path_name As String Dim File_name As String Dim Complete_File_name As String   Path_name = ThisWorkbook.Path Complete_File_name = Path_name & "\" & File_name & ".xlsx"

---

Un grand merci à ce topic :mrgreen:

Bonsoir la communauté, cela fait un bon moment que je suis sur un projet où j'utilisais à plusieurs reprise les chemins d'accès pour exécuter du code spécifique à des classeurs excel.je me disais que plus tard je chercherai à écrire une fonction afin récupérer automatiquement ces chemins mais voilà que le forum illumine ma nuit vient par la découverte de thisworkbook.path.comme quoi la nuit peut vraiment porter conseil,merci à tous.:ccool:
Cordialement

Citation:

---

Envoyé par latex_man

5 années et demi se sont écoulées, mais j'aimerai ajouter un petit commentaire.
Pour ouvrir un fichier, j'ai dû ajouter le "\" à la fin du chemin récupéré à l'aide ThisWorkbook.path et l'extension (si nécessaire).

Exemple :

Code:

---

1 2 3 4 5 6

Dim Path_name As String Dim File_name As String Dim Complete_File_name As String   Path_name = ThisWorkbook.Path Complete_File_name = Path_name & "\" & File_name & ".xlsx"

---

Un grand merci à ce topic :mrgreen:

---

Tu as oublié de définir file_name !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Path_name As String Dim File_name As String Dim Complete_File_name As String     Sub outhé()   File_name = ActiveWorkbook.Name Path_name = ThisWorkbook.Path Complete_File_name = Path_name & "\" & File_name   End Sub

---