Ouvrir un hypertexte et enregistrer le fichier

Re : Ouvrir un hypertexte et enregistrer le fichier

J'ai trouvé une partie de la réponse, mais je vais avoir besoin d'aide pour la boucle et comment enregistrer :

Sub Test()

Dim Cell As Range
Dim x As Integer

x = Worksheets(1).Range("d65536").End(xlUp).Row

For Each Cell In Worksheets(1).Range("d1:d" & x)
Worksheets(1).Hyperlinks.Add Cell.Offset(0, 1), Cell
Next Cell

DeclencheLien Range("e2")
End Sub


Sub DeclencheLien(Cellule As Range)

'Vérifie si la cellule contient un lien
If Cellule.Hyperlinks.Count = 0 Then
MsgBox "il n'y a pas de lien hypertexte dans la cellule " & Cellule.Address
Else
'Déclenche le lien
Cellule.Hyperlinks(1).Follow NewWindow:=True
End If
End Sub

Merci