Bonjour,

Je vous en prie, aidez moi je n'en peux plus.
Je me bagarre avec word et access depuis des heures.

Voici mon problème :
J'ai un document access qui me permet de rédiger des contrats.
En cliquant sur un bouton dans un formulaire j'envoie mes données vers word. Jusque là, pas de soucis.
Le problème intervient quand je veux fermer mon document. J'ai le droit à un message d'erreur me disant que normal.dot est utilisé par un autre utilisateur.
J'ai vu plusieurs post sur le sujet mais je n'arrive toujours pas à règler mon problème.

Voici 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
 
Dim objWord As Word.Document
Dim docword As Word.Application
Dim ligne As Integer
 
ligne = Me.Modifiable14.ListIndex
 
    Set docword = CreateObject("word.application")
    docword.Application.Visible = True
    Set objWord = docword.Documents.Add("Z:\Contrat_Base.dotx", newtemplate:=False, documenttype:=0)
 
    objWord.Bookmarks("sgtDate").Range.Text = Format(Date, "dd mmmm yyyy")
    objWord.Bookmarks("sgtNumero").Range.Text = CStr_(Forms.fiche_marche.Texte5)
    objWord.Bookmarks("sgtLibelle").Range.Text = CStr_(Forms.fiche_marche.Form.Texte7)
    objWord.Bookmarks("sgtAttributaire").Range.Text = Me.Modifiable14.Column(1, ligne) & " - " & Me.Modifiable14.Column(4, ligne) & " - " & Me.Modifiable14.Column(5, ligne) & " - " & Me.Modifiable14.Column(6, ligne)
 
 
    objWord.PrintOut
    objWord.Close (wdDoNotSaveChanges)
    Set objWord = Nothing
    Set docword = Nothing
End Sub
Mes instances sont bien fermées non ?

Merci