nom onglet dans statusbar

bonjour à tous,

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

Code:

---

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.

Oui essaie avec cet événement
Et ajoute Sh.name dans ton statusbar

ce code est dans un module car j'y fait appel à plusieurs endroits dans mes codes

Code:

---

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

---

Comment faire appel à cette procédure et ajouter sh.name dans private sub workbook_sheetactivate(byval sh as object)

Merci

et bien .... vous avez presque la réponse il me semple

Code:

---

1 2 3 4

sub workbook_sheetactivate(byval sh as object) ..... Call welcomeStatusBar(sh) End Sub

---

et vous modifiez votre welcomeStatusBar pour mettre la worksheet en argument (optionnel ou non)

Merci pour votre réponse mais n'est-ce pas private sub...

Je suis un peu débutant en VBA, que voulez vous dire par mettre la worksheet en argument?

Rebonjour,

Par exemple

Code:

---

1 2 3 4 5 6 7 8 9

Sub welcomeStatusBar(Optional Sh As Worksheet)   Dim d As String If Sh Is Nothing Then Set Sh = ActiveSheet   d = Format(Now(), "dd-mm-yyyy") Application.StatusBar = "Welcome" & " / " & Environ("Username") & " / " & d & " Sheet " & Sh.Name   End Sub

---

et pour l'appeler dans ThisWorkbook:

Code:

---

1 2 3 4 5

Private Sub Workbook_SheetActivate(ByVal Sh As Object)   Call welcomeStatusBar(Sh)   End Sub

---

Merci je comprends mieux maintenant

Cependant, il indique le nom de l'onglet et non le nom donné dans l'explorateur VBA.

Je me suis peut être mal exprimé et/ou fais mal comprendre précédemment.

Comment modifier pour avoir le nom VBA

Bonjour,

Citation:

---

que voulez vous dire par mettre la worksheet en argument ?

---

Dans Excel, la plupart des fonctions ont besoin d'un ou plusieurs arguments pour renvoyer une valeur.
Et bien en VBA, c'est pareil. Si tu souhaites écrire une procédure qui ouvre un fichier, trier un de ces tableaux et ensuite l'exporter avec condition. Au lieu d'écrire plusieurs fonction ou SUb qui font pratiquement la même chose, tu en écris une seule en prévoyant des paramètres.

Pour faire plus simple.
Imagine que tu achètes un robot qui ouvre des portes et dont la commande est OUVREPORTE et bien si tu as plusieurs portes, tu lui passeras comme argument le numéro de la prorte à ouvrir soit OUVREPORTE 4 pour la 4ème porte à ouvrir
Si tu achètes maintenant un robot plus sophistiqué qui ouvre à la fois des portes et des fenêtres, et dont la commande est OUVRE, tu passeras deux arguments. L'un pour indiquer que c'est une porte ou une fenêtre qu'il doit ouvrir et le deuxième pour lui donner le numéro de la porte ou de la fenêtre à ouvrir soit OUVRE "Porte", 3

Est-ce plus clair ?

Bonjour

Dans ThisWorbook (Alt F11), procédure pour chaque onglet du classeur

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim T1 As String, T2 As String, T3 As String T1 = "Welcome" & " / " & Environ("Username") T2 = " / " & Format(Now(), "dd-mm-yyyy") & " en " & Sh.Name T3 = " et nommée " & Sh.CodeName Application.StatusBar = T1 & T2 & T3 End Sub

---

Tu verras la distinction entre Name et Codename

Pq ce code donne comme erreur "la méthode 'statusbar' de l'objet 'application' a échoué, quand je passe d'un classeur à un autre.
le problème se pose quand l'autre classeur est en lecture seule.
comment y remédier?

Code:

---

1 2 3 4 5 6 7

Private Sub workbook_deactivate()   Application.StatusBar = False 'remise à zéro de la barre d'état   Application.ErrorCheckingOptions.BackgroundChecking = True   End Sub

---

re
dans le module this workbook

Code:

---

1 2 3

Private Sub Workbook_SheetActivate(ByVal sh As Object) remake_statusbar sh End Sub

---

dans un module standard

Code:

---

1 2 3 4

Sub remake_statusbar(sh) Application.StatusBar = "Welcome" & " / " & Environ("Username") & " / " _ & Format(Now(), " dd-mm-yyyy ") & "( onglet actif : " & sh.Name & " codename :" & sh.CodeName & " )" End Sub

---

Pièce jointe 459169

Citation:

---

Envoyé par rossemma

Pq ce code donne comme erreur "la méthode 'statusbar' de l'objet 'application' a échoué, quand je passe d'un classeur à un autre.
le problème se pose quand l'autre classeur est en lecture seule.
comment y remédier?

Code:

---

1 2 3 4 5 6 7

Private Sub workbook_deactivate()   Application.StatusBar = False 'remise à zéro de la barre d'état   Application.ErrorCheckingOptions.BackgroundChecking = True   End Sub

---

---

Merci Mr Toulon pour votre aide mais le problème est celui-ci.
Je bloque, c'est énervant

Je relance car je bloque depuis deux jours et mes connaissances en VBA sont nulles pour trouver la solution.

Merci à tous pour votre aide

Bonjour

Citation:

---

Pq ce code donne comme erreur "la méthode 'statusbar' de l'objet 'application' a échoué, quand je passe d'un classeur à un autre.
le problème se pose quand l'autre classeur est en lecture seule.
comment y remédier?

---

Parce que tu n'étais pas clair.

Que veux dire passer d'un classeur à l'autre

Re

Les 2 classeurs étant ouverts, activer un onglet de l’un ou de l’autre, ne pose pas de problème chez moi, quand bien même le second est en lecture seule !

ta procédure de modification de statusbar étant liée à un évènement du classeur 1 il me semble normal que lorsque tu passes au classeur 2 il ne se passe rien...

en fait j'ai le message lorsque que j'ouvre un autre classeur qui est en pièce jointe dans un mail. Il ouvre ce dernier en mode protégé.