Discussion :

[semas]

Bonjour,

J'ai besoin de renommer une feuille mais je n'y arrive pas.

Voila mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub EffaceShtGraph()
 
    Application.DisplayAlerts = False
    Worksheets("Graf Sem").Delete
    Application.DisplayAlerts = True
 
End Sub
 
Private Sub Boucle()
 
    wbkPN.Worksheets.Add after:=Worksheets(Worksheets.Count)
    Let ActiveSheet.Name = "Graf Sem"
 
End Sub

Alors dans un 1er temps j'efface la feuille "graph sem" a chaque lancement pour eviter une erreur.
Puis je la crée en nomant l'onglet "graph sem", ce que je voudrais faire c'est dans l'arborescence de VBE renommer automatiquement cette feuille aussi pour qu'elle est un nom fixe a chaque fois que je relance la macro et eviter que j'ai un nom du genre feuilX qui s'incremente a chaque fois. Pour la suite de mon code c'est pas evident.

Avez vous un idée de comment je peux faire?

Merci d'aider un débutant.

[zandru]

Bonjour,
il suffit normalement de suppimer let :

Code :

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

1
2
3
4
5
6
Private Sub Boucle()
 
    wbkPN.Worksheets.Add after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Graf Sem"
 
End Sub

Attention ce n'est que le nom affiché dans l'onglet et non le codename !!!

pour le codename regarde Là

[semas]

Merci de ton aide.

Le bout de code fait exactement ce que je veux.

Par contre si je supprime le Let mon bout de code pour effacer la feuille ne marche plus alors je le laisse car ca fonctionne bien.


EDIT: Tu avais raison pour le Let, ca marchait au debut et maintenant non alors je l'ai enlevé et ca marche.