ourvrir hyperlien avec checkbox

[BERLIOZ20045]

bonjour

j'ai dans un autre fichier toto un lien hypertexe
et je voudrais l'activer en activant une checkbox dans un autre fichier titi

j'arrive a ouvrir le fichier aller dans l'onglet mais apres je n'arrive pas activer le lien,

Option Explicit
Private Sub CheckBox1_Click()
Dim nomfeuille As String
nomfeuille = Range('a5').Value
Application.Workbooks.Open ('r:\\TECHNICO-RAPPORT.xls')
ActiveWorkbook.Sheets(nomfeuille).Select
et apres activer le lien
End Sub

b3=nom onglet


merci

 

[MichelXld]

bonjour

si par exemple le lien est dans la cellule A1 du classeur TECHNICO-RAPPORT.xls ,tu peux tester

Private Sub CheckBox1_Click()
Dim nomFeuille As String
Dim Wb As Workbook

nomFeuille = Range('A5').Value

Set Wb = Application.Workbooks.Open('r:\\\\\\\\TECHNICO-RAPPORT.xls')
Wb.FollowHyperlink Wb.Sheets(nomFeuille).Range('A1'), , True
End Sub



bonne journée
MichelXld

 

[BERLIOZ20045]

SALUT

salut excuse moi du retard j'étais a l'etranger
ok c'est ce que je voulais merci