Macro VBA sous word

[Pegase]

Bonjour et Bonne Année à tous,

Je sais que je suis sur un forum Excel, mais je n'ai pas trouvé l'équivalent pour Word. Je pose donc ma question ici

J'ai écris une macro simple sous VBA pour lancer 2 impressions successives d'une page.
Mais entre les 2 impressions je veux pouvoir intervenir, donc j'ai mis un 'point d'arrêt'.
Voici la macro simplifiée

Sub MacroDoubleImpression()
'
'
ActiveWindow.PrintOut Copies:=1, Collate:=True

MsgBox ('Point d'arrêt')

ActiveWindow.PrintOut Copies:=1, Collate:=True
End Sub

Voici mon pb
Lorsque je lance pas à pas cette macro (Touche F8 dans l'éditeur de Macro), tout se passe normalement, à savoir
- la première impression se fait
- la boite avec le message Point d'arrêt s'affiche
- quand je clique sur OK la seconde impression démarre.

Mais lorsque je lance la macro normalement (Outil>macro>MacroDoubleImpression > Exécuter)la première impression ne s'exécute qu'après que j'ai cliqué sur le OK du Point d'arrêt.
Je n'ai donc pas le temps d'intervenir...

Un spécialise des macros word pourrait-il m'aider ?
Un grand merci d'avance

 

[visiteur]

bonjour Pegase

essaie de remplacer
MsgBox ('Point d'arrêt')
par
MsgBox('Voulez-vous continuer l'impression ?) = vbNo Then Exit Sub 'ici l'utilisateur devrait avoir l'option OUI ou NON
en te souhaitant une bonne année.

 

[Pegase]

Merci de ta réponse, mais mon pb n'est pas là.
J'ai dû mal m'expliquer.
Quand je lance la macro, elle s'arrête sur le point d'arrêt en attendant que je clique sur le 'OK' ; c'est normal ! Mais elle n'exécute pas la première instruction d'impression :

ActiveWindow.PrintOut Copies:=1, Collate:=True

qui pourtant est placée avant.
Cette première instruction d'impression n'est exécutée que lorsque je clique sur 'OK' et dans la foulée elle enchaine la seconde instruction d'impression et je n'ai pas le temps d'intervenir.

Fait l'essai tu comprendras

Le fait de mettre

MsgBox(\\'Voulez-vous continuer l'impression ?) = vbNo Then Exit Sub

ne change rien, je ne suis pas surpris !


Bonne Année à toi