Discussion :

[nicogef]

bonjour

j'ai un problème avec mon code qui fonctionne en lancent la macro manuellement mais pas depuis mon ruban personnalisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sub ouverture_onglet_semaine()
'ouverture sur onglet de la semaine
Application.Goto Sheets("S" & CStr(N_SEM(Date))).[A1]
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function N_SEM(Jr As Date) As Long
Dim D As Date
D = DateSerial(Year(Jr - Weekday(Jr - 1) + 4), 1, 3)
N_SEM = Int((Jr - D + Weekday(D) + 5) / 7)
End Function

merci d'avance pour votre aide
coridalement

nicogef

[Menhir]

j'ai un problème avec mon code qui fonctionne en lancent la macro manuellement mais pas depuis mon ruban personnalisé

Que se passe-t-il quand tu la lances depuis ton ruban ?

[nicogef]

Bonjour

Elle ne change pas d'onglet
Cordialement
Nicogef

[unparia]

Bonjour
On ne voit pas le code essentiel : celui du clic sur l'onglet concerné de ton "ruban personnalisé" !