Discussion :

[Denis_67]

Bonjour,

J'ai créé dans une feuille de récapitualtif des feuilles d'un classeur
La première colonne contient le lien hypertexte avec chaque feuille.

J'ai créé un macro qui est sensée lire les feuilles les unes après les autres pour mettre à jour ma feuille principale
cependant mon lien hypertexte ne fonctionne pas et je ne comprends pas pourquoi ?

le debug.print activecell.adress me renvoie $B$2 (logique!)
comment voir le contenu du lien ?
le debug.print ActiveCell.Hyperlinks(1) plante (erreur 438) ?


Denis

Le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub maj_liste_mandat()
    Appel = "liste"
    Sheets("Liste des projets").Range("B2").Select
    CurLig = ActiveCell.Row
    While Not IsEmpty(ActiveCell)
        ' je boucle sur la liste des projets en colonne B
        Mandat = ActiveCell.Value
        ' j'appelle la feuille   ----> ca ne marche pas !!!!!!!!!!!!!!!
        Debug.Print ' quoi mettre pour voir le lien ?
        Selection.Hyperlinks(1).Follow NewWindow:=False
        Application.Run "'" & ActiveWorkbook.Name & "'!Modif_mandat"
        CurLig = CurLig + 1
        Cells(CurLig, 2).Select
    Wend
    MsgBox "Liste Terminée"
    Appel = ""
End Sub

[Kimy_Ire]

Bonjour Denis_67,

Je ne comprends pas bien ton histoire de "lien hypertexte avec chaque feuille"...
Si tu as une feuille récapitulative des autres, au sein d'un même classeur, peut-être devrais-tu te pencher sur quelque chose de la sorte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Denis_67()
Dim oWksh As Worksheet
 
For Each oWksh In Worksheets
    If oWksh.Name <> "Feuille principale" Then
        With oWksh
            'je fais ce que je veux dans chacune des feuilles.
        End With
    End If
Next oWksh
 
End Sub

N'hésite pas à donner peut-être plus de précisions.
Cordialement,
Kimy

[Denis_67]

Merci Kim_ire,

Parfois à vouloir donner trop d'explications on est plus confus !

En fait ma question est :
pourquoi la séquence d'activation du lien hypertext ne fonctionne pas.

Je lis une cellule contenant un lien et je veux activer la feuille appelée par ce lien.

Code :

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

1
2
3
 
Sheets("Liste des projets").Range("B2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False

mais en debug, il ne va pas activer la feuille

merci
Denis

[Kimy_Ire]

Regarde peut-être avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Denis_67_2()
Dim Rng As Range
 
With Worksheets("Source1")
    Set Rng = .Range("B2")
    ActiveWorkbook.FollowHyperlink Address:=Rng.Value
End With
 
End Sub

N'étant pas un expert en Hyperlinks, je ne pense pas t'aider d'avantage...

Cordialement,
Kimy

[Denis_67]

Merci pour Kimy pour les tentatives, mais ça ne marche pas ta fonction me renvoie le texte de la cellule mais le lien contenu dans la cellule.

En fait la séquence ne fonctionne pas car le lien hypertext renvoie à une autre feuille du classeur et pas vers un lien externe.
J'ai fait un test en mettant un lien vers un fichier externe et là ça marche, j'arrive à activer le lien par la séquence.

Avec cette fonction, il ne semble pas possible d'activer une autre feuille du classeur par lien hypertext.

Il ne me reste plus qu'à mettre le nom des feuilles dans ma liste et de les appeler classiquement.

A tout hasard je mets un fichier d'exemple. Si je clique le bouton la feuille 2 n'est pas sélectionnée comme lorsque je clique sur le lien hypertexte.
Classeur1.xlsm

Merci Denis

[Denis_67]

Faux espoir,

Je me suis souvenu que Excel n'aimait pas les espaces dans les noms de feuilles, j'ai donc renomé mes feuilles en mettant des "_"
à la place des espaces, mais ça e marche toujours pas.