Enregistrement nouveau document VBA

Bonjour,

Je viens vers vous pour un petit probleme .

Je crée un nouveau fichier à partir d'un fichier modele en activant un userform

Je souhaite ensuite que l'utilisateur enregistre le nouveau document en format XLSM pour garder les macros.

1. J'utilise donc la macro suivante qui m'ouvre automatiqumeent l'onget "enregistrer sous".

CommandBars(1).Controls(1).Controls(5).Execute

Savez vous comment faire pour que part défault, il me proprose d'enregistrer sous en .XLSM au lieu du .XLS habituel dans la barre "type:"?

2. Lorsque je je crée mon nouveau document, il s'enregistre automatiquement en .XLS dans "mes documents". Savez vous comment peut on supprimer ou eviter cet enregistrement?

Merci

Charles

Salut le forum

Utilise le code VBA suivant

Sub Enregistrer()
Dim fname

fname = Application.GetSaveAsFilename _
    ("Exemple", FileFilter:="Ficher xlsm (*.xlsm), *.xlsm")
    If fname <> False Then
     ActiveWorkbook.SaveAs fname, xlOpenXMLWorkbookMacroEnabled
    End If

End Sub

Mytå

Merci beaucoup,

Ca marche d'enfer!!

Il me reste mon second problème qui est d'eviter l'enregistrement automatique de mon nouveau document en format.XLS dans "mesdocuments"

Savez vous comment eviter cet enregistrment automatique?

Merci

Charles