Sub enregistrement pdf

Hello Family

j'ai besoin d'aide sur la macro ci-dessous.

elle est sensée me permettre d'enregistrer ma feuille excel en pdf tout créant un dossier que nous choisirons de créer automatiquement.

Cependant le dossier se crée sans le fichier pdf voulu. C'est qu'il se crée vide.

Veuillez bien m'aider à trouver la faille svp.

Sub Export_Pdf()
NomDossier = Application.InputBox("Nom du Dossier", "Création du Dossier", "Entrer le nom du Dossier")
Chemin = "C:\Users\NEW STAFF\Bureau\Desktop\repertoire macros\" & NomDossier & "\"

On Error Resume Next

Dossierexistant = GetAttr(dossier) And vbDirectory

If Dossierexistant = False Then

MkDir (Chemin)
End If

ActiveSheet.ExportAsFixedFormat , _
Type:=xlTypePDF, _
Filename:=Chemin & Range("E10") & "_" & Range("F10").Value & ".pdf", _
Quality:=xkqualitystandard, _
includedocproperties:=True, _
ignoreprintareas:=False, from:=1, to:=1, _
openafterpublish:=False

MsgBox ("le pdf a été crée avec succès")

End Sub

Bonjour Jean_Marvin,

voici ma proposition:

Sub Export_Pdf()
'https://forum.excel-pratique.com/excel/sub-enregistrement-pdf-180985

NomDossier = Application.InputBox("Nom du Dossier", "Création du Dossier", "Entrer le nom du Dossier")
Chemin =  "C:\Users\NEW STAFF\Bureau\Desktop\repertoire macros\" & NomDossier & "\"

On Error Resume Next

Dossierexistant = GetAttr(dossier) And vbDirectory

If Dossierexistant = False Then

MkDir (Chemin)
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Chemin & Range("E10").Value & "_" & Range("F10").Value & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

MsgBox ("le pdf a été crée avec succès")

End Sub

Cordialement

Super Merci bien ça marche

Un code autre pour toi

Sub Export_Pdf()

Dim NomDossier As String

Dim Chemin As String

Dim Dossierexistant As Integer

NomDossier = Application.InputBox("Nom du Dossier", "Création du Dossier", "Entrer le nom du Dossier")

Chemin = "C:\Users\NEW STAFF\Bureau\Desktop\repertoire macros\" & NomDossier & "\"

On Error Resume Next

Dossierexistant = GetAttr(Chemin) And vbDirectory

If Dossierexistant = False Then

MkDir (Chemin)

End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=Chemin & Range("E10").Value & "_" & Range("F10").Value & ".pdf", _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

MsgBox "le pdf a été créé avec succès"

End Sub