High-Tech Santé Médecine Droit-Finances

Mettre

une vidéo

dans sa PSP

Rechercher : dans
Par :

Activer lien hypertexte en vba

Dernière réponse le 21 mai 2008 à 19:12:31 freddv, le 19 mai 2008 à 15:08:01 
 Signaler ce message aux modérateurs

Bonjour,
dans un classeur excel j'ai une formule lien hypertexte style : =LIEN_HYPERTEXTE(A1) je voudrais pouvoir l'activer en VBA, comment faire...??? A L'aide.

Merci beaucoup.

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « Activer lien hypertexte en vba » dans :
[Word 2002] impossible activer lien hypertext Voir
[Word] Supprimer tous les liens hypertextes Voir Lorsque vous copiez-collez un extrait d'une page web, vous risquez fort d'obtenir dans le texte de nombreux liens hypertextes. Voici deux solutions pour supprimer les liens hypertextes d'un document Word. 1° solution : un lien hypertexte à la...
HTML: Lien hypertexte (sans soulignement) (Résolu) Voir
[PHP] Transformer une URL en lien hypertexte cliquable VoirGrâce aux expressions régulières, il est possible de transformer en lien hypertexte toute URL de la forme http://URL (ou ftp://URL) ou bien commençant par www. :
Problème pour ouvrir les liens dans Outlook VoirSi Outlook est dans l'impossibilité d'ouvrir un lien hypertexte, ou si les liens dans les messages ouvrent l'explorateur sans charger la page Web, il suffit de suivre l'une des procédures suivantes : Méthode 1 Méthode 2 Méthode 3 Pour...
Posez votre question Répondre

1

lermite222, le 19 mai 2008 à 16:17:17

Bonjour,
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="L'adresse"
A+
EDIT:
Je crois que j'avais mal compris ta question...
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

L'expérience instruit plus sûrement que le conseil. (André Gide)  

   
Répondre à lermite222

2

lermite222, le 19 mai 2008 à 16:31:45

Et si tu a plusieur lien... 

Dim Hyper As Hyperlink
For Each Hyper In Worksheets("Classeur1").Hyperlinks
    If InStr(Hyper.Name, "Le nom dans la cellule") <> 0 Then Hyper.Follow
Next

Et tu peu aussi y ajouter les paramètres.
A+ L'expérience instruit plus sûrement que le conseil. (André Gide)  

   
Répondre à lermite222

3

freddv, le 19 mai 2008 à 16:51:53

Merci pour tes propositions mais ca ne fonctionne toujours pas :
voici le code :

Public Sub action2()
'§Ouvrir le lien flashé
'§0643
'code de la procédure
ActiveCell("-0,5").Copy
Range("IT2").PasteSpecial
Range("IT3").Select


End Sub

la formule du lien hypertexte excel est en IT3, merci d'avance pour vos suggestions!

   
Répondre à freddv

4

lermite222, le 19 mai 2008 à 17:06:52

Je te pase 3 formules de code QUI FONTIONNE et tu viens avec un bout de code à la noix..
C'est quoi ca... 

ActiveCell("-0,5").Copy


Essaye les codes que je t'ai passé en adaptant les adresses des cellules et éventuellement le nom. L'expérience instruit plus sûrement que le conseil. (André Gide)  

   
Répondre à lermite222

5

Freddv, le 21 mai 2008 à 14:46:12

C'est une partie d'une barre d'outil qui recupere le nom du fichier et son emplacement est qui créer un code barre en bas de page, lorsque l'on flashe le code barre en bas de page il saute une ligne automatiquement, et pour pouvoir alimenter mon code hypertexte il faut que l'alimentation du code se fasse sur la ligne precedente donc voila pourquoi : ActiveCell("-0,5").Copy car ActiveCell("-1").copy saute 2 lignes et pas 1.

toujours est il que tes bout de codes ne fonctionne pas chez moi Excel 2002 SP3, windows XP.

quelqu'un aurait il une autre idée?

   
Répondre à Freddv

6

Freddv, le 21 mai 2008 à 17:25:17

Personnes n'a une idée ? m'a question est peut être pas tres explicite, j'ai un lien hypertexte avec la Fonction "=LIEN_HYPERTEXTE" dans un classeur excel est je veux que la macro ouvre se lien...

Merci de vos reponses ...

   
Répondre à Freddv

7

lermite222, le 21 mai 2008 à 17:27:46

Tu veux que la macro ouvre le lien comme si ont cliquait dessus ?
Explique-toi mieux alord, faut te sortir les mots hors de la bouche.. ( de ton clavier) L'expérience instruit plus sûrement que le conseil. (André G­ide)  

   
Répondre à lermite222

8

Freddv, le 21 mai 2008 à 17:32:25

Oui c'est excatement ca !

   
Répondre à Freddv

9

lermite222, le 21 mai 2008 à 17:35:34

Et ben alors, mes postes 1 et 2 te donne la solution, et dit pas que ca marche pas c'est pas vrais, que tu ai pas compris, d'accord, mais alors demande des explications complémentaire et dit pas tout de go... Ca marche pas L'expérience instruit plus sûrement que le conseil. (André G­ide)  

   
Répondre à lermite222

10

freddv, le 21 mai 2008 à 18:51:52

Bou, c'est de ma faute j'essayais de coller mon code, dans ma barre d'outil, alors qui suffisait de faire un nouveau Module et de faire la liaison dans le code de ma barre d'outil.

Pardon lermite222.

   
Répondre à freddv

11

 lermite222, le 21 mai 2008 à 19:12:31

OK.. T'est pardonné.. :-DDDD
Si OK oublie pas le Résolu
A la prochaine..
L'expérience instruit plus sûrement que le conseil. (André G­ide)  

   
Répondre à lermite222
Posez votre question Répondre
Ils ont besoin de votre aide