Discussion :

[benoit70]

voila mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim MonWord As Object
'Ouvre l'application Word
Set MonWord = CreateObject("Word.Application")
 'Ouvre le document Word contenant le(s) tableau(x)
MonWord.Documents.Open FileName:=StrFileToFindFullPath
'Affiche à l'écran  le document Word
MonWord.Application.Visible = False
 
.....
 
MonWord.Documents.Close
MonWord.Quit

Quand je fait "MonWord.Documents.Close" je vois word qui s'ouvre et se referme!
Comment faire pour qu'il ne s'ouvre pas?
Car en fait je veux seulement lire dans le fichier sans le voir du tout.
Merci

[SilkyRoad]

bonjour Benoit

tu peux tester cette adaptation

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim WordApp As Object, WordDoc As Object
 
Set WordApp = CreateObject("word.application")
WordApp.Visible = False 'Word reste masqué pendant l'opération
Set WordDoc = WordApp.Documents.Open(StrFileToFindFullPath) 'ouvre le document Word
 
'........
 
WordDoc.Close False 'fermeture document Word sans enregistrer les modifications
WordApp.Quit 'fermeture session Word

bonne journée
michel

[Xo]

La question est de savoir s'il s'ouvre juste pour afficher' une boîte de message (modale, donc bloquante), ou s'il apparaît juste un instant avant de se refermer ?

Pour le premier cas, rajoute cette ligne suite à l'ouverture de Word :

Code :

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

MonWord.Application.DisplayAlerts = wdAlertsNone

Pour le second cas, je suis plus hésitant ... essaye ceci :

Code :

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

MonWord.Application.WindowState = wdWindowStateMinimize

pour forcer ton appli à rester "minimisée".