Aide sur macro extraction onglet en pdf

Question

J'ai un fichier de suivi du personnel , et une macro , qui extrait un onglet en pdf dans un dossier Je n'arrive pas a rajouter dans la Macro , que le fichier ce nomme avec N) Semaine et Nom Société Je joint fichier avec annotation et commentaires de ma demande En attente de vos réponses , pour m'aider a solutionner mon problème Cordialement JL...

gmb · Answer

Essaie en remplaçant : nompdf = Chemin &amp; "\" &amp; Dossier &amp; "\" &amp; DateExtraction &amp; "\" &amp; onglet.Name par : nompdf = Chemin &amp; Dossier &amp; "\" &amp; DateExtraction &amp; "\" &amp; onglet.Name Résultat ? Bye ...

gmb · Answer

Alors, essaie ça :

Sub pdf()

    On Error Resume Next
    Chemin = "V:\INT_WHRS\"
    'Chemin = ThisWorkbook.Path & "\"
    Dossier = "Fiche Heures Interimaire "
    'Dossier = Sheets("Feuille Horaires").Range("B1")

    DateExtraction = Format(Now(), "yyyy-mm-dd-hh:ss")
    ns = Sheets("Feuille Horaires").Range("B1")
    nsem = Sheets("Feuille Horaires").Range("B2")

    'MkDir Chemin & "\" & Dossier
    'MkDir Chemin & "\" & Dossier & "\" & DateExtraction

    For Each onglet In ThisWorkbook.Sheets
    If onglet.Name = "Feuille Horaires" Then
        onglet.Select
        nompdf = Chemin & Dossier & " " & nsem & " " & onglet.Name
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    End If
    Next
End Sub

Résultat ?

Bye !