Erreur 5922 VBA EXCEL

Bonjour,

Je suis sous Win11, depuis quelques mois, suite office 365.
J'avais un fichier que j'avais fait pour des collaborateurs, avec un fichier EXCEL, contenant une base de données et sur cette base de données, un bouton permettant l'ouverture d'un fichier Word pour un publipostage créant des diplômes avec les éléments dans la base de données EXCEL.

Depuis quelques temps, lorsque je clique sur le bouton dans le fichier EXCEL, j'ai une erreur 5922 qui apparait me disant que word ne trouve pas la base de données.
j'ai repris le fichier word, les éléments du publipostage et systématiquement, j'ai toujours cette erreur.
Ci-dessous, le code VBA associé à mon bouton dans excel.

Je vous remercie pour votre aide.

Gilles.

Citation:

---

Sub Main()

Dim oWdApp As Word.Application

'Lancer Word
Set oWdApp = CreateObject("Word.Application")

With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
.Documents.Open (ActiveWorkbook.Path & "\DIPLOME GLOCK CQP.docm")
'Exécuter la macro
.Run ("DiplomeGlock")
End With



'Libérer les ressources
Set oWdApp = Nothing

End Sub

---

Hello,

1 chose me fait tiquer bien que ça ne soit certainement pas la source de l'erreur : Documents.Open (ActiveWorkbook.Path
Documents.Open est une instruction Word mais ActiveWorkbook.Path appartient à Excel, du coup, qui exécute quoi ?
Perso j'aurais mis le ActiveWorkbook.Path dans une variable, mais bon...

A part ça, le problème ne vient pas d'Excel (si le doc DIPLOME GLOCK CQP.docm s'ouvre) mais plutôt de Word, il faudrait voir le document en question

Bonjour Nain Porte Quoi,

Alors, je ne suis pas un connaisseur du visual basic, la commande présente, je l'ai faite en suivant des indications d'un forum.
Pour explication, le bouton exécutant cette commande VB est sur le fichier EXCEL et ouvre normalement le fichier WORD avec le publipostage

J'ai testé le fichier publipostage en utilisation word directe et en indiquant la source de données EXCEL et tout fonctionne...

Je pensais que c'était l'action du bouton dans excel qui indiquait la mauvaise commande...

A suivre.

Vous pouvez poster le code du fichier word ?
Utilisez le bouton # pour mettre le code entre balise

Bonjour,

Le message sous entend que votre document Word est un document principal de publipostage associé à une base de données, et que le document word ne trouve plus la base de données
Il faut ouvrir le document word manuellement et vérifier pourquoi il ne trouverait plus la base de données, si elle a été déplacée, renommée, ou si c'est encore OneDrive qui a mis le *%*/! dans les adresses de fichiers

Tototiti,

Merci mais effectivement, le fichier a été déplacé mais il est prévu qu'il puisse l'être par contre, maintenant je viens de le stocker dans ONEDRIVE...
Donc demain, je vais le redéplacer pour le mettre en dehors de onedrive et redonner le chemin d'accès à word.

merci.

Re,

attention, Word est un peu konkon sur ce coup, pour lui la base de données à un chemin absolu, donc si vous la déplacez ça ne fonctionne plus

Citation:

---

Envoyé par Nain porte koi

Re,

attention, Word est un peu konkon sur ce coup, pour lui la base de données à un chemin absolu, donc si vous la déplacez ça ne fonctionne plus

---

Justement ce fichier avec publipostage est créé à la base pour pouvoir être déplacé. (dossier complet).
Il est stocké sur un serveur et les personnels peuvent l'utiliser en le téléchargeant. Il fonctionnait comme ça pendant très longtemps.

Merci pour votre aide.

Si ça fonctionne comme ça c'est que la macro génère le publipostage en attachant la source de données au moment de l'ouverture.
C'est pour ça que je vous demandais le code VBA de Word et si le fichier à été enregistré AVEC la liaison elle doit donc générer une erreur au démarrage... (ou c'est encore un coup de onedr*** de m*** :weird:)

Re,

Pour compléter les remarques de Nain, si c'est la macro Word qui fait le lien vers les données de publipostage, vérifier si le dernier chemin, qui aurait changé depuis, n'a pas été enregistré avec le document Word ce qui entrainerait le plantage à l'ouverture mais serait ensuite corrigé par la macro Word

En tout cas le code du document Word pourrait nous aider

Edit : je me rappelle avoir eu des plantages de publipostages si le chemin de la source est trop long dans le passé, je ne sais pas si ça a été corrigé depuis

Ok, effectivement, je ne me rappelai plus mais il y a également un code VBA sur le document word, le voici.

J'avais dû comprendre lors de la création du code comment il fonctionnait mais maintenant c'est incompréhensible pour moi.

Encore merci pour votre aide.

Gilles.

Citation:

---

Sub DiplomeGlock()
'
' DiplomeGlock Macro
' Publipostage automatique pour Diplome Glock CQP TDF
'
ActiveDocument.MailMerge.OpenDataSource Name:= _
ActiveDocument.Path & "\01 - Programme Tir CQP Version Auto.xlsm" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=ActiveDocument.Path & \01 - Programme Tir CQP Version Auto.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet " _
, SQLStatement:="SELECT * FROM `'BASE SECURISEE$'`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess


With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With

End Sub

---

Ok, c'est donc bien la macro qui créée la liaison avec le fichier "01 - Programme Tir CQP Version Auto.xlsm"
Plusieurs questions :
Est ce que le fichier "01 - Programme Tir CQP Version Auto.xlsm" est bien présent dans le même dossier ?
Quand vous ouvrez le fichier DIPLOME GLOCK CQP.docm tout seul, est ce qu'il est déjà en mode "publipostage", cad que vous pouvez voir les données variables ?
En fait, sans le fichier word je ne vois rien, donc difficile de diagnostiquer.
S'il n'est pas confidentiel ou si vous pouvez l'anonymiser il serait utile de le joindre