Bouton pour publipostage avec chemin du xls

[n3Twork]

bonjour sur mon userform j'ai un bouton et je voudrai qui m'ouvre mon fichier .doc avec comme base de donnée le fichier actuel sur lequel je suis... afin de faire du publipostage j'ai trouver ce code mais il ne mùarche pas ... et je voit pas pourquoi ...

Private Sub CmdPubliP_Click()

wdapp.ActiveDocument.MailMerge.OpenDataSource Name:='S:\\monfichier.doc'
Set wdapp = CreateObject('Word.application')
With wdapp
.Documents.OpenName = 'S:\\monfichier.doc'
.ActiveDocument.MailMerge.Destination = wdSendToNewDocument
.ActiveDocument.MailMerge.Execute
End With
End Sub

merci de votre aide

 

[MichelXld]

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

 

[n3Twork]

bonjour , J'ai une erreur sur

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

non defini ...

 

[MichelXld]

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

 

[n3Twork]

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

End With
.Execute Pause:=False
End With

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

 

[n3Twork]

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

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

 

[n3Twork]

edit

sa marche bien 😉

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