Discussion :

[deglingo37]

Bonjour,

J'ai un formulaire basé sur une requête que je souhaiterais exporter en publipostage. Comme c'est une requête paramétrée elle n'aparait pas dans word pour le publipostage. J'ai donc cherché un peu sur le forum et j'ai trouvé une solution : creer une requete ajout qui m'enregistre les données dans une table que j'utilise pour le publipostage.
Voici mon 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
 
Private Sub ImprimerConvocation_Click()
Dim qdf As DAO.QueryDef
Dim wdapp As Word.Application
DoCmd.SetWarnings (warningsoff)
CurrentDb.Execute "Delete From TExport"
Set qdf = CurrentDb.QueryDefs("RAjoutConvocation1")
qdf.Execute
DoCmd.SetWarnings (warningson)
Set wdapp = CreateObject("Word.application")
With wdapp
       .Visible = True
      .Documents.Open "Z:\Administratif\BaseAccess\Convocations\Convocation"
End With
Set wdapp = Nothing
Set qdf = Nothing
End Sub

J'ai une erreur sur la ligne

Code :

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

qdf.Execute

erreur :

Trop peu de paramètres. 1 atendu.

Ce qui est étrange c'est que quand j'execute la requete en double cliquant dessus sans passer par VBA ca fonctionne.
A votre avis d'ou vient mon problème ?
Je suis pas sure d'avoir été très clair alors si vous avez des questions n'hesitez pas.

merci

[deglingo37]

J'ai reussi a trouver ce qui n'allait pas, pour ceux que ca interesse voici le code final :

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
 
Private Sub ImprimerConvocation_Click()
Dim rqt As String
Dim wdapp As Word.Application
DoCmd.SetWarnings (warningsoff)
CurrentDb.Execute "Delete From TExport"
rqt = "RAjoutConvocation1"
DoCmd.OpenQuery rqt, acNormal, acEdit
DoCmd.SetWarnings (warningson)
Set wdapp = CreateObject("Word.application")
With wdapp
       .Visible = True
      .Documents.Open "Z:\Administratif\BaseAccess\Convocations\Convocation"
End With
Set wdapp = Nothing
End Sub