Bonjour,

J'ai créé un fichier modèle (format .xlt) qui contient un certain nombre de modules écrits en VB. Le dernier module est la procédure de sauvegarde sous un nouveau nom après les manipulations et calculs effectués.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Enregistrer()
On Error GoTo fin
ActiveWorkbook.SaveAs Filename:="NouveauFichier.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
fin:
End Sub
Je souhaite que "NouveauFichier.xls" soit dans le même répertoire que le fichier modèle quel que soit le support (clef USB par exemple, ou utilisation du modèle sur un autre PC après copie) ; pour ce genre de procédure en VB Access j'utilise
Code : Sélectionner tout - Visualiser dans une fenêtre à part
CurrentProject.Path & "\Nomdu Fichier"
Excel ne connait pas cette instruction ; quel est l'équivalent pour Excel de CurrentProject.Path ?

Merci d'avance.