jeanba
XLDnaute Occasionnel
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:
Merci par avance
Jeanba
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:
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