Creation de dossier et convertir en pdf

Hello tout le monde,

je suis un petit peu coincé et novice en la matière.

j'ai un fichier, une fois complété une formule en D4 fait remonter le titre.

lorsque je valide par le biais d'un bouton, la macro doit créer un dossier sur mon disque H:\\ avec le titre remonté en D4.

cette même macro doit convertir ma feuille excel en PDF et reprendre le titre en D4.

J'ai effectué plusieurs essai. j'ai reussi à faire les 2 fonctionnalités séparément mais pas moyen de combiner le tout.

Si vous pouvez m'accorder un peu de temps sur mon cas cela serait fantastique.

Un grand merci à tous

Essayez ceci :

Sub Export_PDF()
    Dim fichier As String
    Dim Date_F As String

    Date_F = Format(Date, "ddmmmm_")

    With Worksheets("Feuil1")
        fichier = "\" & Date_F & .Range("D4") & ".pdf"
        Dossier = "H:\TEST"
        If Dir(Dossier, vbDirectory) <> "" Then
            MsgBox "Ce dossier existe déjà ", vbCritical + vbOKOnly, "Fin de traitement"
            Exit Sub
        Else
            MkDir Dossier
        End If
        Chemin = Dossier & fichier
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

merci Optimix pour ta réponse.

quand je lance ta macro ça m'indique systématiquement que ce dossier existe déjà alors que non et il ne se passe plus rien.

Egalement, penses tu qu'il est possible de faire ouvrir en auto le dossier créé?

merci à toi pour ton temps :)

Bonjour Vinno,

In Veritas, c'est ta macro que j'ai reprise .

Alors c'est encore plus simple :

Sub Export_PDF()
    Dim fichier As String
    Dim Date_F As String

    Date_F = Format(Date, "ddmmmm_")

    With Worksheets("Feuil1")
        fichier = "\" & Date_F & .Range("D4") & ".pdf"
        Dossier = "H:\TEST"
        If Dir(Dossier, vbDirectory) = "" Then MkDir Dossier
        Chemin = Dossier & fichier
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

Je me méfie comme de la peste des automatismes. Qu'entends-tu par ouvrir le dossier en Auto ? Le dossier c'est H:\TEST et le fichier c'est 20octobre_V150678.pdf

Un grand merci pour ton aide.

Une âme charitable au boulot a pu me dépatouiller tout cela.

Un grand grand merci pour ton temps

C'est le principal. Alors bon vent.