Nom onglet + listbox = PDF

Bonjour,

Apres des heures de recherches sur le forum j'ai trouvé un code se rapprochant de ce que je cherche mais pas complètement ...

Dans une listbox (ds un userform) les noms des onglets s'affichent et après sélection de certains d'entre eux ,je souhaite qu'en cliquant sur le bouton "enregistrer en pdf" ca enregistre chaque onglet en pdf du nom de ce meme onglet:

feuil1 = PDF du meme nom

feuil2 = PDF du meme nom

feuil3 = PDF du meme nom

Soit 3 PDF...il peut y avoir plusieurs onglets et ils peuvent changer de noms...

Pour info je suis débutant...

Par avance merci pour votre aide

bonjour,

à tester,

Private Sub cmdSave_Click()
Dim strPath As String
Dim i As Integer

    strPath = "C:\Desktop" 'chemin a changer

    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
          Sheets(ListBox1.List(i)).Select
          ActiveSheet.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=strPath & Application.PathSeparator & ListBox1.List(i), _
                Quality:=xlQualityStandard, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
        End If
    Next i

    Unload Me

End Sub

Bonjour,

c'est parfait merci de ton aide sabV

Bonne journée.