PDF ne souvrent pas apres une macro

Bonjour à tous

j ai créé une macro me permettant d enregistrer un PDF à partir d un fichier Excel dans un répertoire déterminée.
Tout fonctionne correctement sauf que je ne peux pas ouvrir les PDF alors créés. le message suivant apparait :
" Adobe Acrobat Reader n a pas pu ouvrir "XXX.PDF" car le type de fichier n est pas pris en charge ou le fichier est endommagé.... etc .

quand je crée un fichier PDF via la fonction imprimer et PDF Free tout fonctionne normalement

Voici la macro utilisée :

Dim chemin As String, nomfichier As String


chemin = "R:\INFO\13 - ERP\Far ouest\fiche de spe\PDF\"
nomfichier = Range("B2").Value & ".pdf"
ThisWorkbook.SaveAs chemin & nomfichier

est ce l extension qui est mauvaise ?


par avance merci pour vos reponses et votre soutien