Chemin d'accès pour export PDF
Bonjour à tous,
Pouvez vous m'aider pour cette petite VBA?
je voudrai que le PDF s'enregistre dans le dossier ou se trouve le classeur avec comme titre la cellule R3 et R2.
Je vous écrit la macro ci dessous.
Un grand merci.
Sub ExportPDF()
'
' ExportPDF Macro
'
'
ActiveSheet.Range("$A$3:$W$1600").AutoFilter Field:=18, Criteria1:="<>"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"X:\DOSSIER BE\TCEC\TCEC-091 - QUEVY - Aulnois & ABT-122-2\11 - CHANTIER\EA GTO\EAX\GTO.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Bonjour,
Filename:=ThisworkBook.Path & "\" & Range("R3").Value & Range("R2").Value & ".pdf"
& ".pdf" à supprimer, si R2 contient l'extension
Cdlt,
Cylfo
Un grand merci.
Top