nom feuille active

Bonjour,
Dans un classeur excel 2003, j'ai 10 feuilles.
Je souhaite que le nom de la feuille active (de Feuil2 à Feuil10) soit reporter dans la Feuille 1 en G7
La Feuil1 ne devant jamais être enregistrée comme feuille active.
En espérant me faire bien comprendre.
J'ai essayé :

Code:

---

1 2 3 4 5 6 7

Sub essai() Dim Sh As Worksheet Nom = ActiveSheet.Name Sheets("Feuil1").Select Cells(7, 7) = ActiveSheet.Name Set Sh = Nothing End Sub

---

Mais ça écrit Feuil1 en Feuille 1
Je vous remercie d'éclairer ma lanterne.

Salut !

Normal, tu affectes à une première variable le nom de ta feuille active puis tu ne l'utilises pas ... De plus, je ne vois pas à quoi te sert la variable sh, tu ne t'en sers pas dans ton code ...

Code:

---

1 2 3 4 5 6 7 8

Sub essai() Dim Nom as String   Nom = ActiveSheet.Name Sheets("Feuil1").Select Cells(7, 7) = Nom   End Sub

---

Si tu veux rajouter une condition pour que ta feuille 1 ne soit jamais inscrite dans ta cellule :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub essai() Dim Nom as String   Nom = ActiveSheet.Name if Nom = "Feuil1" then exit sub else Sheets("Feuil1").Select Cells(7, 7) = Nom end if   End Sub

---

En espérant avoir répondu à ton problème.

Cdt,

Matt

Bonjour mattgui,
Je te remercie vivement pour tes explications et ton code
Ce n'est pas facile pour moi car je ne connais pas le vba

En plus simple :

Code:

---

1 2 3

Sub essai() If ActiveSheet.Name <> "Feuil1" Then Sheets("Feuil1").Range("G7") = ActiveSheet.Name End Sub

---

Bonjour,

je le verrais plutôt dans un évènement du module ThisWorkbook :

Code:

---

1 2 3

Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name <> Feuil1.Name Then Feuil1.[G7].Value = Sh.Name End Sub

---

___________________________________________________________________________________________________________

   :arrow:  Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé …