[XL-2010] Type de fichier fenetre saveAs

[Fred.dz]

Bonjour à tous,

J'ai un programme qui m'affiche la boite de dialogue "saveAs", tout fonctionne bien sauf que je voudrais que par défaut le fichier se sauvegarde en .xlsm et pas en .xls.

J'ai bien essayer de mettre

Code :

1
2
3
4
5
6
Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = "Nomfichier.xlsm"
    .Show
    .Execute
End With

mais ça fonctionne pas, il garde que Nomfichier.

Merci d'avance.

Edit: j'ai vu qu'il existait fileformat, je sais pas trop si ça pourrait répondre à ma problématique, j'arrive pas à le faire fonctionner.