Pb avec macro publipostage excel vers word

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jozerebel

XLDnaute Occasionnel
Bonjour,


J'ai un petit souci avec une macro qui est censée faire un publipostage depuis des données excel vers un modèle word.

En fait, parfois, les montants saisis sous excel se transforment sous word et ne donnent plus du tout la même chose!!!!

Je ne comprends pas pourquoi et ne sais plus quoi faire pour que les données excel soit prises correctement!

merci de votre aide.


Voilà ma macro :

Sub publi()


'ouvrir application word publipostage

'Nécessite d'activer la référence "Microsoft Word xx.x Object Library" 'ca c ok'
Dim docWord As Word.Document
Dim appWord As Word.Application
Dim NomBase As String
Dim Fichier As String
Dim nom As String
Dim prenom As String
nom = Range("b26").Value
prenom = Range("b27").Value


Fichier = nom & prenom







SITUATION = "Y:\MAD 2 AD\CAD Valence\Outils CAD\situations de comptes\valerie.xls"

Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = True

'Ouverture du document principal Word
Set docWord = appWord.Documents.Open("Y:\MAD 2 AD\CAD Valence\Outils CAD\situations de comptes\modele_situation_valerie.dot")

'fonctionnalité de publipostage pour le document spécifié
With docWord.mailMerge

'Ouvre la base de données
.OpenDataSource Name:=SITUATION, _
Connection:="Driver={Microsoft Excel Driver (*.xlsm)};" & _
"DBQ=" & SITUATION & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [PUBLIPOSTAGE!]"


'Prend en compte l'ensemble des enregistrements
With .DataSource
.firstRecord = wdDefaultFirstRecord

End With

'Exécute l'opération de publipostage
.Execute Pause:=False
End With

Application.ScreenUpdating = True

Set documentResultat = appWord.ActiveDocument






'fin ouvrir publipostage

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
511
Réponses
5
Affichages
639
Réponses
9
Affichages
580
Retour