Bonjour à tous,
Je souhaite ouvrir un fichier Word depuis Excel en passant par la fenêtre d'ouverture de fichier.
Grace à une macro de "mromain" qui j'ai testé, cela fonctionne parfaitement. Toutefois, je souhaiterais que le fichier Word qui s'ouvre grace à cette macro ce place au premier plan sur l'écran de l'ordinateur. Dans le cas présent, il reste derrière le fichier Excel qui sert à lancer la commande.
Est il possible de compléter la macro ci-dessous pour que cette dernière opération puisse ce réaliser ?
Encore merci à mromain pour son travail.
Le code:
Dim appWord As Object, docWord As Object
Dim pathDocWord As String
'récupérer le fichier Word à ouvrir
pathDocWord = Application.GetOpenFilename("Document Word (*.doc ; *.docx), *.doc; *.docx")
'si aucun fichier n'a été sélectionné, quitter la macro
If pathDocWord = "Faux" Then Exit Sub
'créer une application Word
Set appWord = CreateObject("Word.Application")
'afficher l'application Word
appWord.Visible = True
'ouvrir le document Word
Set docWord = appWord.Documents.Open(pathDocWord)
Merci à tous.
Je souhaite ouvrir un fichier Word depuis Excel en passant par la fenêtre d'ouverture de fichier.
Grace à une macro de "mromain" qui j'ai testé, cela fonctionne parfaitement. Toutefois, je souhaiterais que le fichier Word qui s'ouvre grace à cette macro ce place au premier plan sur l'écran de l'ordinateur. Dans le cas présent, il reste derrière le fichier Excel qui sert à lancer la commande.
Est il possible de compléter la macro ci-dessous pour que cette dernière opération puisse ce réaliser ?
Encore merci à mromain pour son travail.
Le code:
Dim appWord As Object, docWord As Object
Dim pathDocWord As String
'récupérer le fichier Word à ouvrir
pathDocWord = Application.GetOpenFilename("Document Word (*.doc ; *.docx), *.doc; *.docx")
'si aucun fichier n'a été sélectionné, quitter la macro
If pathDocWord = "Faux" Then Exit Sub
'créer une application Word
Set appWord = CreateObject("Word.Application")
'afficher l'application Word
appWord.Visible = True
'ouvrir le document Word
Set docWord = appWord.Documents.Open(pathDocWord)
Merci à tous.