erreur 424 objet requis

[girldy]

bonjour tout le monde,

je dois réaliser une base de donnée sur access mais lors de l'exécution d'un bouton sur mon formulaire au lieu que mon document word s'ouvre avec le publipostage, j'ai un mesage d'erreur qui apparait erreur 424 objet requis voici ma formule:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Cocher88_DblClick(Cancel As Integer)
Dim objWord As Word.Document
Set objWord = GetObject("C:\Users\SISSI\Documents\Annexe\ATTESTATION DE CAPACITE.doc", "Word.Document")
 
objWord.Application.Visible = True
 
objWord.MailMerge.OpenDataSource _
        oFl.Path = "F:\bdd0.mdb", _
        LinkToSource:=True, _
        Connection:="QUERY REQUÊTE 2", _
        SQLStatement:="SELECT * FROM [REQUÊTE 2]"
objWord.MailMerge.Execute
Set objWord = Nothing

le debogage s'affiche sur la ligne 7

je pourrais avoir de l'aide s'il vous plait
Merci à tous d'avance

[argyronet]

Bonjour,

Ton script comporte une syntaxe un peu capilotracté...
Déjà, évite le GetObject() car cela suppose que Word soit déjà ouvert d'une part et que ton document le soit également d'autre part.
Ton erreur vient sans doute de l'objet oFl qui se balade quel part dans ton code et dont on ne sait pas pourquoi il est là... D'après sa syntaxe, il semble que c'est un objet FSO... ou Dialog.

Bref, tu dois plutôt écrire ton code dans une fonction qui sera appelé par ton contrôle, celle-ci renvoyant un succès ou un échec avec l'algo suivant :

1. Vérifier existence fichier doc
2. Vérifier présence et non exclusivité de la DB
3. Instancier Word
4. Vérifier Instance Word (<>Nothing)
5. Ouvrir le document dans un objet Document via l'objet Word
6. Vérifier que le document actif est le document principal auquel est associée la source de données.
7. Effectuer la fusion
8. Enregistrer ou publier selon le cas
9. Fermer le doc
10. Quitter Word
11. Mettre les objets à Nothing

Argy