Liens Hypertexte associé à certaines cellulesRésolu

Question

Bonjour,

J'aimerai créer un lien hypertexte vers un dossier.

Je souhaite que l'action se fasse lors du changement d'onglet donc par exemple sur l'appui du bouton ou bien 
l'activation de mon onglet. Ainsi, je créée mon lien hypertexte que j'affecte à ma cellule (x,y)



J'ai créer une liste de choix de sélection de projet (prj1, prj2, prj3).

J'aimerai, lors d'un changement d'onglet, associer à une certaine cellule cells(x,y) un lien hypertexte vers 
un dossier "c:\MyDocs" & sheets("name").cells(x,y).value & "\Projets\..." et pouvoir exécuter son ouverture.


Quelqu'un a t'il une solution de code à insérer dans VBA afin d'obtenir ce genre de chose?

En vous remerciant par avance.

ucfoutu · Accepted Answer

Peux-tu/veux-tu bien, silvanos, nous montrer ce que tu as obtenu à l'aide de l'enregistreur de macro en l'ouvrant, puis en affectant à une cellule de ton choix le lien hypertexte de ton choix (comme je ter l'ai demandé plus haut !) ?
Car ou tu ne l'as pas fait ou tu n'as rien compris du code ainsi obtenu.
Ce que je veux donc savoir, c'est si tu as fait ce petit effort (et on le saura vite lorsque tu nous auras montré ici le code ainsi obtenu).


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Bonjour,

Pour faire ce que tu dis (au changement "d'onglet") , tu n'as d'autre choix que celui d'appeler, depuis l'évènement Worksheet_Activate de chacune de tes feuilles une procédure déclarée publique dans un module
Pour le reste (ouverture d'un autre classeur pour y écrire dans une cellule) : sujet récurrent (utilise le moteur de recherche de ce forum)



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Je ne t'ai pas répondu en ce qui concerne l'ajout d'un lien hypertexte dans une cellule.
Il y a une raison à cela : il te suffit d'utiliser l'enregistreur de macro pour en obtenir le code qui doit t'inspirer. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Silvanos · Answer

Pas de soucis pour la localisation de ma fonction au sein de mon programme, il s'agit plus de la manière d'utiliser la fonction associé à la création de lien hypertexte tel que je le souhaite.
Malgrès la visualisation des autres postes, je n'arrive pas à mettre ce système en place.

Silvanos · Answer

Voici ce que je souhaite mettre en place: lien vers mon répertoire.
Pour cela j'utilise le code source suivant:


Private Sub CommandButton3_Click()
    'Changement d'onglet Lot 3
    Sheets("Lot 3").Visible = True
    Sheets("Lot 3").Select
    Sheets("Initial").Visible = False
     'Création des liens hypertextes
    'If Sheets("Initial").Cells(6, 7).Value = "XXX" Then
    '    Lien = "D:\XXX\XXX\XXX"
    '    Sheets("Lot 3").Cells(19, 20).Value = LIEN_HYPERTEXTE("Lien")
    'End If
End Sub

Silvanos · Answer

Bonjour,

Je viens tout juste, suite à ton nouveau message, de prendre connaissance de cet enregistreur de macro et de l'utiliser en recherchant sur le net. J'avais jusqu'à présent réalisé tout mon programme en VBA sans jamais connaître l'existence de cet outils.

Je vais l'utiliser dès maintenant pour voir les résultats obtenus déjà très intéressant :

Sub Hypertexte()
'
' Hypertexte Macro
    ActiveSheet.Unprotect
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("E9").Select
    ActiveSheet.Unprotect
    Range("T19:Y19").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "Palmetto problem 20120106/Painting Damaged", TextToDisplay:= _
        "Electrical verification of conformity"
    Selection.Font.Bold = True
    Selection.Font.Underline = xlUnderlineStyleNone
    Selection.Font.ColorIndex = 0
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

ucfoutu · Answer

Voilà ! (tu vois le temps perdu pour si peu ?)
Il te faut maintenant nettoyer un peu ce code dezs gestes manuels (les select) :
=>> exemple :
Range("T19:Y19").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Palmetto problem 20120106/Painting Damaged", TextToDisplay:= _
"Electrical verification of conformity" 

se traduit donc par :
Worksheets("nom-de-ta-feuille").Range("T19:Y19").Hyperlinks.Add Anchor:=Selection, Address:= _
"Palmetto problem 20120106/Painting Damaged", TextToDisplay:= _
"Electrical verification of conformity" 
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Liens Hypertexte associé à certaines cellules

7 réponses

Votre réponse