Bonjour,

J'ai un onglet que je nomme 2012, je fais une copie de cet onglet que je nomme 2013.

Le problème est que dans le nouvel onglet 2013 les formules qui se réfère au nom de l'onglet conserve le nom 2012 et ne prend pas le nouveau.

Voici mon code, qu'est ce que je dois ajoute ???

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
32
33
34
35
36
37
38
39
40
41
42
 Private Sub Workbook_Open()
 
    Dim ws As Worksheet
    Dim Verif_An, Nom_Feuille, Anc_Feuille As String
    Dim Premier As Boolean
    Dim An_Date, Periode As Integer
    Dim Existe As Boolean
 
    Existe = False
    An_Date = Year(Date)
    Verif_An = 2013  'An_Date
    Periode = 1    'Month(Date)
 
 
    If Periode = 1 Then
        For Each ws In ThisWorkbook.Worksheets
           If ws.Name = Verif_An Then  'Vérifie si l'onglet année existe déjà si oui il n'ajoutera aucun onglet
                Existe = True
           End If
        Next ws
 
        For Each ws In ThisWorkbook.Worksheets
                If Left(ws.Name, 4) = "Data" And Premier = False And Existe = False Then
 
                    Nom_Feuille = Verif_An
 
                    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Data " & Verif_An 'ajoute l'onglet data année à la fin pour la nouvelle année
 
                    Anc_Feuille = Verif_An - 1
                    Sheets(Anc_Feuille).Select
                    Sheets(Anc_Feuille).Copy After:=Sheets(Anc_Feuille)
                    Sheets(Anc_Feuille & " (2)").Select
                    ActiveSheet.Name = Nom_Feuille
 
                    Premier = True
 
                End If
 
         Next ws
    End If
 
End Sub
Merci et bonne journée