Bonjour
Le code ci-dessous très simple ne fonctionne pas... erreur 1004
je veux enregistrer la feuille "cata" du classeur actif en pdf en lui donnant comme nom, la date du jour et le contenu de la cellule A3
Avez vous une explication ?
Sub Export_PDF()
Dim fichier As String
Date_F = Format(Date, "ddmmyy_")
'adaptez le nom de la feuille
With Worksheets("cata")
fichier = "\" & Date_F & .Range("A3") & ".pdf"
dossier = "C:\Utilisateurs\p.francois\Bureau\essais"
Chemin = dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub