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