Exportation des données excel dans un document word [Résolu]

Messages postés
32
Date d'inscription
vendredi 31 juillet 2009
Statut
Membre
Dernière intervention
17 février 2015
- - Dernière réponse : cs_Franck93150
Messages postés
32
Date d'inscription
vendredi 31 juillet 2009
Statut
Membre
Dernière intervention
17 février 2015
- 30 juin 2012 à 19:30
Bonjour,


J'ai un document word dans lequel je doit rentrer des données (c'est un courrier type sur lequel j'insere des données personnalisées au destinataire).
Je voudrais pouvoir rentrer ces données dans une feuille excel, et faire ensuite fusionner les deux fichiers, de sorte que les données saisies dans excel aille s'insérer dans le document word.

Cela est-il possible ?
Merci par avance pour votre aide.
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
38
Date d'inscription
jeudi 27 septembre 2007
Statut
Membre
Dernière intervention
25 mars 2014
3
Merci
Bonjour,
Il faut d'abord créér ton fichier xlsm (entetes col. + données)
puis crééer le doc Word en publipostage pour declarer les champs de fusion

ensuite le code :

oWordApp = CreateObject("Word.Application")
oWordApp.Application.Visible = False
oWordApp.Documents.Open(WFic)
oWordApp.Selection.Find.ClearFormatting()
oWordApp.ActiveDocument.MailMerge.OpenDataSource (Name:="J:\DocImpr.xlsm",ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True,AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=J:\DocImpr.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global" _
, SQLStatement:="SELECT * FROM `Feuil1$`", SQLStatement1:="") ', SubType:= wdMergeSubTypeAccess)

With oWordApp.ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute(Pause:=False)
End With
oWordApp.ActiveDocument.SaveAs(WNomFic, _
fileFormat:=wdFormatXMLDocumentMacroEnabled,LockComments:=False, _
Password:="", AddToRecentFiles:=True, WritePassword:="", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False)
oWordApp.ActiveDocument.Close(wdDoNotSaveChanges)
oWordApp.Documents.Close(wdDoNotSaveChanges)
oWordApp.Quit(wdDoNotSaveChanges)
oWordApp = Nothing

Bon courage !

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 218 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_viviane44
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
61
0
Merci
Salut

Regarde dans l'aide de Word sur le sujet du "Publipostage", c'est fait pour ça.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Commenter la réponse de cs_Jack
Messages postés
32
Date d'inscription
vendredi 31 juillet 2009
Statut
Membre
Dernière intervention
17 février 2015
0
Merci
Bonjour,

Je te remercie énormément pour ton aide viviane44, car je débute dans le domaine, et n'ai que quelques infimes notions.
Je te remercie vraiment, car c'est vraiment de l'entraide.


merci encore, tu es excellente, merci
Commenter la réponse de cs_Franck93150