Bonjour à tous,
Je ne suis pas très doué en VBA mais je me retrouve bloqué
sur une macro qui doit réaliser l'ouverture, à partir d'un
fichier Excel, d'un fichier Word préfabriqué avec un
publipostage.
J'ai tourné sur internet pour trouver mais ca ne marche toujours pas.
L'ouverture du fichier Word se fait très bien, mais le publipostage est
désactivé et cela ne me permet pas de fusionner. A ce que je peut
voir c'est la mise en place de la source de donnée du publipostage qui
se trouve être le fichier Excel de base qui n'arrive pas à ce
mettre en place car les champs de fusion apparaisse bien mais pas moyen de les
manipuler.
Voila ce que j'ai écrit actuellement :
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("C:DesktopMatrice
publipostage.docx")
ActiveDocument.MailMerge.OpenDataSource Name:="C:DesktopAppli
v11complet.xlsm", _
ConfirmConversions:úlse, ReadOnly:úlse, LinkToSource:=True, _
AddToRecentFiles:úlse, PasswordDocument:="",
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:úlse, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User
IDmin;Data Source= C:DesktopAppli v11complet.xlsm;Mode=Read;Extended
Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System
database="""";Jet OLEDB:Registry
Path="""";Jet OLEDB:Database
Password="""";Jet OLEDB:Engine Type5;Jet",
SQLStatement:="SELECT * FROM `Feuil1$`", SQLStatement1:="",
SubType:=wdMergeSubTypeAccess
ActiveDocument.FollowHyperlink WordDoc
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:úlse
End With
Avec cette synthaxe, il me demande un objet requit au niveau de la ligne
"Provider= ..."
Je vous remercie par avance si vous pouviez m'apporter de l'aide.
Bonjour à tous,
Je ne suis pas très doué en VBA mais je me retrouve bloqué
sur une macro qui doit réaliser l'ouverture, à partir d'un
fichier Excel, d'un fichier Word préfabriqué avec un
publipostage.
J'ai tourné sur internet pour trouver mais ca ne marche toujours pas.
L'ouverture du fichier Word se fait très bien, mais le publipostage est
désactivé et cela ne me permet pas de fusionner. A ce que je peut
voir c'est la mise en place de la source de donnée du publipostage qui
se trouve être le fichier Excel de base qui n'arrive pas à ce
mettre en place car les champs de fusion apparaisse bien mais pas moyen de les
manipuler.
Voila ce que j'ai écrit actuellement :
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("C:DesktopMatrice
publipostage.docx")
ActiveDocument.MailMerge.OpenDataSource Name:="C:DesktopAppli
v11complet.xlsm", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User
ID=Admin;Data Source= C:DesktopAppli v11complet.xlsm;Mode=Read;Extended
Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System
database="""";Jet OLEDB:Registry
Path="""";Jet OLEDB:Database
Password="""";Jet OLEDB:Engine Type5;Jet",
SQLStatement:="SELECT * FROM `Feuil1$`", SQLStatement1:="",
SubType:=wdMergeSubTypeAccess
ActiveDocument.FollowHyperlink WordDoc
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
Avec cette synthaxe, il me demande un objet requit au niveau de la ligne
"Provider= ..."
Je vous remercie par avance si vous pouviez m'apporter de l'aide.
Bonjour à tous,
Je ne suis pas très doué en VBA mais je me retrouve bloqué
sur une macro qui doit réaliser l'ouverture, à partir d'un
fichier Excel, d'un fichier Word préfabriqué avec un
publipostage.
J'ai tourné sur internet pour trouver mais ca ne marche toujours pas.
L'ouverture du fichier Word se fait très bien, mais le publipostage est
désactivé et cela ne me permet pas de fusionner. A ce que je peut
voir c'est la mise en place de la source de donnée du publipostage qui
se trouve être le fichier Excel de base qui n'arrive pas à ce
mettre en place car les champs de fusion apparaisse bien mais pas moyen de les
manipuler.
Voila ce que j'ai écrit actuellement :
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("C:DesktopMatrice
publipostage.docx")
ActiveDocument.MailMerge.OpenDataSource Name:="C:DesktopAppli
v11complet.xlsm", _
ConfirmConversions:úlse, ReadOnly:úlse, LinkToSource:=True, _
AddToRecentFiles:úlse, PasswordDocument:="",
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:úlse, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User
IDmin;Data Source= C:DesktopAppli v11complet.xlsm;Mode=Read;Extended
Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System
database="""";Jet OLEDB:Registry
Path="""";Jet OLEDB:Database
Password="""";Jet OLEDB:Engine Type5;Jet",
SQLStatement:="SELECT * FROM `Feuil1$`", SQLStatement1:="",
SubType:=wdMergeSubTypeAccess
ActiveDocument.FollowHyperlink WordDoc
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:úlse
End With
Avec cette synthaxe, il me demande un objet requit au niveau de la ligne
"Provider= ..."
Je vous remercie par avance si vous pouviez m'apporter de l'aide.