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