Bonjour à tous,
J'ai un classeur excel, un userform qui lance le publipostage dans word, et mes fiches en sortie sont au format A5.
Comment faire pour que deux s'impriment sur une page ?
Je joins mon code à tout hasard, et je vous remercie infiniment pour votre aide.
CS.
J'ai un classeur excel, un userform qui lance le publipostage dans word, et mes fiches en sortie sont au format A5.
Comment faire pour que deux s'impriment sur une page ?
Je joins mon code à tout hasard, et je vous remercie infiniment pour votre aide.
CS.
Code:
Private Sub CommandButton1_Click()
Dim docWord As Word.Document
Dim appWord As Word.Application
Dim NomBase As String
NomBase = Application.GetOpenFilename("Nom fichier,*.xls")
Dim wkbCib As Workbook
Dim wksCib As Worksheet
Dim dernLigCib As Integer
Set wkbCib = ActiveWorkbook
Set wksCib = wkbCib.Worksheets("Base")
Dim nom As String
nom = Application.GetOpenFilename("Nom fichier,*.docx")
Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = True
Set docWord = appWord.Documents.Open(nom)
With docWord.mailMerge
.OpenDataSource Name:=NomBase, _
Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & NomBase & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [Base$]"
.Destination = wdSendToPrinter
.suppressBlankLines = True
With .DataSource
.firstRecord = wdDefaultFirstRecord
.lastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
Application.ScreenUpdating = True
docWord.Close False
appWord.Quit
End Sub