Discussion :

[rossemma]

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.

[mercatog]

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

[rossemma]

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

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

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

Merci

[vinc_bilb]

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

Code :

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

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)

[rossemma]

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?

[vinc_bilb]

Rebonjour,

Par exemple

Code :

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

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 :

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

1
2
3
4
5
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
Call welcomeStatusBar(Sh)
 
End Sub

[rossemma]

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

[Philippe Tulliez]

Bonjour,

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 ?

[OrDonc]

Bonjour

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

Code :

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

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

[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 :

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

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

[patricktoulon]

re
dans le module this workbook

Code :

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

1
2
3
Private Sub Workbook_SheetActivate(ByVal sh As Object)
    remake_statusbar sh
End Sub

dans un module standard

Code :

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

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

[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 :

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

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

[rossemma]

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

Merci à tous pour votre aide

[mercatog]

Bonjour

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

[OrDonc]

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 !

[jean_2940]

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...

[rossemma]

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é.