Discussion :

[suckthewindow]

Bonjour à tous,
J'ai un petit bug dans un script et je ne comprends pas pourquoi, en gros j'ai un objet document actif que je sauvegarde, et ensuite je change le document actif. Cependant lorsque j'essaie de revenir au document precedant et le remettre comme document actif, ca plante ... un exemple de code vous fera mieux comprendre:

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
 
 
Dim sAutoquePath, sTemplateFile
Dim oMain, wdocs, wdoc, wdo
 
sAutoquePath = "c:\testfax\"
sTemplateFile = "document.doc"
 
' Open the Template document
Set wdo = CreateObject("Word.Application")
If wdo Is Nothing Then
	WScript.Echo "Error: Cannot create Word document. MS Word " + "MS Word is not available! Quiting..."
	WScript.Quit 2
End If
Set wdocs = wdo.Documents	 
Set wdoc = wdocs.Open(sAutoquePath & sTemplateFile)
 
'get the last record of  datasource
Set oMain = wdo.ActiveDocument
 
wdo.ActiveDocument = oMain
 
wdo.Quit WdDoNotSaveChanges
Set wdo = Nothing

j'ai l'erreur suivante: 'Name' is a read only property.
Est-ce possible de modifier le document courrant comme ca ?

[omen999]

salut,
je n'ai pas le modèle objet de word sous les yeux, mais a priori j'aurais envie de dire que cette ligne n'est pas bonne

Code :

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

wdo.ActiveDocument = oMain

car ça signifie que tu veux donner à la propriété par défaut de l'objet document (qui doit être Name) la valeur d'un objet document...
un transtypage que vbs pourtant bonne fille ne peut accepter

Code :

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

wdo.ActiveDocument.Name = oMain

d'une façon générale, je ne comprends pas la logique de ce code

Code :

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

1
2
Set oMain = wdo.ActiveDocument
wdo.ActiveDocument = oMain

[suckthewindow]

merci beaucoup pour ta reponse
pour ce qui est de la logique du code, c'etait un exemple simple juste pour montrer où ça plantait