Enregistrer-sous / Type

[Gelinotte]

Allô!

J'utilise : Application.Dialogs(xlDialogSaveAs).Show
Genre :
Sub EnregitrerSousTypeAvecMacro()
Application.Dialogs(xlDialogSaveAs).Show
end sub

et j'aimerais lui ajouter le Type forcé : Classeur Excel (prenant en charge les macros) (*.xlsm)

Auriez-vous des suggestions ?

Merci de votre aide.

Perdrix
.

 

[kiki29]

Re : Enregistrer-sous / Type

Salut,

Option Explicit

Sub EnregitrerSousTypeAvecMacro()
Dim Fichier As Variant
    Fichier = Application.GetSaveAsFilename(FileFilter:="Classeur Excel (prenant en charge les macros) (*.xlsm), *.xlsm")
    
    If Fichier <> False Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.DisplayAlerts = True
    End If
End Sub

 

[Gelinotte]

Re : Enregistrer-sous / Type

Allô!

Impeccable, il n'y a pas d'autre mot. 😉

Merci pour le code.
Merci pour la rapidité.
Merci pour la générosité.

Perdrix