Discussion :

[Invité]

Bonjour j'essai d'ouvrir un fichier doc avec ce script mais pour x raisons il me mentionne que le fichier est utilisé et me l'ouvre qu'en lecture seule?

Code :

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

1
2
3
Set objWord=CreateObject("Word.Application")
Set oDoc=objWord.Documents.Open("C:\Users\padawan\Desktop\ScriptUserInfo\XLSFiles\OldCU.doc")
oDoc.PageSetup.Orientation=1 ' Landscape

Des idées pour orienter mes recherches

Merci

[l_autodidacte]

Salut,

Le chargement de Winword n'est pas instantané et tu as dû exécuter le code au moins à deux reprises. Ce qui fait qu'il y a deux instances en cours d'exécution, d'où le message reçu.

Ajoute dans ton code, juste avant le dernière ligne ceci objWord.Visible = True.
Exécute le code une seule fois et attends l'apparition de la fenêtre de Word.

[Invité]

Super effectivement...tu avais raison

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
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists ("C:\Users\padawan\Desktop\ScriptUserInfo\XLSFiles\OldCU.doc") then
Set word = CreateObject("Word.Application")
word.Visible = True
Set objectdocument = word.Documents.Open ("C:\Users\padawan\Desktop\ScriptUserInfo\XLSFiles\OldCU.doc")
Set oDoc=objectdocument
word.selection.Wholestory
word.selection.Font.Name = "Times New Roman"
word.selection.Font.Size = 8
oDoc.PageSetup.Orientation=1 ' Landscape
WScript.Sleep 2000
objectDocument.SaveAs("C:\Users\padawan\Desktop\testdoc.doc")
Word.Quit
Else
Msgbox "Fichier introuvable..."
End If

ça fonctionne