problème ajout feuille

bonjour,


petit problème dans mon code pour ajouter une feuille



il me retoune comme erreur

run time error 1004


cannot rename a sheet to the same name as another sheet, a referenced
object library or a workbook referenced by visual basic.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Do bonNom = True If sem <> "" Then 'Vérifier que le nom n'existe pas déjà For a = 1 To ActiveWorkbook.Worksheets.Count If UCase(sem) <> UCase(Worksheets(a).Name) Then Sheets.Add.Name = sem 'ActiveSheet.Name = sem i = 3 Worksheets(sem).Select ActiveSheet.Range("A" & i).Value = "Semaine" & sem i = 4 ActiveSheet.Range("A" & i).Value = "Route" ActiveSheet.Range("b" & i).Value = "Date" ActiveSheet.Range("c" & i).Value = "kilometre" ActiveSheet.Range("d" & i).Value = "nombre de client" While ActiveSheet.Range("A" & i) <> "" i = i + 1 Wend ActiveSheet.Range("A" & i).Value = Tournee ActiveSheet.Range("B" & i).Value = jourdate ActiveSheet.Range("c" & i).Value = kilometre ActiveSheet.Range("d" & i).Value = client Else   i = 3 Worksheets(sem).Select ActiveSheet.Range("A" & i).Value = "Semaine" & sem While ActiveSheet.Range("A" & i) <> "" i = i + 1 Wend ActiveSheet.Range("A" & i).Value = Tournee ActiveSheet.Range("B" & i).Value = jourdate ActiveSheet.Range("c" & i).Value = kilometre ActiveSheet.Range("d" & i).Value = client End If Next   End If Label1.Caption = "pas de nom" Loop Until bonNom = True   End Sub

---

une idée de mon erreur, merci

Bonjour,

Comment initialise tu ta variable sem?

Et je pense qu'il faut que tu test ta feuille sem avec la totalité des feuilles présente car la tu test le nom sur chaque feuille les une à la suite des autres.

Concrètement pour l'exemple tu as 3 feuille

Semaine1 | semaine2 | semaine3

sur la première feuille tu test le nom mais tu ne le test pas tout de suite sur les feuilles 2 et 3

si le nom n'est pas identique du ajoute ta feuille mais rien n'enpêche qu'eele se nomme comme 2 ou 3

Utilise un variable booleen de test .

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

Do bonNom = True If sem <> "" Then Dim existe As Boolean existe = False 'Vérifier que le nom n'existe pas déjà For a = 1 To ActiveWorkbook.Worksheets.Count If UCase(sem) = UCase(Worksheets(a).Name) Then existe = true end if   Next if existe = false then Sheets.Add.Name = sem 'ActiveSheet.Name = sem i = 3 Worksheets(sem).Select ActiveSheet.Range("A" & i).Value = "Semaine" & sem i = 4 ActiveSheet.Range("A" & i).Value = "Route" ActiveSheet.Range("b" & i).Value = "Date" ActiveSheet.Range("c" & i).Value = "kilometre" ActiveSheet.Range("d" & i).Value = "nombre de client" While ActiveSheet.Range("A" & i) <> "" i = i + 1 Wend ActiveSheet.Range("A" & i).Value = Tournee ActiveSheet.Range("B" & i).Value = jourdate ActiveSheet.Range("c" & i).Value = kilometre ActiveSheet.Range("d" & i).Value = client Else   i = 3 Worksheets(sem).Select ActiveSheet.Range("A" & i).Value = "Semaine" & sem While ActiveSheet.Range("A" & i) <> "" i = i + 1 Wend ActiveSheet.Range("A" & i).Value = Tournee ActiveSheet.Range("B" & i).Value = jourdate ActiveSheet.Range("c" & i).Value = kilometre ActiveSheet.Range("d" & i).Value = client End If     End If Label1.Caption = "pas de nom" Loop Until bonNom = True   End Sub

---

enfin je l'ai pas tester mais c un truc du genre

Bon Courage

ok super