ourvrir hyperlien avec checkbox

BERLIOZ20045

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Discussions similaires