cs_pcvesoul
Messages postés123Date d'inscriptionvendredi 21 janvier 2005StatutMembreDernière intervention25 juillet 2007
-
9 août 2005 à 13:24
cs_pcvesoul
Messages postés123Date d'inscriptionvendredi 21 janvier 2005StatutMembreDernière intervention25 juillet 2007
-
9 août 2005 à 15:36
Bonjour.
J'ai un document word fusionne avec un document excel qui sert donc de document source. Voici le code que j'utilise :
Dim WordApp As Word.Application
Dim Modele As Word.Document
Set WordApp = CreateObject("Word.Application")
Set Modele = WordApp.Documents.Open(Texte(2) & "" & Texte(3))
With Modele.MailMerge
.OpenDataSource "Chemin\NomDoc.xls"
End With
Modele.Close
Set Modele = Nothing
WordApp.Quit
Set WordApp = Nothing
Pas de problème sauf que :
- Il me demande le nom de la feuille alors que c'est toujours la feuille 1 qui doit etre fusionnée.
- Le format de mes champs numériques "0.00" est perdu (plus de formatage sur les décimales).
Si vous pouviez m'aider, je vous en serait bien reconnaissant.