XL 2019 Difficultés d'enregistrement PDF

[Did25]

Bonjour le Forum XLD , je cherche à terminer mon fichier de gestion des flux ,construit en grande partie avec ce forum et je suis bloqué sur la création du fichier PDF .
Sur la feuille de suivi des mouvements ,avec le bouton enregistrement ,je créer un PDF de 2 feuilles qui s'enregistre dans un dossier spécifique , jusque là tout va bien .
Mais je souhaiterais avoir en plus la date du jour qui se trouve : sheets("Suivi des mouvements").Range("B1") ,avec un format d'enregistrement du genre :"Q1 du 08.04.2022".
Merci de votre aide

 

[cp4]

Bonjour,

à tester

Sub création_suivi()
    Dim sRep As String
    Dim sFilename As String
    Sheets(Array("Suivi des mouvements", "Suivi des modifications")).Select
    sRep = "C:\Users\Did25\Downloads\suivi des flux\"
    sFilename = Worksheets("Suivi des mouvements").Range("A1") & " du " & _
                Replace(Sheets("Suivi des mouvements").Range("B1").Value, "/", ".")
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & sFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
    If MsgBox("Confirmez vous la fermeture du fichier " & " ?", vbYesNo) = vbNo Then Exit Sub
    Sheets("Entrée").Select
End Sub

A+

 

[Did25]

Bonjour,

à tester

Sub création_suivi()
    Dim sRep As String
    Dim sFilename As String
    Sheets(Array("Suivi des mouvements", "Suivi des modifications")).Select
    sRep = "C:\Users\Did25\Downloads\suivi des flux\"
    sFilename = Worksheets("Suivi des mouvements").Range("A1") & " du " & _
                Replace(Sheets("Suivi des mouvements").Range("B1").Value, "/", ".")
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & sFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
    If MsgBox("Confirmez vous la fermeture du fichier " & " ?", vbYesNo) = vbNo Then Exit Sub
    Sheets("Entrée").Select
End Sub

A+

Bonjour Cp4 , merci de ton aide ,ça fonctionne parfaitement ,je ne ne connaissait pas la fonction replace ,merci beaucoup c'est super .

 

[cp4]

Bonjour Cp4 , merci de ton aide ,ça fonctionne parfaitement ,je ne ne connaissait pas la fonction replace ,merci beaucoup c'est super .

Pas de quoi. Cependant, il faut pointer la solution (à droite du message) pour faciliter la recherche aux autres membres du forum.