Discussion :

[greg2]

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.

[ouskel'n'or]

Essaie avec curdir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomRep = CurDir

A+

[ouskel'n'or]

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 ...
C'est pas méchant...

A+

[SilkyRoad]

bonsoir Greg2, bonsoir Ouskel'n'or

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Path

cordialement
michel

[greg2]

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.

[Megaxel]

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

[ouskel'n'or]

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

A+

[SfJ5Rpw8]

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

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 ...

[Megaxel]

Allo? Greg2 !!!
Alors, le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Workbook.Path

, il te convient?

[greg2]

Ca semble marcher


Et super les Cours Excel c'est top

Merci.

[Megaxel]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sigma17]

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.
Cordialement

[DVLOPE]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tu as oublié de définir file_name !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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