ouverture liens hypertextes

Le
Laure
Bonjour !

Je travaille sur un classeur excel présentant entre autre une colonne dans
laquelle figurent des liens hypertextes, différents à chaque ligne, et que
je dois ouvrir pour récupérer des infos que je reporte ensuite dans une
autre colonne de la même ligne.

J'ai beau essayer, je ne parviens pas à automatiser l'ouverture Mais bon,
ça fait un (très long) moment que j'avais laissé excel de côté (ah le congé
parental ! :D)

Donc, ce que je voudrais faire c'est me positionner sur une cellule où
figure un lien et pouvoir créer une macro qui va m'ouvrir automatiquement ce
lien dans mon navigateur, puis descendre à la ligne en dessous, ouvrir le
lien dans un nouvel onglet, etc. sur 5 ou 10 lignes) comme ça les pages
se chargent et je n'ai plus qu'à les consulter.
La récupération des données n'est pas automatisable, faut vraiment que je
lise et rédige à chaque fois, mais si déjà l'ouverture des liens était
automatisable, ça me ferait gagner vachement de temps !

Donc, je remercie chaudement par avance ceux qui pourront m'aider
là-dessus

Laure
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #25165032
Bonjour,

Habituellement, lors qu'une cellule contient un lien
hypertexte, le format est particulier et en cliquant
sur son contenu, le lien s'ouvre...

Ce n'est pas ce qui se passe chez toi?


Une procédure à mettre dans le module Feuille où l'action
se déroule.

'----------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim X As Hyperlink
On Error Resume Next
Set X = Target.Hyperlinks(1)
If Err <> 0 Then
Err = 0
Else
X.Follow False
End If
End Sub
'----------------------------------------

MichD
---------------------------------------------------------------
Laure
Le #25165452
Bonjour,

Si, si, ça s'ouvre bien... C'est juste que comme j'en ai plein à ouvrir ca
signifie :
-cliquer sur le lien
-la page s'ouvre et windows bascule sur le navigateur
-je reviens sur excel,
-je descend d'une cellule
-et je recommence...
(tout en étant obligée d'attendre à chaque fois que la page soit bien
ouverte, parce que si je clique plusieurs cellules d'affilée rapidement, le
navigateur n'affiche que la page du dernier lien hypertexte, donc c'est long
!)

L'idée c'est que la machine le fasse à ma place.
Je vais essayer ta procédure, merci de ta réponse !

Laure

"MichD" a écrit dans le message de groupe de discussion :
kdpb0g$gfl$

Bonjour,

Habituellement, lors qu'une cellule contient un lien
hypertexte, le format est particulier et en cliquant
sur son contenu, le lien s'ouvre...

Ce n'est pas ce qui se passe chez toi?


Une procédure à mettre dans le module Feuille où l'action
se déroule.

'----------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim X As Hyperlink
On Error Resume Next
Set X = Target.Hyperlinks(1)
If Err <> 0 Then
Err = 0
Else
X.Follow False
End If
End Sub
'----------------------------------------

MichD
---------------------------------------------------------------
MichD
Le #25165512
À la lumière de complément d'information,

Ce serait souhaitable que tu insères un bouton
de commande de la barre d'outils "Formulaire"
et que tu lui attaches cette macro :

Pour les besoins de l'exemple, j'ai utilisé le nom d'onglet
de la feuille "Feuil1" et la plage A1:A5. Tous les 2 sont à
adapter à ton environnement.

'--------------------------------------------
Sub Ouvrir_Lien_Hypertexte()
Dim C As Range
On Error Resume Next
With Worksheets("Feuil1") 'NOm Feuille à adapter
'adresse de la plage de cellules à adapter
For Each C In .Range("A1:A5")
C.Hyperlinks(1).Follow False
Next
End With
End Sub
'--------------------------------------------


MichD
---------------------------------------------------------------
Laure
Le #25166012
Bonjour et merci pour ta réponse...

Mais cela ne fonctionne pas.
J'ai adapté le nom du classeur et la plage, mais lorsque j'exécute la macro
il ne se passe... Rien du tout. Pas de message d'erreur, pas d'ouverture de
page web... Rien....

Laure
_______________________

"MichD" a écrit dans le message de groupe de discussion :
kdpljq$c29$


À la lumière de complément d'information,

Ce serait souhaitable que tu insères un bouton
de commande de la barre d'outils "Formulaire"
et que tu lui attaches cette macro :

Pour les besoins de l'exemple, j'ai utilisé le nom d'onglet
de la feuille "Feuil1" et la plage A1:A5. Tous les 2 sont à
adapter à ton environnement.

'--------------------------------------------
Sub Ouvrir_Lien_Hypertexte()
Dim C As Range
On Error Resume Next
With Worksheets("Feuil1") 'NOm Feuille à adapter
'adresse de la plage de cellules à adapter
For Each C In .Range("A1:A5")
C.Hyperlinks(1).Follow False
Next
End With
End Sub
'--------------------------------------------


MichD
---------------------------------------------------------------
MichD
Le #25166292
Fichier exemple : http://cjoint.com/?CAymKS3Qp50


MichD
---------------------------------------------------------------
Laure
Le #25166482
Bonjour MichD,
Grand merci pour le temps que vous prenez pour m'aider.
C'est incompréhensible, ça fonctionne parfaitement dans votre fichier, mais
pas dans le mien. J'ai essayé d'enregistrer la macro directement dans le
fichier ou sur le classeur de macros personnelles, mais rien à faire. J'ai
essayer de rallonger un peu le timer, parce que les pages sont parfois un
peu lentes à charger... Mais non, ça ne vient visiblement pas de là. Ma
feuille s'appelle Feuil1 donc je n'ai rien changé... Juste la plage des
cellules à ouvrir...

Je suis perplexe !!!???
______________________________


"MichD" a écrit dans le message de groupe de discussion :
kdr6d8$lk0$

Fichier exemple : http://cjoint.com/?CAymKS3Qp50


MichD
---------------------------------------------------------------
MichD
Le #25166542
A ) tu fais un copier-coller du code vers le module feuille
où l'action se déroule. Un clic droit sur l'onglet de ladite
feuille et tu copies le code dans la feuille blanche.

B ) Si l'onglet de la feuille porte le nom "Feuil1", tu n'as pas
à le modifier dans la macro
C ) Tu dois adapter la plage de cellules A1:A3 pour la plage
de cellules où sont les adresses dans la feuille de ton
application.
D ) Il ne te reste plus qu'à ajouter un bouton émanant de la
barre d'outils "formulaire" et attacher la macro à ce
dernier.

Dans ton dernier message, tu dis que cela ne fonctionne pas
dans ton application, mais tu ne décris pas ce qui se passe à
l'écran lorsque tu exécutes la macro. Est-ce qu'Internet Explorer
ouvre?


MichD
---------------------------------------------------------------
Publicité
Poster une réponse
Anonyme