Discussion :

[cchasse98]

Bonjour,

Pourquoi je ne peux pas passer une variable au nom de ma feuille.
J'obtiens erreur 1004.

Code :

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

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
Private Sub Workbook_Open()
    
    Dim ws As Worksheet
    Dim Nom_Feuille, Anc_Feuille As String
    Dim Premier As Boolean
    Dim Nom_Copie As String
    
    C_PERIODE = 1
    C_ANNEE = 2013
       
    If C_PERIODE = 1 Then
        For Each ws In ThisWorkbook.Worksheets
            If Left(ws.Name, 4) = "Data" And Premier = False Then
               Nom_Feuille = ws.Name
               
               
               Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Data " & C_ANNEE
               
               Anc_Feuille = C_ANNEE - 1
               Sheets(Anc_Feuille).Select
               Sheets(Anc_Feuille).Copy After:=Sheets(Anc_Feuille)
               Sheets(Anc_Feuille & " (2)").Select
               ActiveSheet.Name = Nom_Feuille La ligne en erreur
               
               Premier = True
               
            End If
         Next ws
    End If
    
End Sub

Merci

[tototiti2008]

Bonjour cchasse98,

Peut-être parce que 2 feuilles de ton classeur ne peuvent pas porter le même nom ?

[Godzestla]

Peut-être parce que 2 feuilles de ton classeur ne peuvent pas porter le même nom ?

+1

Et aussi, il faudrait tester que DATA 2013 n'existe pas et éviter de gérer le nom de la feuille (pour accès) avec "(2)".

mais c'était juste des conseils.

[cchasse98]

Bonjour,

Bien Oui !!!!

Merci et bonne journée

[Nicopilami]

As tu vérifié qu'une feuille qui porte ce nom n'existe pas déjà ?

++
Nico