Probleme lien hypertexte

[chris_tls]

Bonjour,

Après avoir cherché sur le forum + Google nous faisons appel a votre savoir.

Nous essayons d'accèder a un autre classeur via un lien hypertxte dans une cellule. Lorsqu'on clique dessus il fonctionne, le lien est :

CC%20-%20Contrôle%20des%20comptes/Balance%20par%20cycles.xls#'B'!A1

On arrive sur la feuille 'B' en A1.

Nous avons une barre perso dans un des sous menu nous avons le code suivant :
Set MyButton = MonMenu.Controls.Add(msoControlButton, 1, , , True)
With MyButton
.Caption = "Cycle - B"
.FaceId = 3892
.Style = msoButtonIconAndCaption
.OnAction = "Vers_CCB_fich"
.BeginGroup = True
End With
Fonction Vers_CCB_fich :
Sub Vers_CCB_fich()
Sheets("Menu").Range("AE5").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Depuis la barre perso nous n'arrivons pas sur la feuille 'B' et c'est notre probleme.

Nous avons essayé une autre méthode : followHyperlink sans succès.

Pour résumer :
- En utilisant le lien hypertxte depuis la feuille, cellule AE5 cela fonctionne
- En utilsant le lien hypertexte depuis le menu perso cela ne fonctionne pas.

Merci pour votre aide.

 

[THE CAT 2007]

Re : Probleme lien hypertexte

Bonjour à tous,

nous aurions écrit comme cela :
sub ......
Set MyButton = MonMenu.Controls.Add(msoControlButton, 1, , , True)
With MyButton
.Caption = "Cycle - B"
.FaceId = 3892
.Style = msoButtonIconAndCaption
.OnAction = "Vers_CCB_fich"
.BeginGroup = True
End With
'Fonction Vers_CCB_fich :
end sub

'dans un module
Sub Vers_CCB_fich()
Sheets("B").Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Cordialement et si nous avons bien compris ;-)