Discussion :

[franck71]

Bonjour,

J'utilise le code suivant que j'ai trouvé sur ce forul pour un fichier Word :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
 
'Ouvre une session Word
Set WordApp = CreateObject("word.application")
 
'Ouvre le document Word
Set WordDoc = WordApp.Documents.Open("c:/mesdocuments/monDocument.doc")
 
'affiche le document Word
WordApp.Visible = True

Ce qu'il se passe : le fichier word s'ouvre bien, mais il ne s'affiche pas à l'écran (en plein écran) mais reste sous forme d'icône dans la barre des tâches.

Manque t'il une ligne dans le code ?

Merci pour votre aide

[tirex28]

Bonsoir,

Peut etre:

Code :

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

WordApp.WindowState = 1 '<=>wdWindowStateMaximize

Cordialement,

Tirex28/