nom de feuille trop long sous VB

[Franck]

Bonjour et merci d'avance pour votre aide!

J'ai créé une trentène de copie de la meme feuille et donc la dernière feuille nommée s'appelle dans visuel basic :

Feuille49111111111111111111111111111 (semaine 49-2005)

Je pense que c'est cette feuille qui m'a créé une erreur sur mon programme et maintenant mon programme est bloqué, je n'arrive plus a supprimer cette feuille pour enlever cette erreur

Comment pourrais je faire ?
PS pouvez vous svp etre explicite car je ne suis pas bon dans le VB merci

 

[_Thierry]

Bonjour Franck, le Forum

J'ai eu ce problème dans le temps dû à un recopiage intensif de feuilles.

La solution manuelle est d'aller dans VBE (Visual Basic Editor) et de renommer le code name par la fenêtre propriété de le l'Objet Feuille [F4] pour afficher la fenêtre Propriété et [CTRL + R] pour afficher l'Explorateur de Projets.

Sinon par VBA :

Sub RenameVBComponentsSheets1()
Dim WS As Worksheet
Dim i As Integer

    With ThisWorkbook
        For Each WS In .Sheets
        i = i + 1
            .VBProject.VBComponents(WS.CodeName).Name = 'F' & i
        Next
    End With
End Sub

Ou encore :

Sub RenameVBComponentsSheets2()
Dim WS As Worksheet
  'Attention ceci implique que tu aies des noms d'onglerts de feuilles compatibles sinon çà ne passera pas.
   
    With ThisWorkbook
   
        For Each WS In .Sheets
            .VBProject.VBComponents(WS.CodeName).Name = WS.Name
        Next
   
    End With
End Sub

Bonne Journée
@+Thierry

 

[Franck]

Merci Thierry
Après avoir changer de nom de la feuille comme tu me l'as expliqué sous vb, quand je veux enregistrer le document ca me dit 'document non enregistré'


sais tu pourquoi stp ?

 

[Franck]

Merci JMPS

J'ai déja essayé tes solutions mais ca ne marche pas , ca ne veux pas enregistrer !!!

 

[_Thierry]

Bonsoir Franck, José, le Forum

Arf

Essaie de renommer le CodeName de la ou les feuilles comme j'ai indiqué sous VBE, puis copies les vers un nouveau Classeur (Click Droit depuis Excel sur les Onglets de Feuilles...

Bonne Soirée
[ol]@+Thierry[/ol]