Bonjour,
Malheureusement, vous utilisez des feuillez externes et nous n'avons pas la macro que vous utilisez, mais, voici une proposition.
Info1 = Feuil3.Range("E13").Value
Info2 = Feuil3.Range("F13").Value
Fichier = "D:\" & Info1 & Info2 & ".pdf"
Feuil3.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier
A noter que vous ne pouvez pas avoir de caractères de type '/' dans un nom de fichier, vous devez donc nettoyer cette valeur avant pour enlever ce caractère.
Cdt