Renomer en PDF avec texte dans 3 cellules
Bonjour à tous
Je suis entrain de tourner en rond sur un problème qui doit être plutôt simple
Voilà
dans un onglet j'ai un tableau avec du texte dans cellule B8 B10 et C12
ensuite via un bouton cela doit enregistrer un nouveau document en PDF nom du fichier composé des cellule B8 B10 et C12.
Mais ça bug !
Merci pour votre aide
code :
Sub Enreg_Pdf()
Dim Client As String, Formation As String, DatFin As Date, DossierPdf As String
Client = Range("B8").Value
Formation = Range("B10").Value
DatFin = Range("C12").Value
DossierPdf = ThisWorkbook.Path & "\PDF\" ' à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DossierPdf & Client & "_" & Formation & "_" & DatFin & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub
Bonjour,
Sans regarder plus loin, je soupçonne la date (DatFin) qui selon son format contient des caractères interdits pour l'enregistrement sur le disque !
22/06/2018 <--- pas bon car les caractères / sont interdits mais comme ceci c'est bon 22-06-2018
Bien vu !
pour remédier au problème j'ai indiqué dans ma cellule date
=TEXTE(C12;"jj mmmm aaaa")
puis passer ma variable " DatFin As Date " en "DatFin As String"
Là tout marche.
Merci These