Problème sur fonction

[hoob91]

Bonjour à tous,
je cherche à réaliser une macro ( sous Word ) qui teste la fonction "enregistrer sous ".
je m'explique :
* si clic sur Annuler, rien ne se passe, je retourne sur le document ou je me situe
* si clic sur Enregistrer --> action à réaliser

merci de votre aide

 

[pyrof]

bonjour,

Tu vas dans macro et tu selectionne commande word au lieu de normal.

là tu as toutes les commandes de word

tu as donc fichierenregistrer. Il suffit de créer une macro qui porte ce nom pour contourner la commande word

 

[hoob91]

Merci mais comment récupérer le code des macros commande word pour les adaptées à nos besoins

 

[pyrof]

Bonjour,

Là, je ne sais pas. Mais avec toutes les fonction du vba on peut faire.

pour exepmle la commande enregistrersous fait filesaveas avec les options.

bon courrage

 

[hoob91]

Ce que je souhaite réaliser, c'est à l'ouverture de la boite de dialogue Enregistrer Sous, faite un test sur la réponse donnée par exemple
si Enregistrer alors .....
si Annuler alors Message
la difficulté est le test ????

If Selection = False Then '--- analyse réponse de la boite de dialogue ------- MsgBox ("Annuler")

End If

Else

End If
' MyString = "Non"
MsgBox ("Enregistrement Annuler")

Merci de votre aide

 

[pyrof]

Bonjour,

Voila :

Sub fichierenregistrersous()
dlgAnswer = Dialogs(wdDialogFileSaveAs).Show
If dlgAnswer = o Then
MsgBox "le document n'est pas enregistre"
End If
End Sub

 

[hoob91]

Merci pour ta réponse, cela fonctionne parfaitement