récupération le chemin d'accès d'un fichier source

[Mouchty85]

bonjour,

je vous explique mon soucis, j'ai un fichier Excel intitulé modèle qui est une base vierge de mon fichier.
quand j'ouvre mon fichier modèle, je souhaiterai qu'il enregistre le fichier dans le même endroit que le fichier modèle mais avec un nom précis par exemple fichier 2010. comment faire. je souhaiterai récupérer ce chemin d'accès pour le mettre dans la cellule A1 de la feuille 1.

Merci par avance de votre

 

[Etienne2323]

Re : récupération le chemin d'accès d'un fichier source

Salut Mouchty85,
tout d'abord, vous n'avez pas besoin de récupérer le chemin dans une cellule pour procéder à l'enregistrement.

Vous pourriez utiliser quelque chose comme ceci :

Dim Mon_Fichier As String, Le_Nom As String

Le_Nom = "Fichier 2010"
Mon_Fichier = ThisWorkbook.Path & "\" & Le_Nom
ActiveWorkbook.SaveAs Filename:=Mon_Fichier

Par contre, si vous tenez absoluement à récupérer dans la cellule A1, alors utilisez ceci :

Cells(1,1).Value = ThisWorkbook.Path

Bonne continuité,

Cordialement,

Étienne