Bouton pour publipostage avec chemin du xls

M

MichelXld

XLDnaute Barbatruc

• 28 Juin 2006

• #2

bonjour

La macro ci dessous permet de lancer l'impression du document de publipostage depuis Excel. Pour les essais , j'ai placé cette procedure dans le classeur contenant la base de données et je n'ai pas rencontré de problème particulier .
J'ai utilisé une connection OLE DB ( par défaut) pour la fusion entre le document Word et la base de données Excel .


Private Sub CommandButton3_Click()
Dim DocWord As Word.Document
Dim AppWord As Word.Application

Application.ScreenUpdating = False
Set AppWord = New Word.Application
AppWord.Visible = False
Set DocWord = AppWord.Documents.Open('C:\\\\\\\\dossier.doc')

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

Application.ScreenUpdating = True
DocWord.Close False
AppWord.Quit
End Sub


bon apres midi
MichelXld

 

Vote positif 0 Vote négatif

N

n3Twork

XLDnaute Occasionnel

• 29 Juin 2006

• #3

bonjour , J'ai une erreur sur

Dim DocWord As Word.Document
Dim AppWord As Word.Application

non defini ...

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 29 Juin 2006

• #4

bonjour

dans l'editeur de macros :
Menu Outils
References
Coche la ligne 'Microsoft Word xx.x Object Library'
Clique sur OK pour valider


bon apres midi
MichelXld

 

Vote positif 0 Vote négatif

N

n3Twork

XLDnaute Occasionnel

• 29 Juin 2006

• #5

re boujour tous
ca marche a peu pret mais j'ai une erreur :

End With
.Execute Pause:=False
End With

Cliquez pour agrandir...

ps j'ai coché la petite case de la librairie.

 

Vote positif 0 Vote négatif

N

n3Twork

XLDnaute Occasionnel

• 29 Juin 2006

• #6

voila sa marche

merci
jai adapter le code a mes fin pour qu'il m'ouvre seulement le fichier word avec la bonne base excel

Code:

Private Sub CmdPubliP_Click()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Application.ScreenUpdating = False
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open('S:\\fichier.doc')
Application.ScreenUpdating = True
End Sub

Message édité par: n3Twork, à: 29/06/2006 14:11

 

Vote positif 0 Vote négatif

N

n3Twork

XLDnaute Occasionnel

• 29 Juin 2006

• #7

edit

sa marche bien 😉

Message édité par: n3Twork, à: 29/06/2006 14:50

 

Vote positif 0 Vote négatif