Actualiser le nom des onglets en automatique

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

Bonjour,

Ceci devrait faire l'affaire :

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

Bonjour,

Pour moi la macro fonctionne tel quel. Tu es sure de l'avoir mis au bon endroit ou d'avoir un nom de page valide ?

Merci pour votre retour,

la macro fonctionne, mais j'ai toujours la fenêtre d'erreur Visual Basic avec un message d'erreur d'exécution 1004

la méthode 'Name' de l'objet '_worksheet' a échoué

Re,

la méthode 'Name' de l'objet '_worksheet' a échoué n'est pas la même chose que la méthode 'range' de l'objet '_worksheet' a échoué

Ici, j'imagine que tu as dans une des cellules un caractère qui ne peut pas figurer dans un nom d'onglet.

effectivement, les cellules BK4 sont des formules pour 30 onglets sur 32.

mais la macro fonctionne malgré tout.

peut-on modifier la formule pour l'intégrer à un bouton de commande?

Le problème n'est pas que ce soient des formules ou pas, mais ce qui est généré par les formules.

Si tu veux associer la macro à un bouton plutôt qu'au lancement du fichier, il faut copier le code suivant dans un module standard :

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

Mais ça ne changera rien au fait que tu génères à priori des onglets avec des noms incorrects.

Au pire, tu peux partager ton fichier, sans données confidentielles.

et la macro fonctionne effectivement avec la formule d'origine, mais toujours le message d'erreur sur le "name" et nom pas sur le "range"

OUPS!! l'erreur venait d'onglets cachés que j'avais oublié de supprimer. la formule fonctionne très bien et sans message d'erreur.

par contre la macro avec bouton ne fonctionne pas. je crée le bouton, j'insère la formule,

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

message d'erreur suivant: "erreur de compilation: End Sub attendu"

Si tu fais comme ceci, il faut supprimer la ligne

Sub onglets()

Bonsoir le forum, bonsoir Dan

Bonsoir le fil

Bonsoir Xûr76 ou mrdo ou .... ou .... Pas très sympa de venir chercher des solutions à une réponse donnée [Ici] et qui fonctionnait très bien (s'il n'y avait pas eu d'onglets masqués...). Tu aurais pu poursuivre sur le site initial ????? Le cross posting n'est pas à encourager.

Je ne te salue pas.

Décidément, t'as des messages d'erreur de partout toi !

C'est pas ta journée on dirait 😉

c'est clair

bonne soirée à tous et encore merci