Discussion :

[csempere]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
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

[Heureux-oli]

Salut,

C'est pas une question de code, mais simplement une question de mise en page du document principal de fusion.

Dans la boîte de dialogue mise en page, choisir 2 pages par feuille et en paysage.

[csempere]

Merci pour la réponse,
Mais cela ne permet pas de maîtriser correctement l'impression, et encore moins de pouvoir choisir par exemple un type ou l'autre...
Merci encore tout de même
CS.

[Heureux-oli]

Salut,

Si tu tiens absolument à le faire en VBA, c'est avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.PageSetup

et ses multiples options que tu y parviendras.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.Orientation = wdOrientLandscape
.BookFoldPrintingSheets = 1

[csempere]

Merci pour la réponse, mais je n'y arrive pas. A tout hasard, je joins mes fichiers...
Merci.
CS.