Discussion :

[FtF Nemesis]

Bonjour à tous,

J'ai un programme (sur le vba d'Access) qui ouvre des documents Word (dotx et docx), travaille dessus, effectue une sauvegarde de la tramme en .docx et ferme les tous les documents sans sauvegarder. Ca marche parfaitement bien, mais lorsque je la relance, j'ai un bug sur :

Code :

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

1
2
3
ParaTrame.Paragraphs(NumObj).Range.Copy
TrameRap.Bookmarks("Sgn_Form" & NumSgn).Select
Selection.Paste

Le débugueur est sur " Selection paste", et VBA me dit " ERREUR 462 , le serveur distant n'existe pas ou n'est pas disponible". Je pense que c'est parceque je ne ferme pas bien mes documents. Mes lignes d'ouverture et de fermeture sont les suivantes :

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
Private wordObj As Word.Application
Private TablTrame, ParaTrame As Word.Document
Private TrameRap As Word.Document
 
Set wordObj = CreateObject("Word.Application")
Set TrameRap = wordObj.Documents.Open(AdrsTram)
Set TablTrame = wordObj.Documents.Open(AdrsBasTrm & "\Tables_trame_RE.docx")
Set ParaTrame = wordObj.Documents.Open(AdrsBasTrm & "\Paragraphes_trame_RE.docx")
 
' PROCEDURE SUR LES DOCUMENTS
 
TrameRap.SaveAs FileName:=AdrsDest & "\" & NameRap & ".docx", FileFormat:=wdFormatDocumentDefault
wordObj.Quit savechanges:=False 
 
Set wordObj = Nothing
Set TablTrame = Nothing
Set ParaTrame = Nothing
Set TrameRap = Nothing

Si quelqu'un remarque une erreur dans ce code, je le remerci d'avance

cordialement

hadrien

[FtF Nemesis]

Sans la sauvegarde du document, le code ferme bien les objets, mais si la ligne sauvegarde est active, la fermeture ne fonctionne pas. Pour preuve, si j'ouvre un document word, et si je vais dans "Boutton Office" puis "Quitter Word", je vois tous les Documents ouverts qui se ferme au fur et à mesure.

[FtF Nemesis]

En fait, ce que je viens de dire se passe certaines fois mais pas d'autres.
C'est à ni rien comprendre.

[Heureux-oli]

Salut,

Premiere réflexe, on libère les objets dans l'ordre inverse de l'affectation.

Code :

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

1
2
3
4
5
6
7
8
9
10
Set wordObj = CreateObject("Word.Application")
Set TrameRap = wordObj.Documents.Open(AdrsTram)
Set TablTrame = wordObj.Documents.Open(AdrsBasTrm & "\Tables_trame_RE.docx")
Set ParaTrame = wordObj.Documents.Open(AdrsBasTrm & "\Paragraphes_trame_RE.docx")
 
 
Set ParaTrame = Nothing
Set TablTrame = Nothing
Set TrameRap = Nothing
Set wordObj = Nothing

Comment libérer un Objet document si le programme n'existe plus.

Je suppose que les lignes que tu nous donnes se trouvent dans une procédure.

Dans ce cas, pourquoi les déclarer en Private ?

Dans ta ligne

Code :

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

Private TablTrame, ParaTrame As Word.Document

, tu as un document et un variant.

[FtF Nemesis]

Pourquoi un Variant ???

[carden752]

Bonjour,

Cette déclaration te donne TablTrame comme variant et ParaTrame comme document

Code :

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

Private TablTrame, ParaTrame As Word.Document

Pour avoir deux documents, il faut faire :

Code :

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

Private TablTrame As Word.Document , ParaTrame As Word.Document

[FtF Nemesis]

Merci, c'est dingue que je code depuis 3 mois sans même savoir ça !!!!
Oh le nul que je suis.

[Heureux-oli]

Salut,

Et ton problème est disparu en changeant le type de la variable ?