XL 2010 SOS Erreur d'exécution de code impression classeur partiel

[jeanba]

Bonjour la Communauté XLNaute,

J'ai écrit ce code pour gérer l'impression que des feuilles de janvier à décembre d'un classeur qui en contient plus que cela.
Le code tourne mais il fait pas ce que je veux, c'est à dire:

1) masquer les lignes vides de chaque feuille de l'Array("Janvier", Février"..."Décembre"):
2) enregistrer sous pdf toutes les feuilles ainsi traitées dans un seul et même document sans aperçu avant impression sous le nom "Récap + année en cours"

Voici le code:

Private Sub USF5_CommandButton3_Click()
    Unload Me
    Application.ScreenUpdating = False
   Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", _
        "Décembre")).Select
    For Each Sheet In Sheets
        Call Masquer_Lignes_vides
    Next
    Call ImprimerFeuilleActive
    Selection.Visible = False
  
End Sub

Merci par avance
Jeanba

 

[Compte Supprimé 979]

Bonjour jeanba,

Nous ne savons pas ce que contient ta procédure "Masquer_Lignes_Vides"
Mais le fait de vouloir le faire à toutes les feuilles en même temps, ne me parait pas une bonne idée

A+

 

[Paf]

Bonjour jeanba, BrunoM45,

peut-être:

Private Sub USF5_CommandButton3_Click()
Dim SelectionFeuille, Feuille As String
Application.ScreenUpdating = False
SelectionFeuille = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
For Each Feuille In SelectionFeuille
   Worksheets(Feuille).Activate
   Call Masquer_Lignes_vides
   Call ImprimerFeuilleActive
Next
Application.ScreenUpdating = True
Unload Me
End Sub

si les deux sub appelées opèrent bien sur la feuille active ?

A+