Problème avec les noms de mes classeurs

Bonjour,
Pour simplifier mon programme, j'ai ajouté la ligne suivante :

Code:

---

1 2	Set monClasseur = Application.Workbooks.Item("Classeur_traitement.xlsm")

---

J'utilise cette ligne afin de pouvoir écrire la formule suivante :

Code:

---

1 2	Set sheetTOcreate = monClasseur.Worksheets.Add(After:=monClasseur.Worksheets.Item(monClasseur.Worksheets.Count))

---

Cependant le problème est que la macro où est contenu cette ligne ne fonctionne plus dès que je change le nom du classeur. (Ce que je comprend très bien)
Comment serait-il possible de faire pour éviter d'avoir ce problème et pour quand même pouvoir effectuer la 2ème ligne de code?

Merci d'avance de votre aide !;)

Bonjour !

Clair comme une nuit d'orage sous une pluie de cendres volcaniques !

Dans le cas où les feuilles sont situées dans le classeur contenant le code :

Code:

---

1 2	Dim Ws As Worksheet With ThisWorkbook.Worksheets: Set Ws = .Add(, .Item(.Count)): End With

---

___________________________________________________________________________________________________________

   :arrow:   Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour, merci de ta réponse mais cela ne marche pas chez moi.
Le problème est que je veux que cette feuille qui a été créée change de nom et que la création de feuille soit répétée à l'aide d'une boucle for :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim a dim i a=1 Set monClasseur = Application.Workbooks.Item("traitement.xlsm") Set Feuille_tableau = monClasseur.Worksheets.Item("Données_tableau") For i = 1 To nb_ligne Step 1 'boucle pour créer autant de feuille qu'il y a de ligne dans le tableau Set sheetTOcreate = monClasseur.Worksheets.Add(After:=monClasseur.Worksheets.Item(monClasseur.Worksheets.Count)) 'création de la feuille sheetTOcreate.Name = "Image_" & a 'changement de nom Feuille_tableau.Rows(1).Copy Destination:=sheetTOcreate.Cells(1, 1) 'ligne qui copie la ligne du tableau dans la feuille créée. Next

---

Je n'ai pas réussi à changer cela par ce que tu m'as proposé.
Merci de ton aide.

Ligne de code n°7 :  quelle est donc la valeur de la variable nb_ligne ?