bonjour à tous,

J'ai ce bout de code qui se trouve dans un module et qui se lance a l'activation du workbook.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub welcomeStatusBar()
 
Dim d As String
d = Format(Now(), "dd-mm-yyyy")
Application.StatusBar = "Welcome" & " / " & Environ("Username") & " / " & d
 
End Sub
Je voudrais ajouter au bout de ce code le nom de l'onglet tel qu'affiché dans le classeur et tel qu'affiché dans le code VBA.

De plus, je voudrais qu'il s'adapte a chaque changement de feuille. Je pensais appeler le code dans un private sub workbook_sheetactivate.

Merci pour votre aide.