Ouvrir un hypertexte et enregistrer le fichier

lepigoennier

XLDnaute Junior
Bonjour,

J'aimerais ouvrir un lien hypertexte (colonne E) et enregistrer le document ouvert dans un dossier spécifique (98% sont des PDF et les autres sont des WORD) et fermer le document (car il y en a environ 1500). J'ai cherché sur plusieurs forums, mais tout ce que j'ai trouvé et essayé ne fonctionne pas. La fonction hyperlinks.follow me renvoie "L'indice n'appartient pas à la sélection."

J'esprère être assez claire.

Merci pour votre précieuse aide. :)
 

Fichiers joints

lepigoennier

XLDnaute Junior
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas