Discussion :

[iloyer]

Bonjour,

Je chercher grâce à un vbs à créer un nouveau document Word.
Sachant que j'ai créé un modéle qui contient un certain nombre de macro, je souhaite que ce nouveau document soit basé sur MonModel.dot.

Voici l'un des nombreux tests réalisés

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Set objWord = CreateObject("Word.Application")
Dim objWordDoc
Documents.Add Template:="C:\OEW.Dot"  , NewTemplate:=False, DocumentType:=0
 
objWord.Visible = false
 
ScreenUpdating=True
objWordDoc.SaveAs "C:\WordOESave.doc"
objWord.Quit
Set objWordDoc = nothing

Malheureusement, malgré de nombreux essais, une recherche poussée dans les différents messages, je n'arrive pas à mon sortir.

J'espère l'un de vous pourra éclairer ma lanterne.

Merci par avance.

[Heureux-oli]

Salut,

Un peu de lecture ?

http://heureuxoli.developpez.com/off...rd/?page=page3

[iloyer]

Merci pour cette réponse rapide.

J'avais bien vu cet article mais n'ayant jamais fait de vba ou vbs, je suis un peu perdu.

Je suis sur que pour ceux qui manipule cela au quotidien c'est tout bête...

Alors si l'un de vous aurait la gentillesse de me dire où pèche mon bout de code.

Merci par avance.

[Heureux-oli]

Salut,

Si tu déclares un objet document, il faut lui affecter un objet.

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
 
'Avec cette ligne tu affecte un objet Application à une 
'variable qui n'est pas déclarée
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
'Tu déclares un variable non typée
Dim objWordDoc As Object
'Tu dois affecter une donnée à ton objet
Set objWord = Documents.Add Template:="C:\OEW.Dot"  , NewTemplate:=False, DocumentType:=0
 
objWord.Visible = false
 
ScreenUpdating=True
objWordDoc.SaveAs "C:\WordOESave.doc"
'Après sauvegarde, il faut fermer
objWordDoc.Close
'Tu dois libérer les objets
Set objWordDoc = Nothing
objWord.Quit
Set objWordDoc = nothing

[iloyer]

Je vous remercie pour vos commentaires qui ont le mérite d'être très clair.
Néanmoins, lorsque je lance ce script, j'ai une erreur à la ligne 5 qui correspond à la déclaration de l'objet objWord.

Et là j'avoue que j'y perd le peu de latin qui me reste.

Merci encore

[Heureux-oli]

Salut,

Je ne suis pas très fort en VBS, et je pense que les variables ne sont pas typées à leur déclaration.

Pour ce qui est de la déclaration.
Dans un autre tuto sur le VBA, j'y explique comment déclarer les variables et leur affecter des données.

Dans le cas de
Dim objWord, on déclare un objet Word et ensuite, il faut lui affecter une objet.
Alors que pour les affectations de variables simple, on utilise un "=", pour un objet on utilise le mot réservé "Set".

[Invité]

Bonjour

En VBS on ne type pas les variables, essayes tout simplement

Code :

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

Dim objWord

De même pour les autres.

Philippe

[iloyer]

Merci à vous deux pour votre aide.

En enlevant le typage cela passe, je suis maintenant bloquée sur l'instruction suivante:

Code :

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

1
2
 
Set objWord = Documents.Add Template:="C:\OEW.Dot"  , NewTemplate:=False, DocumentType:=0

Une idée?

[Invité]

Bonjour

Vbs n'adment pas les constantes nommées, il faut que tu les passes toutes dans l'ordre prévu dans l'instruction.

Philippe

[iloyer]

Merci pour cette réponse.

J'ai bien suivi vos conseils en modifiant la commande de la manière suivante

Code :

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

1
2
 
Set objWord = Documents.Add "C:\OEW.Dot",False,0

Mais le problème reste entier!

[Heureux-oli]

Cette fois c'est ma faute
Il faut des () lorsque l'on utilise un =
du moins en VBA

Code :

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

Set objWord = Documents.Add ("C:\OEW.Dot",False,0)

[Invité]

Cette fois c'est ma faute
Il faut des () lorsque l'on utilise un =
du moins en VBA

Idem en VBScript

[iloyer]

On avance....

Bon merci encore, mais j'ai un nouveau message d'erreur qui est

"Objet requis: Documents"

Pourtant, il me semblait que Documents était un objet de Word.Application

Merci encore

[Heureux-oli]

Oui, Tu as raison.


Je me demande si tu ne dois pas utiliser l'objet Application.

Code :

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

Set objWordDoc = objWord.Documents.Add ("C:\OEW.Dot",False,0)

[iloyer]

Super cela fonctionne.

Merci beaucoup à ceux qui m'ont aidé, cela ma retiré une belle épine du pied