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.
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
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 SubExcel ne connait pas cette instruction ; quel est l'équivalent pour Excel de CurrentProject.Path ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part CurrentProject.Path & "\Nomdu Fichier"
Merci d'avance.
Partager