Discussion :

[Gozeone]

Bonjour à tous,

Je suis un peu debutant en VBA mais j'ai déjà accompli pas mal de choses grâce au net.

Je n'aime pas déranger pour une question qui pourrait paraître simple mais je bloque sur quelque chose.

En effet, je souhaiterais que l'utilisateur puisse enregistrer le document word avec l'aide d'un bouton.

J'ai trouvé ce code qui fonctionne à moitié :

Private Sub CommandButton1_Click()
Dim REP As FileDialog
Set REP = Application.FileDialog(msoFileDialogSaveAs)
With REP
.AllowMultiSelect = False
.InitialFileName = "Idefix"
If .Show = -1 Then
ActiveDocument.SaveAs2 FileName:=.SelectedItems(1)
End If
End With
End Sub

Il fonctionne à moitié car j'aimerais que dans la boite de dialogue le format soit "prise en charge avec macros" et non celui par défaut...

Pourriez-vous m'aider?

En vous remerciant,

Goze

[clementmarcotte]

Bonjour,

Le plus simple dans ces cas-là est d'essayer la baguette magique qu'est l'enregistreur de macros. Tu peux le faire sans honte car tout le monde passe encore, ou est déjà par là.

En enregistrant toutes tes opérations manuelles, l'enregistreur va te donner un code VBA.

Après avoir tenté l'expérience chez-moi, tu vas devoir remplacer cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.SaveAs2 FileName:=.SelectedItems(1)

par celle-là:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveDocument.SaveAs2 FileName:=.SelectedItems(1), FileFormat:= _
        wdFormatXMLDocumentMacroEnabled

[Gozeone]

Bonjour Clementmarcotte ,

Je te remercie pour ta réponse, c'est très gentil, mais j'ai déjà utilisé ce procédé.

Mais ce code que tu m'as donné et que j'ai déjà testé, ne fonctionne pas...

Avec ce code, l'utilisaeur doit choisir le format dans la boîte de dialogue. Il y a t il d'autres solutions?

En te remerciant,

Goze

[Gozeone]

C'est bon c'est réglé...

J'avais mis ce code à la fin de tout mon code et ça ne fonctionnait pas.

J'ai donc utilisé ce code sur une page vièrge et la miracle, ça fonctionne.

J'ai alors mis ce code au début de tout mon code et ça fonctionne.

Un grand merci!

Goze