XL 2019 macro pour un bouton avec lien "enregistrer sous"

[THIERRY59214]

Bonjour
Nouveau sur le forum, je cherche a ajouter a mon classeur excel un bouton qui envoi la fonction enregistrer sous un dossier spécifique
merci de votre aide.

 

[vgendron]

Bonjour

va voir du coté de "saveas"

 

[patricktoulon]

bonjour
penser a la fonction GetsavefileName qui avec le initialfilename permet douvrir une dialog save As dans le dossier que l'on veut

Sub reg()
    Dim fname As Variant
    
    'si on veut juste un dossier en particulier
    'directiondebase = "C:\Users\patricktoulon\Desktop\mondossier"
    
    'si on veut un dossier en particulier et un nom par defaut
    ' exemple
    nom = ThisWorkbook.Name & "-copie_" & Format(Date, "dd-mm-yyyy") & ".xlsm"
    directiondebase = "C:\Users\patricktoulon\Desktop\mondossier\" & nom
    
    'ouverture du dialog
    fname = Application.GetSaveAsFilename(InitialFileName:=directiondebase, filefilter:="Exel File (*.xlsm), .xlsm", Title:="ENREGISTREMENT DU FICHIER")
    
    'au cas ou on annule
    If fname = False Then MsgBox " Enregistrement annulé": Exit Sub
    
    'enregistrement a l'endroit indiqué dans le dialogue
    ThisWorkbook.SaveAs fname, xlOpenXMLWorkbookMacroEnabled
    
    
End Sub