Microsoft 365 Comment enregistrer un fichier avec un nom variable et refaire appel à ce fichier plus tard dans la macro

Carine35

XLDnaute Nouveau
Bonjour,

Je souhaite pouvoir commencer la macro en l'enregistrant de manière automatique dans un chemin et non de dossier bien précis, mais que le choix du nom du fichier ce fasse par l'opérateur à chaque utilisation de la macro:

Voici le code que j'ai établi:
Dim Chemin As String
Dim Fichier As String

Chemin = "Y:\14-\20\ENR"
Fichier = ".xlsm"

Fichier = Application.GetSaveAsFilename(Fichier, "Fichiers Excel (*.xlsm), *.xlsm")
ActiveWorkbook.SaveAs Fichier


La boite de dialogue ne s'ouvre pas sur le chemin que j'indique.

Ensuite, dans la macro que j'ai crée je fait appel à un autre fichier et je ne sais pas comment revenir au premier fichier contenant la macro l'ayant enregistrer sous un autre nom variable?

Merci d'avance pour votre aide
 

job75

XLDnaute Barbatruc
Bonjour Carine35,

Pour que le dossier actif soit celui de Chemin ajoutez :
VB:
ChDir Chemin
Le fichier de la macro c'est ThisWorkbook, pour y revenir il faut fermer le fichier qui a été ouvert par l'instruction Workbooks.Open.

A+
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 885
Membres
101 830
dernier inscrit
sonia poulaert