Re,
En inversant le rendu visible de l’application (à tout hazard)
Private Sub CommandButton9_Click()
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
With oWdApp
'Afficher Word si nécessaire…
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open("P:\PILOTE COÛTS FIXES\CONTRAT DE TRAVAIL SALARIE.docx")
End With
'Afficher le document à l’écran
oWdApp.Activate
WordDoc.Activate
End Sub