listbox et lien hypertext

listbox et lien hypertext - VB/VBA/VBS - Programmation

Marsh Posté le 20-09-2007 à 19:57:40    

salut  
 
j ai un souci avec une listbox et et des lien hypertext
 
------------
 
Private Sub CommandButton2_Click()
Sheets("Enregistrement" ).Activate
 
    If ListBox1.Value.Hyperlinks.Count > 0 Then
      ActiveWorkbook.FollowHyperlink Address:=ListBox1.Value
    Else
 
    MsgBox "Il n'y pas de lien"
 
    End If
 
End Sub
 
----------
 
 
en fait je recupere la valeur de la 3 émé colonne  
qui est une reference et ou il y a un lien hypertext dans mon tableau excel
 
 
ce que je voudrais c est que quand je choisi une ligne dans ma listbox et bien en validant si il y a un lien sa va sur la page sinon un message "il n'y a pas de lien"
 
le code que j ai mis marche pas
il marque  
 
       erreur d'execution 424     objet requis
 
 
merci pour votre aide
 

Reply

Marsh Posté le 20-09-2007 à 19:57:40   

Reply

Marsh Posté le 21-09-2007 à 08:49:55    

salut,
la boundcolumn de ta listbox est-elle déjà à 3 ?
à quelle ligne l'erreur apparait-elle ?

Reply

Marsh Posté le 21-09-2007 à 17:26:43    

salut  
 
oui j ai mis 3  
 
et en fait c est sur la ligne if qu il y a un probleme
 
je pense que sa viens de  .value qui va pas avec .hyperlink
 
merci pour votre aide

Reply

Marsh Posté le 25-09-2007 à 07:30:57    

personne n a idée pour m aider dans ma liste box
 
je veux juste récupérér le lien et ouvrir sur ce lien quand j ai choisi la ligne dans ma listebox
 
 car la je seche pas mal
 
mais est ce que c est possible de choisir dans une listbox  un lien hypertext qui en validant par un bouton va dirrectement sur la page du lien ?
 
 
ca marche tres bien pour des mots ou chiffrres a récupere mais pas  pour l instant pour des liens
 
merci pour votre aide

Reply

Marsh Posté le 29-09-2007 à 08:45:05    

j ai trouvé une solution qui consiste a recupere la valeur chercher
et de selectione la cellule qui y correspond et verifieé si il y a un lien hypertext ou  pas pour aller sur le lien
 
 
[D14].Offset(ListBox1.ListIndex, 0).Select
 
 If ActiveCell.Hyperlinks.Count > 0 Then
    ActiveCell.Hyperlinks(1).Follow
Else
MsgBox "Il n'y a pas de lien"
    Exit Sub
End If
 
 
voila la fonction que je me suis faite pour resoudre mon probleme  

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed