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

[Carine35]

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]

Bonjour Carine35,

Pour que le dossier actif soit celui de Chemin ajoutez :

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+