Discussion :

[Jhofman]

Bonjour,

j'exécute uen requette dans un module access : à partir d'un formulaire j'effectue un publipostage. le seul hic, c'est quand je soushaiet renomer le fichier issue du publipostage. cela marche 1 fois sur 2 !! (Oui)

c'est la donnée ActiveDocument dans l'instruction

Code :

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

1
2
ActiveDocument.SaveAs "X:\TEMP\EnvoiEval\" & a & ".doc"
.SaveAs "X:\TEMP\EnvoiEval\" & a & ".doc"

qui n'est pas toujours accessible !!!

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
Sub MergeIt()
   Dim appWord As Word.Application
   Dim objWord As Word.Document
 
    Set appWord = New Word.Application
    appWord.Visible = True
 
    a = Forms!DonneesCollab![Identifiant_Annuaire]
    Set objWord = appWord.Documents.Open("X:\TEMP\Support+Evaluation+France.doc")
 
    objWord.MailMerge.OpenDataSource _
        Name:="X:\TEMP\Evaloc.mdb", _
        Connection:="TABLE Eval1", _
        LinkToSource:=True, _
        SQLStatement:="SELECT * FROM [Eval1]"
 
    objWord.MailMerge.Execute
 
    ActiveDocument.SaveAs "X:\TEMP\EnvoiEval\" & a & ".doc"
    ActiveDocument.Close False
    objWord.Close False
    Set objWord = Nothing
    Word.Application.Quit
 
 
End Sub

[mout1234]

Bonjour et bienvenu sur le forum.

Je ne sais si cela a un rapport avec ton problème mais j'évite pour ma part, dans la mesure du possible, l'utilisation des ActiveDocument et autres éléments du même genre...
J'essaierai plutot de passer par la collections des documents.

Quelque chose du genre (non testé):

Code :

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

1
2
3
4
With AppWord.Documents(1) '1 car tu as 2 documents ouverts à cet instant dans ton AppWord, le premier ayant l'indice 0
    .SaveAs "X:\TEMP\EnvoiEval\" & a & ".doc"
    .close wdDoNotSaveChanges
end with

En passant, ta variable a n'est pas déclarée et un nom plus significatif serait préférable

[Jhofman]

Bonjour mout1234


cela marche beaucoup mieux selon ta méthode.
reste à fermer tous les documents et instances de word ouvertes.
et ma proc est encore nu peu légère sur cet aspect.

[Jhofman]

Il me reste 2 pb

je suis systématiquement obligé de
1) confirmer la propriété de la liason de données et la source des données
2) femer à la mano des instances de word vide. ( aucun do ouvert)

mon code est le suivant

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
Sub MergeIt()
   Dim appWord As Word.Application
   Dim objWord As Word.Document
   Dim a As String
 
    Set appWord = New Word.Application
    a = Forms!DonneesCollab![Identifiant_Annuaire]
    Set objWord = appWord.Documents.Open("X:\TEMP\Support+Evaluation+France.doc")
    objWord.Application.Visible = True
    objWord.MailMerge.OpenDataSource _
        Name:="X:\TEMP\Evaloc2.mdb", _
        Connection:="QUERY Eval1", _
        LinkToSource:=True, _
        SQLStatement:="SELECT * FROM [Eval1]"
 
    objWord.MailMerge.Execute
 
    'MsgBox appWord.Documents.Count
    appWord.Documents(1).SaveAs ("X:\TEMP\EnvoiEval\" & a & ".doc")
    appWord.Documents(1).Close False
    appWord.Documents(1).Close False
 
   ' objWord.Close False
    Set objWord = Nothing
   ' Word.Application.Quit
 
End Sub

[mout1234]

Pas le temps de regarder en détail ... mais logiquement, si tu fermes le document N° 1 de la collection... il ne reste plus que le N°0

Code :

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

1
2
3
    appWord.Documents(1).Close False
    appWord.Documents(0).Close False

[Jhofman]

c'est ce que j'ai pensé mais il semble que ma machine ne réagit pas avec cette même logique !!