Bonjour à tous,
Voici le code que j'ai pour enregistrer en pdf :
Dim Nom As String
Sub Enregistrer_Devis_PDF()
Sheets("Devis").Select
Nom = Range("AC4").Value
Range("A1:AH53").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AH$53"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Kevin\Documents\" & Nom & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End If
Le débogage surligne cette partie du code, mais je ne comprend pas pourquoi car j'ai pourtant bien déclaré ma variable "Nom".
Dans ma cellule AC4 j'ai D15/05, peut-être est-ce le "/" qui ne passe pas ? Si tel est le cas je ne sais pas comment le contourner...
J'ai bien vu ta partie de code
Replace(Replace(Now, ":", "-"), "/", "_") & ".pdf"
mais je n'arrive pas à l'adapter ...