Ouvrir un fichier Word via macro de Excel
Bonjour,
j'ai compulsé les forums et trouvé ce code permettant d'ouvrir un fichier Word via une macro VBA sous Excel :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
Sub PublipostageVisualisation()
'======================================================================
' Visualisation d'un fichier de Publipostage
'======================================================================
Dim FicVoeux As String, FichierDroitsAdmin As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
' Détermination des paramètres de début
Call Choix_Paramètres ' les noms de répertoires
Set WordApp = CreateObject("Word.Application") ' un objet
Set WordApp = New Word.Application
FicVoeux = RepertoirePublipostage & "Voeux_Clients.docx"
' ouvrir le document Word
Set WordDoc = WordApp.Documents.Open(FicVoeux)
' rendre Word visible
WordApp.Visible = True
' fermer le document
' WordApp.Documents(1).Close
' quitter l'application Word
' WordApp.Quit
' libérer la mémoire
' Set WordApp = Nothing
End Sub |
Ce code fonctionne, le fichier Word est ouvert, mais n'est pas affiché à l'écran. En quelque sorte il reste sous la page Excel de laquelle est lancée la macro.
Après exécution de la macro,j e vois l'icône WORD dans la barre des tâches en bas de l'écran. En cliquant sur l'icône, le fichier est affiché.
Que dois-je coder pour que le fichier soit directement affiché sur Excel ?
Merci pour votre aide
Cordialement
Daniel
