VBA - Bouton impression de la feuille active ou du classeur
Bonjour,
J'aimerai créer un bouton "IMPRESSION" qui active une Userform avec deux autres boutons "La feuille active" et "Le classeur"; de plus en cliquant sur "Le classeur" j'aimerai imprimer toutes les feuilles sauf 5 qui on un nom d'onglet particulier.
Pouvez-vous m'aider?
Ca fonctionne nickel cependant j'aimerai que les 5 feuilles (onglets en noir) ne s'affichent pas dans la liste des bases de données dans la userform. Deuxièmement est-ce possible de rajouter un bouton pour enregistrer ces feuilles en PDF?
J'ai enlever les Feuille que tu ne voulais pas imprimer.
Par contre j'ai pas tout compris pour les PDF ou veut tu les stocker après??
J'aimerai le stocker dans le même dossier et avec le même nom que le fichier excel lui-même.
Bonjour Yohann,
J'ai ajouté ce code qui fonctionne pas trop mal malheureusement il enregistre les PDF séparément. Merci beaucoup; je n'y serait jamais arrivé sans votre aide. Bonnes fêtes de fin d'année!
Private Sub CommandPdf_Click()
'imprimer en pdf
Application.ScreenUpdating = False
For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(i)
Application.DisplayAlerts = False
Sheets(LbFeuilles.List(i)).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".pdf"), _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
OpenAfterPublish:=True
Else
End If
Next i
Application.DisplayAlerts = True
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub