Bonjour,

après avoir au départ d'excel:
1)ouvert un document word et affiché la boite de dialogue de sélection d'imprimante dans word
Code Word
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Sub Document_Open()
    Dialogs(wdDialogFilePrint).Show
End Sub
2) Attendu Word tant que la boite de dialogue Sélection d'imprimante est affiché dans Word
Code Excel
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
        'Wait for Dialog window closed
        Do While WordApp.Dialogs(wdDialogFilePrint) = True
        Loop
Je voudrais ramener excel (ThisWorkbook) au premier plan.

Comment faire