Discussion :

[lelou54]

Bonjour,

J'ai créé un bouton pour imprimer automatiquement une plage de cellule avec le nombre de copie à stipuler dans une case.
Le problème que je rencontre est que je n'arrive pas faire tenir ma sélection de cellules dans un format A4

Je voudrais savoir le code à mettre??
apprement le code pour le format A4 est : .PaperSize = xlPaperA4

Je vous mets mon code actuel:

Code :

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

1
2
3
Private Sub CommandButton1_Click()
Sheets("Feuil2").Range("F2:N34").PrintOut Copies:=Range("C15").Value, Collate:=True
End Sub

Merci de vos réponse

[fring]

Bonjour,

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
With Sheets("Feuil2").PageSetup
    .PrintArea = "F2:N34"
    .PaperSize = xlPaperA4
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
Sheets("Feuil2").PrintOut Copies:=Sheets("Feuil2").Range("C15").Value, Collate:=True
End Sub

[lelou54]

Bonjour Fring,

j'ai essayé ton code mais quand je clique sur le bouton pour imprimer, j'ai une erreur d'exécution 1004: "impossible de définir la propriété Papersize de la classe pagesetup"
j'ai fait un essai en passant par une impression virtuelle sous format Pdf et je me retrouve en mon fichier sur 2 pages

merci pour ton aide

[fring]

Là je ne vois pas pourquoi le code coince sur le format, chez moi cela fonctionne, d'autant plus que tu arrives à l'imprimer en PDF
Concernant les 2 pages en PDF, essaye ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
With Sheets("Feuil2").PageSetup
    .PrintArea = "F2:N34"
    .PaperSize = xlPaperA4
    .Zoom = False '<-- ajoute cette ligne
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
Sheets("Feuil2").PrintOut Copies:=Sheets("Feuil2").Range("C15").Value, Collate:=True
End Sub

[Didier Gonard]

Bonjour,

As-tu essayé l'enregistreur de macro, c'est le cas où il en met une tartine, mais te donne tous les paramètres qui vont bien à isoler.

désignation de la plage, réglage de la mise en page etc....

cordialement,

Didier

[lelou54]

bonjour,

Fringe,
ta modification de code m'a permis de n'avoir q'une page, par contre quand j'entre le nombre de copie dans la cellule "C15" cela ne fonctionne pas??
merci encore

Ormonth,
l'utilisation de l'enregistreur de macro ne prend pas en compte le nombre de copie que je demande dans la cellule 'c15' merci quand même de ton conseil