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