Discussion :

[hugo70]

hello les développeurs,

je travail sous Excel et mon projet consiste à créer des formes géométrique sur lesquelles j'aimerais ajouter un lien hypertexte, seulement je n'arrive pas à trouver la bonne syntaxe.

Je n'arrive pas à trouver de poste répondant à mon problème, voici mon code :

Code :

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

1
2
3
4
5
6
        With Sheets(sheet_array(sheet)).Shapes.AddShape(msoShapeRoundedRectangle, 10, coord1, 80, 85)
            .Name = "P0" & Project   'shape name
            .TextFrame.Characters.Text = Project   'inside Text
            .Fill.ForeColor.RGB = RGB(64, 0, 192) 'inside color
            .Hyperlinks.add ??
        End With

avec Sheets(sheet_array(sheet)) qui correspond à la feuille sur laquelle je créer la forme (rectangle), puis en ligne 5 j'aimerais lui attribuer un lien hypertexte du type .Hyperlinks.add("C:/blablabla") pour que l'utilisateur ai juste à cliquer dessus pour accéder à un dossier spécifique.

Merci pour votre aide

[Menhir]

A priori, l'objet Shape n'a pas de propriété Hyperlinks (au pluriel) mais une propriété Hyperlink vers un lien unique.
https://msdn.microsoft.com/fr-fr/lib.../ff193908.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff836460.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff835563.aspx

[hugo70]

En effet il semble que hyperlink soit plus adapté à ma situation cependant je ne vois pas comment placer le chemin du dossier voulu dans cette ligne de code :

Code :

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

Worksheets(1).Shapes(1).Hyperlink.Follow NewWindow:=True

je ne comprend pas à quoi correpsond NewWindow := True

Merci de ton aide

[riaolle]

Bonjour,
Follow veut dire suivre, donc avec cette méthode tu suis le lien qui existe déjà sur ta figure.
Regarde ici.

Code :

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

Worksheets(1).Hyperlink.Add Anchor:=Worksheets(1).Shapes(1), Address:="le lien"

[Menhir]

En effet il semble que hyperlink soit plus adapté à ma situation cependant je ne vois pas comment placer le chemin du dossier voulu

A vue de nez, la propriété Address me semble le plus logique, non ?
Tu devrais prendre le temps de lire la description des différents membres de l'objet Hyperlink pour avoir une vision d'ensemble qui t'aidera à mieux comprendre comment obtenir ce que tu souhaites.
https://msdn.microsoft.com/fr-fr/lib.../ff837970.aspx

dans cette ligne de code :

Code :

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

Worksheets(1).Shapes(1).Hyperlink.Follow NewWindow:=True

Follow sert à gérer la mémoire cache, comme indiqué dans l'aide.
https://msdn.microsoft.com/fr-fr/lib.../ff839219.aspx

je ne comprend pas à quoi correpsond NewWindow := True

Comme indiqué dans la doc :
NewWindow : True pour afficher l'application cible dans une nouvelle fenêtre. La valeur par défaut est False.

Ca me semble assez clair, non ?

[hugo70]

Je n'avais pas vue ta réponse riaolle, merci mille fois ça fonctionne !!

Merci à vous deux pour votre aide ça ma débloqué.

Bonne continuation