[Runtime Access] Problème importation excel [Résolu]

[rorobase]

Bonjour,
J'ai crée sur un formulaire access, un bouton qui me permet d'importer des données de fichiers excel dans mes tables access. Jusque la rien de bien compliqué. Le problème est que sur mon logiciel Access 2003 l'importation se fais sans problème mais dans le Runtime, l'application se ferme toute seule avec une erreur : "Cette application a été arrêtée à cause d'une erreur d'exécution. Elle ne peut pas continuer et va être fermée".

Voici mon code d'importation sur l'evenement clic d'un bouton

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
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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
Private Sub Commande180_Click()
 
If MsgBox("Voulez-vous confirmer l'importation des données de la base ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then GoTo Fin
    Me.Undo
    Cancel = True
 
CurrentDb.Execute "DELETE * FROM [TABLE 1511]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE 1511", CurrentProject.path & "\Sauvegarde Base\1511.xls", True, "A1:W"
 
CurrentDb.Execute "DELETE * FROM [TABLE 1514]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE 1514", CurrentProject.path & "\Sauvegarde Base\1514.xls", True, "A1:GY"
 
CurrentDb.Execute "DELETE * FROM [TABLE 1640FOX]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE 1640FOX", CurrentProject.path & "\Sauvegarde Base\1640FOX.xls", True, "A1:AJ"
 
CurrentDb.Execute "DELETE * FROM [TABLE 1641]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE 1641", CurrentProject.path & "\Sauvegarde Base\1641.xls", True, "A1:BR"
 
CurrentDb.Execute "DELETE * FROM [TABLE 1642]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE 1642", CurrentProject.path & "\Sauvegarde Base\1642.xls", True, "A1:AQ"
 
CurrentDb.Execute "DELETE * FROM [TABLE 1650]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE 1650", CurrentProject.path & "\Sauvegarde Base\1650.xls", True, "A1:BQ"
 
CurrentDb.Execute "DELETE * FROM [TABLE 1664]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE 1664", CurrentProject.path & "\Sauvegarde Base\1664.xls", True, "A1:Q"
 
CurrentDb.Execute "DELETE * FROM [TABLE CAMERAS]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE CAMERAS", CurrentProject.path & "\Sauvegarde Base\Caméras.xls", True, "A1:AO"
 
CurrentDb.Execute "DELETE * FROM [TABLE CAT STOER]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE CAT STOER", CurrentProject.path & "\Sauvegarde Base\CAT STOER.xls", True, "A1:AV"
 
CurrentDb.Execute "DELETE * FROM [TABLE CLIENT SIV-GTC]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE CLIENT SIV-GTC", CurrentProject.path & "\Sauvegarde Base\Client SIV_GTC.xls", True, "A1:P"
 
CurrentDb.Execute "DELETE * FROM [TABLE DAI]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE DAI", CurrentProject.path & "\Sauvegarde Base\DAI.xls", True, "A1:AH"
 
CurrentDb.Execute "DELETE * FROM [TABLE DECODEUR SIV]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE DECODEUR SIV", CurrentProject.path & "\Sauvegarde Base\DECODEUR SIV.xls", True, "A1:W"
 
CurrentDb.Execute "DELETE * FROM [TABLE ENCODEUR SIV]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE ENCODEUR SIV", CurrentProject.path & "\Sauvegarde Base\ENCODEUR SIV.xls", True, "A1:AB"
 
CurrentDb.Execute "DELETE * FROM [TABLE ETS]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE ETS", CurrentProject.path & "\Sauvegarde Base\ETS.xls", True, "A1:Y"
 
CurrentDb.Execute "DELETE * FROM [TABLE FH]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE FH", CurrentProject.path & "\Sauvegarde Base\FH.xls", True, "A1:Z"
 
CurrentDb.Execute "DELETE * FROM [TABLE FRONTAL ASUR]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE FRONTAL ASUR", CurrentProject.path & "\Sauvegarde Base\FRONTAL ASUR.xls", True, "A1:BF"
 
CurrentDb.Execute "DELETE * FROM [TABLE GTC AUTOMATE]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE GTC AUTOMATE", CurrentProject.path & "\Sauvegarde Base\GTC AUTOMATE.xls", True, "A1:AJ"
 
CurrentDb.Execute "DELETE * FROM [TABLE GTC COUPLEUR]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE GTC COUPLEUR", CurrentProject.path & "\Sauvegarde Base\GTC COUPLEUR.xls", True, "A1:T"
 
CurrentDb.Execute "DELETE * FROM [TABLE LOCAL]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE LOCAL", CurrentProject.path & "\Sauvegarde Base\LOCAL.xls", True, "A1:BJ"
 
CurrentDb.Execute "DELETE * FROM [TABLE LOCAL TRANS]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE LOCAL TRANS", CurrentProject.path & "\Sauvegarde Base\LOCAL TRANS.xls", True, "A1:BJ"
 
CurrentDb.Execute "DELETE * FROM [TABLE MINI PMV]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE MINI PMV", CurrentProject.path & "\Sauvegarde Base\MINI PMV.xls", True, "A1:AE"
 
CurrentDb.Execute "DELETE * FROM [TABLE NOTICE GTC]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE NOTICE GTC", CurrentProject.path & "\Sauvegarde Base\NOTICE GTC.xls", True, "A1:L"
 
CurrentDb.Execute "DELETE * FROM [TABLE NOTICE ONDULEUR]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE NOTICE ONDULEUR", CurrentProject.path & "\Sauvegarde Base\NOTICE ONDULEUR.xls", True, "A1:M"
 
CurrentDb.Execute "DELETE * FROM [TABLE NOTICE PMV]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE NOTICE PMV", CurrentProject.path & "\Sauvegarde Base\NOTICE PMV.xls", True, "A1:I"
 
CurrentDb.Execute "DELETE * FROM [TABLE NOTICE PMVC]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE NOTICE PMVC", CurrentProject.path & "\Sauvegarde Base\NOTICE PMVC.xls", True, "A1:D"
 
CurrentDb.Execute "DELETE * FROM [TABLE NOTICE PMVL]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE NOTICE PMVL", CurrentProject.path & "\Sauvegarde Base\NOTICE PMVL.xls", True, "A1:O"
 
CurrentDb.Execute "DELETE * FROM [TABLE NOTICE RAU]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE NOTICE RAU", CurrentProject.path & "\Sauvegarde Base\NOTICE RAU.xls", True, "A1:W"
 
CurrentDb.Execute "DELETE * FROM [TABLE NOTICE STOER]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE NOTICE STOER", CurrentProject.path & "\Sauvegarde Base\NOTICE STOER.xls", True, "A1:F"
 
CurrentDb.Execute "DELETE * FROM [TABLE NOTICE TRAFIC METEO]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE NOTICE TRAFIC METEO", CurrentProject.path & "\Sauvegarde Base\NOTICE TRAFIC METEO.xls", True, "A1:P"
 
CurrentDb.Execute "DELETE * FROM [TABLE NOTICE TRANS]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE NOTICE TRANS", CurrentProject.path & "\Sauvegarde Base\NOTICE TRANS.xls", True, "A1:Y"
 
CurrentDb.Execute "DELETE * FROM [TABLE NOTICE VIDEO]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE NOTICE VIDEO", CurrentProject.path & "\Sauvegarde Base\NOTICE Vidéo.xls", True, "A1:AN"
 
CurrentDb.Execute "DELETE * FROM [TABLE ONDULEUR GARE]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE ONDULEUR GARE", CurrentProject.path & "\Sauvegarde Base\ONDULEUR GARE.xls", True, "A1:Q"
 
CurrentDb.Execute "DELETE * FROM [TABLE PCA]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE PCA", CurrentProject.path & "\Sauvegarde Base\PCA.xls", True, "A1:DG"
 
CurrentDb.Execute "DELETE * FROM [TABLE PMV CARBURANT]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE PMV CARBURANT", CurrentProject.path & "\Sauvegarde Base\PMV CARBURANT.xls", True, "A1:Y"
 
CurrentDb.Execute "DELETE * FROM [TABLE PMV PV]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE PMV PV", CurrentProject.path & "\Sauvegarde Base\PMV PV.xls", True, "A1:AG"
 
CurrentDb.Execute "DELETE * FROM [TABLE PYLONE]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE PYLONE", CurrentProject.path & "\Sauvegarde Base\PYLONE.xls", True, "A1:AD"
 
CurrentDb.Execute "DELETE * FROM [TABLE RAU]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE RAU", CurrentProject.path & "\Sauvegarde Base\RAU.xls", True, "A1:X"
 
CurrentDb.Execute "DELETE * FROM [TABLE REPTILE]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE REPTILE", CurrentProject.path & "\Sauvegarde Base\REPTILE.xls", True, "A1:I"
 
CurrentDb.Execute "DELETE * FROM [TABLE SERVEUR SIV-GTC]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE SERVEUR SIV-GTC", CurrentProject.path & "\Sauvegarde Base\SERVEUR SIV_GTC.xls", True, "A1:N"
 
CurrentDb.Execute "DELETE * FROM [TABLE STATION METEO]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE STATION METEO", CurrentProject.path & "\Sauvegarde Base\Station Météo.xls", True, "A1:AD"
 
CurrentDb.Execute "DELETE * FROM [TABLE STATION TRAFIC]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE STATION TRAFIC", CurrentProject.path & "\Sauvegarde Base\Station Trafic.xls", True, "A1:AG"
 
CurrentDb.Execute "DELETE * FROM [TABLE STATION TRAFIC METEO]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE STATION TRAFIC METEO", CurrentProject.path & "\Sauvegarde Base\Station Trafic Météo.xls", True, "A1:AI"
 
CurrentDb.Execute "DELETE * FROM [TABLE STOER]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE STOER", CurrentProject.path & "\Sauvegarde Base\STOER.xls", True, "A1:BV"
 
CurrentDb.Execute "DELETE * FROM [TABLE VIDEO SIV]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLE VIDEO SIV", CurrentProject.path & "\Sauvegarde Base\Vidéo SIV.xls", True, "A1:AA"
 
CurrentDb.Execute "DELETE * FROM [TABLEANNUAIRE]"
DoCmd.TransferSpreadsheet acImport, 8, "TABLEANNUAIRE", CurrentProject.path & "\Sauvegarde Base\ANNUAIRE.xls", True, "A1:W"
 
MsgBox "Mise à jour de la base réalisée avec succès"
 
Fin: End Sub

Pour info, lorsque je met moins de fichier à importer, l'importation se fais bien. J'ai donc essayé d'isoler une ligne de code qui poserait problème mais ca ne proviendrait pas du code mais du nombre de fichier à importer.

[loufab]

Bonjour,

Essaye de mettre un doevents après chaque transferSpread.


Cordialement,