Discussion :

[realthunderbolt]

bonjour tout le monde

Je suis entrain de faire un programme qui me génère des factures à partir des informations d'une base de données et voici un bout de 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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


'je declare ma variable
Dim wdapp As Word.Application
.
.
.

'creation de la copie du model de facture
Set demande = CreateObject("scripting.filesystemobject")
Set demande2 = demande.getfile("C:\facture.doc")
.
.
.
'creation d'un document word avec le model precedent
chemin_fichier = "C:\" & nom & "_" & prenom & "_facture.doc"
demande2.Copy (chemin_fichier)
.
.
.
'traitement du document
Set wdapp = CreateObject("Word.application")
 Documents.Open chemin_fichier 
Documents(chemin_fichier).Activate
.
.
.
'fermeture du word.application
wdapp.Application.Quit     

Voila, mon problème est que si jamais je laisse mon code tel qu'il est, si jamais je fais une boucle sur le bout de code précedent, le programme plante et me dis :

" Erreur d'exécution '462': Le serveur distant n'éxiste pas ou n'est pas disponible "

et le debugger m'envoie sur la ligne Documents.Open chemin_fichier


Et sinon deuxième solution si j'enlève la dernière ligne wdapp.Application.Quit le programme marche, il peut boucler plusieurs fois le bout de code précedent mais je me retrouve à la fin avec plusieurs application word qui tourne en arrière plan et c'est embetant surtout quand je dois générer plusieurs centaines de factures.


Voila est ce quelqu'un a déja été confronter à ce genre de problème et a pu le resoudre ?


Merci

[pgz]

Bonjour,

Tu pourrais aussi éditer tes factures par publipostage avec fusion.
Pour rester dans ce que tu as commencé, tu pourrais essayer ceci

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
'je declare ma variable
Dim wdapp As Word.Application, wdDoc as Word.Document
.
.
.
 
'création de la copie du modèle de facture
Set wdDoc = GetObject("C:\facture.doc")
Set wdapp = wdDoc.Application
wdDoc.SaveAs "C:\" & nom & "_" & prenom & "_facture.doc"
.
'traitement du document
.
.
.
'fermeture du document
wdDoc.Close wdSaveChanges

J'ai laissé l'instance wdapp, au cas où tu en aurais besoin... mais tu devrais pouvoir faire avec wdDoc. Le seul inconvénient c'est que si au départ Word n'est pas ouvert, à la fin il devrait rester une fenêtre WORD. Si ça pose pb, ça se règle aussi.

Bon courage,

PGZ

[Maxence HUBICHE]

Hello !

Tu fais référence à Documents (qui existe dans le modèle Access) sans préciser que tu pointes vers word !
Voici donc l'erreur.
Si tu modifies ton code comme suit, tu n'auras plus le souci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'traitement du document
Set wdapp = CreateObject("Word.application")
with wdapp
    .Documents.Open chemin_fichier 
    .Documents(chemin_fichier).Activate
    ...
    ...
    ...
    'fermeture du word.application
    .Quit 
end with

tu remarqueras, je l'espère, que tu es dans un With, et que devant Documents, il y a un point(.)

[realthunderbolt]

ca marche parfaitement

merci !