Discussion :

[cchasse98]

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

[Oliv-]

Salut,
tu peux faire un remplacement sur ton nouvel onglet dans les formules !

à tester

Code :

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

1
2
3
    Sheets(Nom_Feuille).Cells.Replace What:=Anc_Feuille & "!", Replacement:=Nom_Feuille & "!", _
                                                  LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
                                                  False, ReplaceFormat:=False

[cchasse98]

Bonjour,

Je suis débutante en VBA je vois ce que ta fonction fait.

Merci pour le code, mais j'ai une erreur d'exécution 9, " L'indice n'appartient pas à la sélection".

Merci

[cchasse98]

Bonjour,

J'ai trouvé le pourquoi de mon erreur d'exécution 9, mais le code ne change rien dans mes formules.

Code :

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

1
2
3
Sheets(Nom_Feuille).Cells.Replace What:=Anc_Feuille & "!", Replacement:=Nom_Feuille & "!", _
                                                  LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
                                                  False, ReplaceFormat:=False

Merci

[Nicopilami]

Bonjour,

J'ai trouvé le pourquoi de mon erreur d'exécution 9, mais le code ne change rien dans mes formules.

Code :

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

1
2
3
Sheets(Nom_Feuille).Cells.Replace What:=Anc_Feuille & "!", Replacement:=Nom_Feuille & "!", _
                                                  LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
                                                  False, ReplaceFormat:=False

Merci

Salut
au pifometre comme ca, essaie de rajouter ca dans la commande :

Code :

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

LookIn:=xlFormula

++
Nico

[Oliv-]

..., mais le code ne change rien dans mes formules.

Difficile de voir sans un exemple de tes formules