[XL-2007] Boite de dialogue après fonction replace

Boite de dialogue après fonction replace

Bonjour,

Est ce que quelqu'un peut me dire pourquoi après mon replace une boite de dialogue m'apparait et c'est pour mettre à jour les valeurs : Controllable ...

qu'est ce que je dois faire pour que le tout se fasse automatiquement.

Je joint mon fichier pour que vous puissiez constatez.

Mon code s'exécute à chaque nouvelle année donc j'avance la date de mon ordi au 3 janvier 2013.

re

Bonjour

Mets nous plutôt le code qui te pose problème.

Au plaisir

Voici le code

Bonjour,

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
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
    Dim rng As Range
    Dim cell As Variant
 
    Existe = False
    An_Date = Year(Date)
    Verif_An = An_Date
    Periode = 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 = CStr(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
                    'Sheets("Data " & Nom_Feuille).Select
                    ActiveSheet.Range("A1") = "XFO_FAB"
                    ActiveSheet.Range("B1") = "REVISION"
                    ActiveSheet.Range("C1") = "ID_XFO"
                    ActiveSheet.Range("D1") = "MIN(PEX."
                    ActiveSheet.Range("E1") = "MOIS"
                    ActiveSheet.Range("F1") = "COUT"
 
                    ActiveSheet.Range("A1:F1").Select
                    With Selection
                        .Font.Bold = True
                        .HorizontalAlignment = xlCenter
                        .VerticalAlignment = xlBottom
                    End With
 
                    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
 
                    'Range("a2:n32").Replace What:=Anc_Feuille & "'!", Replacement:=Nom_Feuille & "'!", _
                     '                             LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
                    '                             False, ReplaceFormat:=False
 
 
 
                    Premier = True
 
                    'Initialisation des en-têtes de colones
 
 
                End If
 
         Next ws
    End If
 
End Sub

Après le replace la boite de dialogue.

Merci

Bonsoir,

et elle dit quoi la boite de dialogue ?

Bonjour,

Voici le titre de la boite de dialogue
"Mettre à jour les valeurs : Controllable expenses gainsharing_2012.xls"

Demande d'ouvrir une fichier.

Merci