format du document non modifiable par macro

[poutche]

Bonjour,

J'ai récupéré un document en .docx auquel j'ai rajouté des macros dont une pour l'enregistrer (j'en profite pour désactiver mes listes déroulantes).
Voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
With Application.FileDialog(msoFileDialogSaveAs)
 
        .Show
        fn = .SelectedItems(1)
End With
If fn <> "" Then
ActiveDocument.SaveAs FileName:=fn, FileFormat:= _
        wdFormatXMLDocumentMacroEnabled, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False

mais lors de l'affichage de la boîte de dialogue, le type de fichier reste en docx ! que faire ?

[Heureux-oli]

Salut,

Pourquoi passer par un SaveAs ?

Code :

1
2
3
4
5
 
With Application.FileDialog(msoFileDialogSaveAs)
 
        .Show
End With

Devrait suffire et dans cette boîte de dialogue, tu peux choisir le type de fichier pour la sauvegarde.