XL 2013 actualiser le nom des onglets en automatique à l'ouverture du fichier et ou VBA

[mrdo]

Bonjour,

J'ai un dossier de 30 onglets. chaque onglet est nommé en automatique toujours à partir de la cellule BK4.

//Private Sub Worksheet_SelectionChange(ByVal Target As Range)
//Set Target = Range("$BK$4")
//If Target = "" Then Exit Sub
//Application.ActiveSheet.Name = VBA.Left(Target, 31)
//Exit Sub
//End Sub

formule qui marche très bien, merci à celui et ceux qui on partagé.

actuellement je dois ouvrir chaque onglet cliquer sur la cellule pour que l'onglet se mette à jour.
je cherche une solution pour automatiser l'actualisation de tous les onglets en même temps.
soit par bouton soit à l'ouverture du fichier
si vous avez des idées je suis preneur,

 

[Eric C]

Bonjour mrdo, le forum

A adapter et mettre dans le code de ThisWorkBook

Private Sub Workbook_Open()
Dim F As Worksheet
For Each F In Worksheets
F.Name = F.Range("BK4")
Next
End Sub

Bonne après midi à toutes & à tous
@+ Eric c

 

[Eric C]

Re le forum

mrdo ou Xûr76 ou … ou…,ce n'est pas très sympa d'aller poster ailleurs[Ici] .
Comme le dit notre ami BrunoM45 (que je salue au passage), la pratique du cross posting est mal perçue à plus forte raison lorsque vous allez chercher ailleurs une solution à partir d'une réponse qui vous a été donnée sur ce forum et que vous n'avez pas su mettre en application alors qu'une ou des feuilles étaient masquées et généraient ainsi une erreur. La logique (ET la politesse) eut été de continuer sur ce fil pour obtenir une réponse positive à votre soucis ????

Je ne te salue pas
@+ Eric c

 

[mrdo]

tout d'abord, merci Eric le code fonctionnait très bien

je tiens à m'excuser, mon compte était bloqué et je ne pouvais pas répondre.
En fin de compte il fallait simplement réinitialiser mon mot de passe et ça refonctionne.

encore désolé. j'étais pris par le temps pour essayer de me débloquer, et j'ai agi un peu précipitamment.

donc désolé pour cette mauvaise pratique, mais je cherchais une réponse et ne pouvant plus utiliser ce site je suis passé par un autre.

la solution finale pour moi avec commande à partir d'un bouton:

Private Sub CommandButton9_Click()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Name = F.Range("BK4")
Next
End Sub

merci Eric, et moi je te salue