Excel 2007 Hypertexte télecharger fichier

Bonjour

A partir de cette macro, je voudrais télécharger tous les pdf correspondant aux liens dans la feuille et les enregistrer dans un répertoire donné.

Quant j'alimente par copier coller, la feuille en lien, excel 2007, ne les reconnait pas comme tel.

D'ailleurs même problème avec word 2007, les feuilles copiées ne sont pas conforme à l'original.

merci

Sub ActiverLiens()
Application.ScreenUpdating = False
For Each HL In Sheets("Liens").Hyperlinks
HL.Follow
Next
Application.DisplayAlerts = False
For Each classeur In Workbooks
If classeur.Name <> ThisWorkbook.Name Then
classeur.Save
classeur.Close
End If
Next classeur
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub