MACRO enregistrer en pdf avec un libéllé comprenant une période

Bonjour,

J'ai besoin de votre aide pour finaliser ma macro et arriver à enregistrer excel en pdf avec un libellé bien précis. Je travaille sur un fichier de facturation pour information.

J'ai besoin d'enregistrer le nom suivant : Facture_NOM DU CLIENT_PERIODE.pdf

I2 = Facture

M4 = Nom du client

m3 = Mois/Année (mm/aa)

Macro :

Sub Enregistrer_pdf_Facture()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Perso\" & Range("l2").Value & " _ " & Range("m4").Value & " _ " & Range("m3").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Ma macro fonctionne bien jusqu'à ce que je veuille mettre la période (mm/aa) que j'ai souligné et mis en gras juste au dessus.

Pourriez-vous m'indiquer comment écrire correctement cette donnée sur la macro svp ? sachant que m3 est une formule (=TEXTE(RECHERCHEV($M$2;Tableau1;12);"mm/aa")).

Merci pour votre aide.

Bonjour,

Je pense que le slash est bloquant dans le nom de fichier. Voici une possibilité :

Sub Enregistrer_pdf_Facture()
with ActiveSheet
    periode$ = replace(.range("M3").value, "/", "")
    .ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\Perso\" & Range("l2").Value & " _ " & Range("m4").Value & " _ " & periode & ".pdf", _
        IgnorePrintAreas:=False
end with
End Sub

Cdlt,

Merci 3GB,

J'ai ajouté un point pour avoir par exemeple 01.20.

Super, ca marche niquel !

Sub Enregistrer_pdf_Facture()

with ActiveSheet

periode$ = replace(.range("M3").value, "/", ".")

.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:="C:\Perso\" & Range("l2").Value & " _ " & Range("m4").Value & " _ " & periode & ".pdf", _

IgnorePrintAreas:=False

end with

End Sub