XL 2019 Difficultés d'enregistrement PDF

Did25 · 8 Avril 2022

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

Did25 · 8 Avril 2022

cp4 à dit:

Bonjour,

à tester

VB:

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...

cp4 · 8 Avril 2022

Bonjour,

à tester

VB:

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 · 8 Avril 2022

cp4 à dit:

Bonjour,

à tester

VB:

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 · 8 Avril 2022

Did25 à dit:
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.

XL 2019 Difficultés d'enregistrement PDF

Did25

XLDnaute Occasionnel

Pièces jointes

Did25

cp4

XLDnaute Barbatruc

Did25

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

Discussions similaires

XL 2019 Difficultés d'enregistrement PDF

Did25

XLDnaute Occasionnel

Pièces jointes

cp4

XLDnaute Barbatruc

Did25

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency