Macro "Enregistrer sous" avec chemin prédéfini

Question

Bonjour à tous, 

Je met en place un classeur Excel pour le travail que je dois correctement automatiser.

J'ai créé plusieurs boutons, dont un qui est sensé ouvrir la fenêtre "enregistrer sous" au bon chemin.

J'ai essayé de mettre dans la macro 

 Application.Dialogs(xlDialogSaveAs).Show ("C:\fakepath\Dossier\Nomdufichier")

Mais ça n'a fait qu'ouvrir la fenêtre "Enregistrer sous" avec "Nomdufichier" en nom prédéfini (jusqu'ici très bien) SAUF que je suis positionné sur le Bureau, au lieu du dossier espéré...


J'aimerai donc savoir que faire pour que la fenêtre me propose directement d'enregistrer dans mon Dossier.

Merci d'avance,

François

WeaponEDGE · Answer

Bonjour,

Essaye un comme ça

Sub Enreg()
    Chemin = "C:\fakepath\Dossier\Nomdufichier.xls"
    ActiveWorkbook.SaveAs (Chemin)
End Sub

Macro "Enregistrer sous" avec chemin prédéfini

1 réponse

Votre réponse

Discussions similaires

Newsletters