Enregistrer un hyperlien a partir d'Excel dans un dossier

Bonjour,

J'ai des hyperliens dans des cellules (des pdfs), j aimerais grace a une macro, enregistrer ses pdf dans un dossier

Workbooks("classeur1.xls").Activate   '(J'active le workbook, parceque je travaille sur 2 classeur)
 Worksheets("feuil1").Range("F137").Select 'je selectionne la cellule au se trouve l'hyper lien
   'adresse= c est l endroit ou je souhaite enregistrer mon pdf
 Selection.Hyperlinks.SaveAs Filename:=adresse & "\" & "annexe_1"

J'ai l'erreur suivante "proprieté ou methode non generé par l'objet" et le probleme se situe a la derniere ligne du code

je ne comprend pas ppurquoi sa marche. si qu'un peu m'aider.

Merci

Bonjour,

saveas ne peut pas être utilisé avec hyperlinks

essaie ceci, lancer la procédure aargh, je fais l'hypothèse que le lien est également contenu dans la cellule F137 en plus d'avoir un hyperlien associé

Sub SaveWebFile(ByVal url As String, ByVal fichier As String)

    Set httpreq = CreateObject("MSXML2.XMLHTTP")
    httpreq.Open "GET", url, False
    httpreq.Send

    Do While httpreq.readyState <> 4
        DoEvents
    Loop

    reponse = httpreq.responseBody

    If Dir(fichier) <> "" Then Kill fichier
    Open fichier For Binary As #1
    Put #1, , reponse
    Close #1

    Set httpreq = Nothing
End Sub

Sub aargh()
adresse = "c:\users" ' à modifier
Workbooks("classeur1.xls").Activate
SaveWebFile Worksheets("feuil1").Range("F137"), adresse & "\" & "annexe_1"
End Sub

Merci bcp pour la réponse.

Mais ya un probleme qui ssurvient a la ligne suivante.

httpreq.Open "GET", url, False

l'erreur est la suivante: la méthode open de l'objet "XMLHTTP" a échoué .

bonjour

qu'y a-t-il dans Worksheets("feuil1").Range("F137") ?

sinon essaie ceci

Sub SaveWebFile(ByVal url As String, ByVal fichier As String)

    Set httpreq = CreateObject("MSXML2.XMLHTTP")
    httpreq.Open "GET", url, False
    httpreq.Send

    Do While httpreq.readyState <> 4
        DoEvents
    Loop

    reponse = httpreq.responseBody

    If Dir(fichier) <> "" Then Kill fichier
    Open fichier For Binary As #1
    Put #1, , reponse
    Close #1

    Set httpreq = Nothing
End Sub

Sub aargh()
adresse = "c:\users" ' à modifier
Workbooks("classeur1.xls").Activate
SaveWebFile Worksheets("feuil1").Range("F137").hyperlinks(1).address, adresse & "\" & "annexe_1"
End Sub