Enregistrer un pdf avec un nom variable

Bonjour,

jessaie d'enregistrer mon fichier en pdf en utilisant ce bout de code

chemin = "H:\xxx"
texte = Range("b4")
Application.DisplayAlerts = False

ActiveWorkbook.ExportAsFixedFormat Type:=x1TypePDF, Filename:=chemin & texte, _
Quality:=x1QualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

mais ca ne fonctionne pas je ne sais pas pourquoi

Crdlt

N.A

Bonjour,

Chemin doit avoir l'anti-slash de fin :

Chemin = "H:\xxx\"

Erreur d'éxecution '-2147024773(8007007b)':

Document non enregistré

Quelle valeur se trouve dans Range("b4") ?

la date du jour et l'heure

C'est là qu'est le problème car les caractères comme les slashs sont interdit donc, si tu as dans ta cellule une valeur du genre "31/05/2018 16:14:40" ça ne pourra pas fonctionner !

Il te faut remplacer les slachs et double points par des tirets :

texte = Replace(Replace(Range("B4").Value, "/", "-"), ":", "-") & ".pdf"

niquel tes un chef

Merci, heureux de t'avoir aidé !