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