Discussion :

[Many31]

re bonjour

Pendaison inside :/

voila... je récupère le lien hypertexte d'une cellule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
            If Cells(i, 15) <> "" Then
                Cells(i, 15).Select
                TextBox1 = Selection.Hyperlinks(1).Address
            End If

le Problème cest que quand il n'y a pas de lien hypertexte... cela génère une erreur

j'ai essayé en vain en utilisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ....... Is Nothing Then Exit Sub

breff je patauge :/

[mathieu44800]

bonjour,

Un msgbox sur ce qui fait planter ?
ou IsNull() ou <> ""
A+

[Many31]

Nop ca marche pas

si je "sélectionne" un lien hypertexte qui n'éxiste pas.... L'erreur persiste.

La seule solution que j'ai pu tester et qui marche (mais pas du tout rigoureux) c'est en créant une gestion d'erreur dans ma sub :/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub Recup(reference)
On Error GoTo 1
 
If Cells(i, 15) <> "" Then
       Cells(i, 15).Select
       TextBox1 = Selection.Hyperlinks(1).Address
End If
 
1:
 
end sub

personne n'a une méthode plus rigoureuse? :/

[mathieu44800]

RE,

Tiré de l'aide :

La propriété Selection renvoie Nothing si rien n'est sélectionné.

[Many31]

heuuu cest gentil de m'éviter un F1 mais comme précisé plus haut j'ai déjà essayé les IsNull, IsNothing etc.

et pour l'aide que tu affiches ca je renis pas.... Mais au final c'est le cas quand c'est une selection....

Là dans ce cas la sélection éxiste belle et bien (je sélectionne une cellule)
Ce qui n'éxiste pas c'est l'hyperlink lui meme

Ors j'active le lien hypertexte n°1 de la sélection (selection.hyperlinks(1)) je n'ai pas fait allonger excell pour lui demander pourquoi il ne veut pas considerer ca comme une sélection ou pourquoi il me génère une erreur, mais ca ne marche pas non plus

[mathieu44800]

Re,

et si tu ne passes pas par une sélection?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
            If (Cells(i, 15) <> "") Then
                'Cells(i, 15).Select
                TextBox1 = Cells(i,15).Hyperlinks(1).Address
            End If

[ouskel'n'or]

Jète un oeil ici, des fois que ça t'inspire une autre solution

[Many31]

math: ca n'arrange rien si l'hyperlien n'est pas la que ca soit une selection ou pas a l'origine ne change rien

Ouskel'nor je vais regarder tout ca demain (doit partir la -_- blazé) mais dans le pire des cas je garderai ma gestion d'erreur de barbarre :/

merci tous

[SilkyRoad]

bonjour


http://excel.developpez.com/faq/?pag...#DeclencheLien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'Vérifie si la cellule contient un lien
If Range("A1").Hyperlinks.Count = 0 Then
    MsgBox "il n'y a pas de lien hypertexte dans la cellule " 
    Else
    'Déclenche le lien
    Range("A1").Hyperlinks(1).Follow NewWindow:=True
End If

bonne soirée
michel

[ouskel'n'or]

bonjour


http://excel.developpez.com/faq/?pag...#DeclencheLien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'Vérifie si la cellule contient un lien
If Range("A1").Hyperlinks.Count = 0 Then
    MsgBox "il n'y a pas de lien hypertexte dans la cellule " 
    Else
    'Déclenche le lien
    Range("A1").Hyperlinks(1).Follow NewWindow:=True
End If

C'est ce que je suggérais ici
(Bonsoir Michel)

[Many31]

Bon je viens d'intégrer ces lignes de code a ma sub....




verdict....




enormous



merci messieurs