Discussion :

[Blaiz58]

Bonjour à tous,

Je rencontre un petit problème avec ma macro me permettant de mettre toutes les colonnes sur une page pour l'impression.
Je l'ai fais de façon à ce que cela s'applique à tous les onglets du classeur mais le problème est que le dernier onglet n'est pas affecté par la macro :/

VOila la macro

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
36
37
 
Private Sub CommandButton5_Click()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
    With s.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    'End With
    Application.PrintCommunication = True
'    s.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    'With s.PageSetup
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 0
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
    End With
 
Next
 
End Sub

[Menhir]

Est-ce que tu as essayé de faire tourner ta macro en pas à pas pour voir si elle déclenche la boucle pour la dernière feuille ?

Est-ce que tu as essayé de faire tourner la boucle sans son contenu ?
Par exemple :

Code :

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

1
2
3
4
    Dim s As Worksheet
    For Each s In ActiveWorkbook.Sheets
      Debu.Print s.Name
    Next

Est ce que tu as essayé de lancer ta macro sans la boucle For, en commençant par un simple :

Code :

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

Set s = Worsheets("MaFeuille")

[Blaiz58]

Quant je fais pas à pas, il me dit qu'il faut un nombre entre 10 et 40 pour .FitToPagesWide = 1
(ligne26) alors que normalement non, c'est pris à partir d'un registrement de macro ... bizarre

J'ai fais la même macro pour changer les pieds de pages automatiquement et ça marche sur toutes les onglets ... :S

[Blaiz58]

Bon j'ai résolu le problème. Cela venait que mes Applications.Printcommunication étaient dans le with ...