Ouverture sur l'onglet correspondant au mois en cours
Bonjour,
étant en train de faire un planning de travail pour gérer le temps de travail du personnel, j'ai trouvé intéressant que lorsque j'ouvre l'excel, celui ci s'ouvre sur le bon onglet correspondant au mois en cours (exemple actuel:ouverture sur le mois de mars).
J'ai trouvé mon bonheur sur cette page:https://support.office.com/en-us/article/Automatically-run-a-macro-when-opening-a-workbook-1e55959b-e077-4c88-a696-c3017600db44
Tout marche nickel hormis le fait que le nom des mois doivent être en anglais donc March, May,etc.. alors que j'aurais voulu les garder en français.
Voici la formule que j'ai intégrer en VBA:
Private Sub Auto_Open()
Dim vntToday As Variant
vntToday = WorksheetFunction.Text(Date, "mmmm")
On Error Resume Next
Sheets(vntToday).Select
If Err <> 0 Then
MsgBox "Worksheet doesn't exist."
Else
Range("A1").Select
End If
End Sub
Si vous avez une réponse a me proposer,ça serait merveilleux
Merci à tous
Désolé,
je viens de voir la solution sur le forum qui fonctionne très bien (à mettre sur thisworkbook)
Private Sub Workbook_Open()
On Error Resume Next
Sheets(Format(Date, "mmmm")).Activate
If Err <> 0 Then MsgBox "L'onglet " & Format(Date, "mmmm") & " n'existe pas !"
End Sub
Merci
bonjour boutsou,
le code original de la macro fonctionne bien pour moi.
vntToday = WorksheetFunction.Text(Date, "mmmm dd")avec des onglets nommés march 15, march 16, jusqu'à 31.
moi j'ai pris la variante mois année qui m'intéresse:
vntToday = WorksheetFunction.Text(Date, "mmyy")avec des onglets nommés 0317, 0417, jusqu'à 1217
merki