Ouvrir un fichier Word via macro de Excel

**dadu35** · 31/08/2015, 19h19

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

**joe.levrai** · 31/08/2015, 19h57

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WordApp.Activate

Ps : tu mélanges les liaisons précoces et tardives

pour ne pas être obligé d'activer les bibliothèques/références liées à Word, tu peux déclarer tes variables en Object
et ça simplifie un peu ton code qui possède des instructions redondantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub PublipostageVisualisation()
    Dim FicVoeux As String, FichierDroitsAdmin As String
    Dim WordApp As Object
    Dim WordDoc As Object
 
    Set WordApp = CreateObject("Word.Application")
 
    With WordApp
        Set WordDoc = .Documents.Open(FicVoeux)
        .Visible = True
        .Activate
    End With
End Sub

Invité · 01/09/2015, 06h32

Bonjour,
En ce qui concerne pour Word n'apparaît pas au premier plan, Joe a répondu, mais sache qu'en informatique ce que tu ne gère pas c'est le système qui le fait pour toi!

Maintenant on peut s'interroger sur l'intérêt d'afficher Word et infliger à l'utilisateur une torture visuelle! Des trucs qui apparaissent, défilent et disparaissent!