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.

[Docmarti]

Bonjour le forum

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
 
 With Selection.Hyperlinks(1)
 
   .Follow NewWindow:=False, AddHistory:=True
 
    If .SubAddress <> "" Then
     Sheets(Split(.SubAddress, "!")(0)).Select
     Range(Split(.SubAddress, "!")(1)).Select
    End If
 
 End With
 
End Sub

[Denis_67]

MERCI DOC MARTI !!!!!

Par contre j'ai encore deux questions:

Comment afficher .subaddress en debug ce n'est pas une variable si je mets un espion je ne vois pas le contenu. debug.print non plus
la seule astuce que j'ai trouvé c'est un msgbox(.subaddress).

Pourquoi cette question ?

Parce que j'ai des feuilles dont le nom commence par un nombre.
or j'ai renuméroté ces feuilles par macro et certains nom on une ' devant le nombre certaines pas et bien sûr quand il y a ' le lien ne marche plus.

Bon je vais ajouter une lettre préfixe en attendant, mais si vous pouvez m'indiquer comment renomer sans avoir l'apostrophe ce serait cool.
A peine l'avais-je fais que j'ai vu des feuilles ou j'avais l'apostrophe en début et en fin du nom de la feuille !!!
ceci est lié au fait que dans le nom figurait d'autres caractères inapropriés en l'occurence une virgule !

Je mettrai en résolu d'ici fin de semaine si pas de réponse mon problème initial étant résolu

Encore MERCI

Denis

[Philippe Tulliez]

Bonjour,

Comment afficher .subaddress en debug ce n'est pas une variable si je mets un espion je ne vois pas le contenu. debug.print non plus
la seule astuce que j'ai trouvé c'est un msgbox(.subaddress).

Code :

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

Debug.Print Selection.Hyperlinks(1).SubAddress

ou

Code :

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

Debug.Print Range("B4").Hyperlinks(1).SubAddress

Parce que j'ai des feuilles dont le nom commence par un nombre.
or j'ai renuméroté ces feuilles par macro et certains nom on une ' devant le nombre certaines pas et bien sûr quand il y a ' le lien ne marche plus.

Lorsqu'un nom de feuille contient un ou plusieurs espaces, il est automatiquement encadré par des apostrophes.
Exemple : Pas d'espace donc pas d'apostrophes : laFeuille!A1 alors que ici oui 'ma feuille'!A1

[Denis_67]

Merci à vous tous qui m'avez apporté chacun un élément pour solutionner complètement mon problème.
Denis