VBA

Bonjour,

Serait-il possible d'avoir le code que tu as écris? ça rendrait les choses beaucoup plus simple pour t'aider

Cdlt,

désolé, pour le retard voici le code

Private Sub Creer_Fichiers_Click()
repartition
End Sub

Private Sub CommandButton1_Click()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
Dim docWord As Word.Document
Dim appWord As Word.Application

Dim Chemin As String
Dim NomFich As String
Dim NomBase As String

'Chemin localisation document
Chemin = "C:\Users\HP_SI\Desktop\coco\" 'à changer pour local
NomFich = "test.doc"
NomBase = "test_V01.xls"

Application.ScreenUpdating = False
Set wdApp = CreateObject("word.application") 'ouvre une session Word
wdApp.Visible = True
Set WdDoc = wdApp.Documents.Open(Filename:=Chemin & NomFich)
DoEvents

With WdDoc.MailMerge

'fonctionnalité de publipostage pour le document spécifié
With docWord.MailMerge
'Ouvre la base de données
.OpenDataSource Name:=Chemin & NomBase, _
Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & Chemin & NomBase & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [Import$]"

'Spécifie la fusion vers l'imprimante
.Destination = wdSendToPrinter

'Prend en compte l'ensemble des enregistrements
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
'End With
.SuppressBlankLines = True
.Execute Pause:=False
End With

'Fermeture du document Word
docWord.Close False
appWord.Quit
Application.ScreenUpdating = True
End Sub