Lancer automatiquement une macro aprés l'ouverture d'un classeur .CSV

**Junior75002** · 22/11/2012, 13h21

Bonjour,

Je suis novice ici et ne comprend pas toujours les règles et usages des forums !!! Donc je m'excuse par avance si je ne procède pas comme il faut.

Voila mon petit soucis, a l'ouverture d'un fichier .csv je dois systématiquement lancer une macro (que j'ai et qui fonctionne déjà)

Avez vous une solution pour que cette macro se lance automatiquement quand j'ouvre un fichier .csv ?

Je vous remercie par avance.

**Tradul** · 22/11/2012, 14h37

Bonjour,

As-tu essayé de nommer ta macro: auto_open() ?

Cdt,

**Oliv-** · 22/11/2012, 17h04

Envoyé par Tradul

Bonjour,

As-tu essayé de nommer ta macro: auto_open() ?

Cdt,

Salut,
CA ne peut pas marcher car c'est un fichier .csv donc qui ne contient pas de macro !

En fait il faut que tu ais un classeur ouvert en permanence !! (soit perso.xls ou soit un .xla) en tout cas cela ne fonctionnera que si ce fichier est ouvert avant le .csv.

dans le thisworkbook de ce fichier tu mets :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private WithEvents App As Application
 
Private Sub Workbook_Open()
    Set App = Application
End Sub
 
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    If UCase(Right(Wb.Name, 4)) = ".CSV" Then
    ' là ton code 
    MsgBox "New Workbook: " & Wb.Name
    End If
End Sub

**Tradul** · 22/11/2012, 17h22

Pour te donner d'autres idées,
Tu peux essayer de faire un truc du genre :

macro en auto open ()
tu importes ton csv
tu executes le code que tu veux
tu exportes ton csv
tu peux fermer ton fichier excel ou consulte ton csv sur place

**Junior75002** · 22/11/2012, 21h02

Bonsoir,

Merci à vous deux, pour être trés honnête je ne comprend pas tout au langage VBA.

En revanche, ma macro est déjà stockée dans mon "perso.xls", de cette façon je peux la relancer à chaque ouverture d'un nouveau classeur .csv

Je viens donc de coller ton code "Oliv", en y ajoutant le miens !!! mais rien ne se passe.

voici ce que cela donne :

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
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
Private WithEvents App As Application
 
Private Sub Workbook_Open()
    Set App = Application
End Sub
 
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    If UCase(Right(Wb.Name, 4)) = ".CSV" Then
    ' là ton code
    Sub Correction_Caracteres_Speciaux()
'
' Correction des Caracteres Speciaux dans les exports du site internet
'
' Touche de raccourci du clavier: Ctrl+0
'
'a
    Cells.Replace What:="Ã", Replacement:="à", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
' À
    Cells.Replace What:="à€", Replacement:="À", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
'c
    Cells.Replace What:="à§", Replacement:="ç", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
'e
    Cells.Replace What:="à©", Replacement:="é", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ã¨", Replacement:="è", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="à¨", Replacement:="è", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="à«", Replacement:="ë", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ã«", Replacement:="ë", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ãª", Replacement:="ê", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
'E
    Cells.Replace What:="Ã‰", Replacement:="E", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="àŠ", Replacement:="Ê", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="à‰", Replacement:="É", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ã©", Replacement:="É", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
'i
    Cells.Replace What:="Ã®", Replacement:="î", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ã¯", Replacement:="ï", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="à®", Replacement:="î", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="à¯", Replacement:="ï", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
'o
    Cells.Replace What:="à¶", Replacement:="ö", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
'u
    Cells.Replace What:="à¼", Replacement:="ü", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ã»", Replacement:="û", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
'Spéciaux
    Cells.Replace What:="Â°", Replacement:="°", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="â€™", Replacement:="'", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
''
    Cells.Replace What:="\'", Replacement:="'", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
End Sub
    MsgBox "New Workbook: " & Wb.Name
    End If
End Sub

Pour faire simple, plusieurs fois par jour j'ouvre des fichiers .csv suite à une extraction depuis notre site internet.

Celui-ci fait environ 69000 lignes et comporte beaucoup de caractères spéciaux, ma macro les corriges.

Je voudrais donc juste qu'a l'ouverture d'un fichier .csv celle-ci s’exécute....

J'ai essayé dans la matinée avec :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
Sub Correction_Caracteres_Speciaux()
'
' Correction des Caracteres Speciaux dans les exports du site internet
'
' Touche de raccourci du clavier: Ctrl+0
'Puis la suite du code..........
 
End Sub

Mais j'ai l'impression quil l’exécute à l'ouverture d'excel, sans attendre que le fichier .csv soit ouvert.

Je suis long mais j'ai peur de pas être très clair dans mes explications.

Encore merci, en espérant ne pas vous avoir embêté.

Julien

**Oliv-** · 23/11/2012, 09h19

Salut,
tu n'étais pas loin

ps: pour que l'événement se déclenche il faut soit fermer puis réouvrir perso.xls soit lancer 1 fois Workbook_Open

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
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
 
Private WithEvents App As Application
 
Private Sub Workbook_Open()
    Set App = Application
End Sub
 
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    If UCase(Right(Wb.Name, 4)) = ".CSV" Then
    ' là ton code
Call Correction_Caracteres_Speciaux
    MsgBox "New Workbook: " & Wb.Name
    End If
End Sub
 
    Sub Correction_Caracteres_Speciaux()
'
' Correction des Caracteres Speciaux dans les exports du site internet
'
' Touche de raccourci du clavier: Ctrl+0
'
'a
    Cells.Replace What:="Ã", Replacement:="à", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
' À
    Cells.Replace What:="à€", Replacement:="À", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
'c
    Cells.Replace What:="à§", Replacement:="ç", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
'e
    Cells.Replace What:="à©", Replacement:="é", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ã¨", Replacement:="è", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="à¨", Replacement:="è", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="à«", Replacement:="ë", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ã«", Replacement:="ë", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ãª", Replacement:="ê", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
'E
    Cells.Replace What:="Ã‰", Replacement:="E", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="àŠ", Replacement:="Ê", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="à‰", Replacement:="É", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ã©", Replacement:="É", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
'i
    Cells.Replace What:="Ã®", Replacement:="î", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ã¯", Replacement:="ï", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="à®", Replacement:="î", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="à¯", Replacement:="ï", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
'o
    Cells.Replace What:="à¶", Replacement:="ö", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
'u
    Cells.Replace What:="à¼", Replacement:="ü", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="Ã»", Replacement:="û", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
'Spéciaux
    Cells.Replace What:="Â°", Replacement:="°", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Cells.Replace What:="â€™", Replacement:="'", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
''
    Cells.Replace What:="\'", Replacement:="'", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
 
End Sub

**Junior75002** · 23/11/2012, 19h27

Bonsoir Oliv,

Merci beaucoup pour ton aide, c'est parfait.

J'ai plus qu'a réfléchir pour faire évoluer ma macro....

Et résoudre d'autres petit soucis.

Vraiment merci

.

Et peut être a bientôt.

Julien

Lancer automatiquement une macro aprés l'ouverture d'un classeur .CSV [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager