"Erreur d'exécution 462" à la deuxième application d'une macro

**Lexie91** · 04/11/2015, 16h20

Bonjour,

J'ai créé une macro sur Excel qui me permet de générer automatiquement deux documents Word et qui les enregistre à leur place sur le serveur. Lorsque je clique une première fois sur "générer les documents", je n'ai aucun souci et tout se passe bien : mon attestation et ma convention sont créées sur Word et enregistrées chacune à leur emplacement puis Word se ferme. Mais quand je clique une seconde fois sur le bouton "générer les documents", j'ai un message d'erreur qui apparaît : "Erreur d'exécution 462, le serveur distant n'existe pas ou n'est pas disponible".

Voici mon code, et Excel me surligne en jaune quand je clique sur "débogage" la première partie "enregistrer sous". (désolée pour toutes les lignes inutiles, mais j'ai besoin d'espace pour me retrouver dans mes différentes parties de 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Sub publi_convention_attestation()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim docWord As Word.Document
    Dim appWord As Word.Application
    Dim NomBase As String
    Dim convention As Variant
        Set convention = Sheets("Publipostage attestation")
    Dim nom As Variant
        nom = Sheets("Base à remplir").Range("C18").Value
    Dim module As Variant
        module = Sheets("Base à remplir").Range("C12").Value
 
    'Chemin = activeworksheets
    NomBase = "J:\Publipostages\Matrice RB.xlsm"
 
    '_______________________________________________________________________________
    
    'Ouverture Word
    Application.ScreenUpdating = False
    Set appWord = New Word.Application
    appWord.Visible = True
 
    'Ouverture Attestation Word
    Set docWord = appWord.Documents.Open("J:\Publipostages\Attestation RB - modèle.doc")
    nom = Sheets("Base à remplir").Range("C18").Value
 
    'fonctionnalité de publipostage pour le document spécifié
    With docWord.MailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
            SQLStatement:="SELECT * FROM [Publipostage attestation$]"
            'Spécifie la fusion
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
 
    'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
 
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With
 
    'Sauvegarde le fichier sous un nom particulier'
        ActiveDocument.SaveAs Filename:= _
        "J:\ATTESTATIONS\Attestation " & module & " - " & nom & ".docx" _
        , FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
        'ActiveWindow.Close
 
     Application.ScreenUpdating = True
 
     'Fermeture de Word
    docWord.Close False
    Set docWord = Nothing 'rajouté'
 
   '_______________________________________________________________________________
       
    'Ouverture Convention Word
    Set docWord = appWord.Documents.Open("J:\Publipostages\Convention RB - modèle.doc")
    nom = Sheets("Base à remplir").Range("C18").Value
 
    'fonctionnalité de publipostage pour le document spécifié
    With docWord.MailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
            SQLStatement:="SELECT * FROM [Publipostage Conventions$]"
            'Spécifie la fusion
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
 
    'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
 
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With
 
    'Sauvegarde le fichier sous un nom particulier'
        ActiveDocument.SaveAs Filename:= _
        "J:\CONVENTIONS\Convention " & module & " - " & nom & ".docx" _
        , FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
        'ActiveWindow.Close
 
     Application.ScreenUpdating = True
 
    'Fermeture du document Word
    docWord.Close False
    Set docWord = Nothing 'rajouté"
    appWord.Quit
    Set appWord = Nothing 'rajouté'
End Sub

Je ne vois pas du tout où je pourrais changer le code pour que ça fonctionne "à l'infini"...

**Marc-L** · 04/11/2015, 16h33

Bonjour !

Le B-A-BA est de placer un point d'arrêt sur la ligne fautive puis, après avoir lancé l'exécution,
de vérifier enfin le contenu de ses variables dans la fenêtre des Variables Locales …

______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

**Lexie91** · 04/11/2015, 17h20

Désolée, je n'ai pas la B-A-BA étant donné que je n'ai jamais pris de cours de VBA de ma vie et que cette macro est la première que je fais...
J'ai "bricolé" comme j'ai pu à partir de codes trouvés sur le net ou via les macro "préenregistrées" que j'ai faites à l'aide de Word ou Excel.

Donc mon code est surement très loin d'être parfait ou de suivre les "règles de base", et c'est en partie pour ça que je préfère venir demander à des gens qui s'y connaissent un peu mieux...

**illight** · 04/11/2015, 17h28

TU peux nous dire sur quelle ligne ça plante exactement (au niveau du code que tu as mis) ?

Sinon, je pense que c'est plus un pb de process Word, qui ne sait plus où il en est.
Essaye de mettre ta ligne :

Code :

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

appWord.Quit

avant la ligne 64, qui te permettra de "quitter" l'application Word, puis de la rouvrir correctement.

**Lexie91** · 05/11/2015, 10h52

Dans mon code actuel, l'erreur surlignée en jaune correspond aux lignes 47 à 52 inclues.

J'avais déjà essayé de faire fermer Word avec appWord.quit, je l'ai d'ailleurs refait ici pour tester (remplacement à partir de la ligne 57) :

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
'Fermeture de Word
    docWord.Close False
    appWord.Quit
    Set docWord = Nothing 'rajouté'
 
   '_______________________________________________________________________________
       
     'Ouverture Word
    Application.ScreenUpdating = False
    Set appWord = New Word.Application
    appWord.Visible = True
 
    'Ouverture Convention Word
    Set docWord = appWord.Documents.Open("J:\Publipostages\Convention RB - modèle.doc")
    nom = Sheets("Base à remplir").Range("C18").Value

Et du coup l'erreur se "déplace" sur le 2e "enregistrer sous" qui correspond aux lignes 87 à 93 de mon code dans mon message initial.

**clementmarcotte** · 05/11/2015, 22h16

Bonjour,

Envoyé par Lexie91

Dans mon code actuel, l'erreur surlignée en jaune correspond aux lignes 47 à 52 inclues.

J'ai (déjà) eu une histoire similaire avec Office 2010.

Si c'est comme chez-moi, ton code original avec les paramètres nommés est obligatoire quand tu as une macro dans Word pour enregistrer dans Word

Code :

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

1
2
3
4
5
6
7
  ActiveDocument.SaveAs Filename:= _
        "J:\ATTESTATIONS\Attestation " & module & " - " & nom & ".docx" _
        , FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
        'ActiveWindow.Close

Et toujours si c'est comme chez-moi, quand on pilote Word à partir d'une autre application, les paramètres nommés ne marchent pas, et il faut revenir à la vieille notation:

Code :

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

1
2
3
dim Nom as string
Nom= "J:\ATTESTATIONS\Attestation " & module & " - " & nom & ".docx"
ActiveDocument.SaveAs (Nom)

**Lexie91** · 06/11/2015, 10h12

Je viens d'essayer en notant ça :

Code :

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

1
2
3
4
        'Sauvegarde le fichier sous un nom particulier'
        Dim NomAttestation As String
        NomAttestation = "J:\ATTESTATIONS\Attestation " & module & " - " & Nom & ".docx"
        ActiveDocument.SaveAs (NomAttestation)

A la première utilisation, tout va bien, mais à la seconde, la ligne 4 a la même erreur qu'avec mon code initial...
Ca va me rendre folle je crois.

**Marc-L** · 06/11/2015, 12h36

Donc l'erreur se situe à la ligne précédente : encore une fois, vérifier le contenu des variables !

**Lexie91** · 06/11/2015, 14h18

J'ai repris toutes mes variables depuis le début, j'ai revérifié à quoi elles correspondaient, j'en ai renommé certaines (dont "module" qui apparaissait en bleu dans le code), j'en ai même supprimé une qui au final n'était pas utilisée... Le souci persiste (ligne 48), et je ne vois vraiment pas où vous voulez en venir Marc-L.

Et à la ligne précédente je ne vois vraiment pas où peut être le souci : ma variable NomAttestation est bien un texte, et elle correspond bien au chemin indiqué...

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Sub publi_convention_attestation()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
 
    'Variables
    Dim docWord As Word.Document
    Dim appWord As Word.Application
    Dim NomBase As String
        NomBase = "J:\Publipostages\Matrice RB.xlsm"
    Dim NomPersonne As Variant
        NomPersonne = Sheets("Base à remplir").Range("C18").Value
    Dim ModuleSuivi As Variant
        ModuleSuivi = Sheets("Base à remplir").Range("C12").Value
    Dim NomAttestation As String
        NomAttestation = "J:\ATTESTATIONS\Attestation " & ModuleSuivi & " - " & NomPersonne & ".docx"
    Dim NomConvention As String
        NomConvention = "J:\CONVENTIONS\Convention " & ModuleSuivi  & " - " & NomPersonne & ".docx"
 
    '_______________________________________________________________________________
    
    'Ouverture Word
    Application.ScreenUpdating = False
    Set appWord = New Word.Application
    appWord.Visible = True
 
    'Ouverture Attestation Word
    Set docWord = appWord.Documents.Open("J:\Publipostages\Attestation RB - modèle.doc")
 
    'fonctionnalité de publipostage pour le document spécifié
    With docWord.MailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
            SQLStatement:="SELECT * FROM [Publipostage attestation$]"
            'Spécifie la fusion
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
 
    'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
 
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With
 
        'Sauvegarde le fichier sous un nom particulier'
        ActiveDocument.SaveAs NomAttestation
 
     Application.ScreenUpdating = True
 
     'Fermeture de Word
    docWord.Close False
    Set docWord = Nothing 'rajouté'
 
   '_______________________________________________________________________________
       
    'Ouverture Convention Word
    Set docWord = appWord.Documents.Open("J:\Publipostages\Convention RB - modèle.doc")
 
    'fonctionnalité de publipostage pour le document spécifié
    With docWord.MailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
            SQLStatement:="SELECT * FROM [Publipostage Conventions$]"
            'Spécifie la fusion
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
 
    'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
 
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With
 
    'Sauvegarde le fichier sous un nom particulier'
        ActiveDocument.SaveAs NomConvention
 
     Application.ScreenUpdating = True
 
    'Fermeture du document Word
    docWord.Close False
    Set docWord = Nothing 'rajouté"
    appWord.Quit
    Set appWord = Nothing 'rajouté'
End Sub

**Lexie91** · 21/12/2015, 12h24

Un petit up de mon sujet, je n'ai toujours pas réussi à régler ce souci d'erreur à la deuxième application de la macro...

**SfJ5Rpw8** · 21/12/2015, 12h30

Bonjour,

Il faut éviter d'utiliser les objets ActiveCell, ActiveSheet, ActiveWorkBook ... et encore mieux ActiveDocument (c'est word et pas excel ...) , tu as une variable (docWord) pointant sur ton document word , utilise la ...

**Marc-L** · 21/12/2015, 12h31

Lors de la seconde tentative, exécuter le code en mode pas à pas via la touche F8
tout en contrôlant le contenu de la fenêtre des Variables locales …

Effectivement, ActiveDocument n'existe pas dans Excel ! Ne manquerait-il pas un point devant ?
Mais mieux vaut suivre le conseil avisé de bbil …

**patricktoulon** · 21/12/2015, 12h35

Bonjour

bonjour sur un serveur distant tu dis ?,

a tu seulement essayé de faire une pause entre les 2 fois ?

va voir cette discution
http://www.developpez.net/forums/d82...-inaccessible/

**Lexie91** · 21/12/2015, 14h53

Envoyé par bbil

Bonjour,

Il faut éviter d'utiliser les objets ActiveCell, ActiveSheet, ActiveWorkBook ... et encore mieux ActiveDocument (c'est word et pas excel ...) , tu as une variable (docWord) pointant sur ton document word , utilise la ...

J'ai essayé en effet de remplacer avec la variable docWord, mais du coup il enregistre sur le serveur le document modèle pour le publipostage sous le nom que je veux, et non pas le nouveau document créé, et il termine par me demander si je veux enregistrer "lettre1", qui est donc le document qui devrait aller s'enregistrer seul sur le serveur.
Je peux créer une variable qui renvoie au nouveau document créé par le publipostage ?

Envoyé par patricktoulon

Bonjour

bonjour sur un serveur distant tu dis ?,

a tu seulement essayé de faire une pause entre les 2 fois ?

Mon problème reste identique, même quand je mets mes documents sur mon bureau et non plus sur le serveur. J'avais aussi déjà essayé d'attendre mais rien ne changeait.

**patricktoulon** · 21/12/2015, 15h02

re
une simple fonction d'attente a appeler apres l'apel de l'ouverture de word

Code :

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

1
2
3
4
5
 
Function Wait_world()
Dim objShell As Object  
Do: DoEvents:Set objShell = GetObject(, "Word.Application") :Loop Until objShell Is Nothing
End Function

edit: integration du set dans le do