Bonjour
J'aurai besoin de vos lumières pour un peu d'aide, svp.
Je suis en cours de construction d'un fichier qui va servir de main courante, la dessus se trouve un bouton pour ouvrir un UserForm avec plusieurs boutons afin d'avoir acces directement à certain documents.
J'ai trouvé le code pour ouvrir les ficheirs excel, ça marche,
J'ai trouvé également pour les docs Word, ça s'ouvre bien mais le doc reste caché derrière excel alors que j'aimerai qu'il passe devant comme excel.
Mon code
Private Sub CommandButton19_Click()
'Bouton ouverture Word Fiche demande de permutation
Dim Word As Object
Dim AppWord As Object
Me.Hide: UF_Principal.Hide
Set Word = CreateObject("Word.Application")
Word.Visible = True
Set AppWord = Word.Documents.Open("T:\AEROPORT\SSLIA\Administratif SSLIA\FICHE\Demande de permutation.docx")
End Sub
Aurai-je oublié quelque chose ?
Merci par avance
Cdlt