Export_PDF()

Bonjour,

J'ai la macro suivante qui permet d'enregistrer automatiquement une feuille excel sous format PDF dans un dossier précis.
ça marche parfaitement sous excel 2010 mais lorsque j'ai utilisé excel 2007 ça n'a pas marché!! je ne sais pas pourquoi, merci pour votre aide :

Sub Export_PDF()
Dim fichier As String

Date_F = Format(Date, "ddmmmm_")
'adaptez le nom de la feuille
With Worksheets("Historique Suivi Production")
fichier = "\" & Date_F & .Range("I4") & .Range("B4") & ".pdf"
Dossier = "Z:\Fiche Suivi Production 2016"
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub