Bonjour,

j'ai compulsé les forums et trouvé ce code permettant d'ouvrir un fichier Word via une macro VBA sous Excel :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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