Export en PDF avec choix du répertoire d'enregistrement

Bonjour à tous !

Je souhaite enregistrer une feuille de mon classeur en PDF après avoir choisi le répertoire voulu.

J'ai fait le code suivant :

Private Sub ExportPDF_Click()
With Worksheets("impression")
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            chemin = .SelectedItems(1)
        End If
    End With
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                     chemin & "Export des données filtrées - HCERES.pdf", Quality:= _
                                     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                     From:=3, To:=30, OpenAfterPublish:=True
End With
End Sub

Mais après avoir choisi le dossier de destination, je me retrouve avec un message d’erreur 1004 : "Désolé ... Nous n'avons trouvé aucun contenu à imprimer."

Lors du débogage, excel m'indique en surbrillance jaune :

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                     chemin & "Export des données filtrées - HCERES.pdf", Quality:= _
                                     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                     From:=3, To:=30, OpenAfterPublish:=True

Voyez vous ce qui bloque ? Car j'ai bien du contenu à imprimer dans ma feuille "impression"

Bonjour,

la feuille contient 30 pages ? From:=3, To:=30

Merci de ton message !!

C'était en effet le From:=3, To:=30 qui me mettait la grouille ...

Malheureusement je rencontre un nouveau soucis : ma feuille s'exporte bien en PDF, je la visualise après publication mais ... je ne retrouve pas le fichier !!

Je sélectionne par défaut mon bureau pour l'enregistrer, mais même après avoir rafraichi les fenêtres, il n'y apparait pas. Même chose dans Mes Documents.

Bonjour

tu change le chemin

            chemin = .SelectedItems(1) & "\"

A+

Maurice

Supeeerr, merci de ton aide !!!

Le code final pour ceux qui en auraient besoin :

Private Sub ExportPDF_Click()
'Sélection de la feuille "impression" de mon classeur :
With Worksheets("impression")
    ' Outils pour ouvrir une boite de dialogue et choisir l'emplacement voulu :
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            chemin = .SelectedItems(1) & "\"
        End If
    End With
    ' Enregistrement en PDF :
    ' (avec ajout de la variable "chemin" dans Filename, mais le chemin de destination ne se mettra pas dans le nom du fichier)
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    chemin & "Export des données filtrées.pdf", Quality:= _
                                     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                     OpenAfterPublish:=True
End With
End Sub