Autres ouverture des document word depuis userform

[samia89]

bonjour tt le monde j'ai besoin de votre aide svp

voila je travail avec se code qui fonction très bien qui consiste a ouvrir des document word spécifique sur mon ordinateur a l'aide d'un userform et un bouton le souci si que a l'ouverture du document il est reduit dans la bar des tache et je vousdrais qu'il s'affiche directement sur l’écran voila le code et un grand merci pour vous tous

Private Sub CommandButton1_Click()

Dim Fichier As String
Dim WordApp As Object, WordDoc As Object

Unload Me
   Set WordApp = CreateObject("word.Application")
    WordApp.documents.Open "D:\CURRICULUM VITAE.docx"
    WordApp.Visible = True
    Set WordDoc = Nothing
    Set WordApp = Nothing

End Sub

 

[Eric C]

Bonjour le forum
Bonjour samia

Essaies avec ceci - Il faut que Word soit fermé lors du lancement de ta procédure

Private Sub CommandButton1_Click()

Dim Fichier As String
Dim WordApp As Object


   Set WordApp = CreateObject("word.Application")
    WordApp.Visible = True
    WordApp.Documents.Open "D:\YY\Retour au menu.docx"
    
    WordApp.Activate

    Set WordDoc = Nothing
    Unload Me
End Sub

@+ Eric c

 

[samia89]

grand merci Eric C ça marche bien