Compréhension de code (fonction de création de fichier word)

Bonjour,

J'ai repris un programme en VBA avec plusieurs fonctions (de plus non commentés) et je suis bloqué sur une.

Il s'agit d'une fonction qui va créer un fichier word et je bloque totalement sur son fonctionnement !

Voici la fonction:

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Sub publipostage(nomPublipostage As String, nomTable As String)
 
    NOM_FEUILLE_EXCEL = "\" & ThisWorkbook.Name
 
    Dim MonWord As Object
    Dim Publipostage1
 
    Set MonWord = CreateObject("Word.Application")
    'MonWord.Visible = True
    MonWord.DisplayAlerts = wdAlertsNone
 
    Set Publipostage1 = MonWord.Documents.Open(Filename:=CHEMIN & nomPublipostage, ConfirmConversions:=True, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", XMLTransform:="")
 
    On Error GoTo Test
 
    Publipostage1.MailMerge.OpenDataSource Name:= _
        CHEMIN & NOM_FEUILLE_EXCEL, _
        ConfirmConversions:=True, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Connection:="Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & CHEMIN & _
        NOM_FEUILLE_EXCEL & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet ", _
        SQLStatement:="SELECT * FROM " & nomTable, SQLStatement1:=""
 
    With Publipostage1.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        .Execute Pause:=False
    End With
 
    Publipostage1.Close False
    MonWord.DisplayAlerts = wdAlertsAll
    MonWord.Visible = True
    Set Publipostage1 = Nothing
 
Test:
    If Err.Number = 9105 Then
        Publipostage1.Close True
        MsgBox MSG_BOX_PUBLI
    End If
 
End Sub

De plus, dans mon programme, elle doit être utilisée deux fois.
Sur le 1er fichier, il fonctionne bien.
Sur le 2ème fichier, une erreur apparaît après un bon moment avec cette erreur: Microsoft Excel attend la fin de l'exécution d'une action OLE d'une autre application

J'aimerais tout simplement comprendre mieux pourquoi le code ci-dessus ne fonctionne

Merci d'avance de votre aide :D

Citation:

Envoyé par coco1397

Il s'agit d'une fonction qui va créer un fichier word

Dans ce cas, pourquoi ne pas avoir posé la question dans la rubrique VBA Word du forum ?

Ma fonction se lance sur Excel, c’est pour ça. Faudrait que je lance une discussion sur un autre forum (VBA Word) ?

Citation:

Envoyé par coco1397

Ma fonction se lance sur Excel, c’est pour ça. Faudrait que je lance une discussion sur un autre forum (VBA Word) ?

Etant donné que la question se rapporte à des objets Word, je pense que ce serait judicieux.
Le fait que la macro se lance dans Excel, dans Word ou dans PowerPoint ne changera sans doute rien à la réponse (mais je peux me tromper, ne sachant pas tout de ton problème).

Merci de ta réponse ! Je vais créer une discussion du même genre sur le forum Word VBA ! Je laisse la discussion ouverte ici en attendant qu’éventuellement quelqu’un ait une réponse tout de même :)

C'est tout bon.
Le problème venait d'un fichier un word qui la fonction allait chercher et il y avait des champs en trop.... Tout simplement...