Sujet Précédent Sujet Suivant

Création d'un bouton pour lancer un publipostage apd d'access

C3DScredi Messages postés 7 Date d'inscription mardi 14 mars 2006 Statut Membre Dernière intervention 2 juin 2008 - 2 juin 2008 à 13:35
C3DScredi Messages postés 7 Date d'inscription mardi 14 mars 2006 Statut Membre Dernière intervention 2 juin 2008 - 2 juin 2008 à 16:04
Bonjour,

Je suis en train de faire mon travail de fin d'étude et j'ai besoin d'un bouton qui, lorsque je clic dessus, lance un publipostage a partir d'une requete de sélection que j'ai créé.

Qqn pourrait-il m'expliquer la marche à suivre ?

Merci d'avance.

2 réponses

Réponse 1 / 2
C3DScredi Messages postés 7 Date d'inscription mardi 14 mars 2006 Statut Membre Dernière intervention 2 juin 2008
2 juin 2008 à 13:57
J'ai essayé avec la méthode décrite ici http://heureuxoli.developpez.com/publipostage/#LI-B-5
mais j'ai quelques problemes : d'abord je veux faire le publipostage a partir d'une requete et non d'une table. J'ai supposé qu'il fallait remplacer TABLE par QUERY ds le code mais rien de sur ^^

le code original était 
Sub
MergeIt
() 
Dim
objWord 
As
Word
.
Document
Set
objWord 
=
GetObject
(
"
C:\Local
Data\Access\Publipostage\Publipostage.doc
"
, 
"
Word.Document
"
)



<code class="vb_comment1">'
Rend
Word
visible
important
puisque
la
fusion
se
fait
à
l'écran.


objWord
.
Application
.
Visible
=
True


'
Sélectionne
.la
base
de
données
Comptoir
comme
source
de
données
pour
la
fusion


objWord
.
MailMerge
.
OpenDataSource
 _

Name:
=
"
C:\Local
Data\Access\Publipostage\Comptoir.mdb
"
, _

LinkToSource:
=
True
, _

Connection:
=
"
TABLE
Employés
"
, _

SQLStatement:
=
"
SELECT
*
FROM
[Employés]
"


'
Exécution
de
la
fusion.


objWord
.
MailMerge
.
Execute


Set
 objWord 
=
Nothing




End
Sub

apres ma modif c'est

Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("D:\Cours\2 eme année\Access\TFE 2008\Courrier type retards.doc", "Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données Comptoir comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
        Name:="D:\Cours\2 eme année\Access\TFE 2008\TFE.mdb", _
        LinkToSource:=True, _
        Connection:="QUERY Jeux non rentrés pour publipostage", _
        SQLStatement:="SELECT * FROM [Jeux non rentrés pour publipostage]"
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing

End Sub


Je sais pas si c'est bon mais de toute facon j'ai une autre erreur: Quand j'appuye sur le bouton, j'ai une erreur : erreur de compilation: Type défini par l'utilisateur non défini.



Quelqu'un peut m'aider ?

</code>
                
                

    
        

    
            
        0
        
        
    

            



    

        
        
    


        

                            

                        


    

        
        
    

                    

                        

                    

        

    

        

            
        

    

    

    

        

        
        
        

                        Réponse 2 / 2
        


        
                        
                    

                

        

                    

        
    

    

 
        

                

            
            C3DScredi
     
    
                    Messages postés
            
                    
    7 
            
                            Date d'inscription
            mardi 14 mars 2006
                            Statut
            Membre
                            Dernière intervention
             2 juin 2008
            

                    

                     2 juin 2008 à 16:04
                        

    


    

                        

                    Personne ne peut m'aider ? Je dois avoir fini pour demain 11h :s
                
                

    
        

    
            
        0
        
        
    

            



    

        
        
    


        

                

                    

        

    

        

            
        

    

    

    

        

        
    

        

        
        
    

        
    


    

    



    






                        

                    

                


                

    


    







    

        Rejoignez-nous