Comparer tableau excel table sql

**tequillaman** · 30/05/2016, 10h18

Bonjour à tous,
J'ai un tableau excel qui affiche des colonnes d'une table SQL
J'ai fait un code qui reprends toute la table et me la copie dans se tableau à l'ouverture du fichier.
Le soucis, c'est que quand il va y avoir plus de 10000 lignes sa va être long a ouvrir.
Est-il possible de faire une macro qui va comparer mes lignes et mettre à jour seulement les changements? Se serais plus rapide?
Pour gagner du temps aujourd'hui, j'ai mis dans mon code

Code :

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

1
2
3
4
5
6
Application.ScreenUpdating = False
Application.Calculation = xlManual
 
Call Connexionbdd
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

Sa me fait déjà gagner beaucoup de temps.

Voici mon code complet, attention les yeux

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
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
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
 
Private Sub workbook_Open()
Application.ScreenUpdating = False
Application.Calculation = xlManual
 
Call Connexionbdd
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
 
End Sub
 
 
Sub Connexionbdd()
Set cn = New ADODB.Connection
 
cn.ConnectionString = "Provider=SQLOLEDB;Data Source=xxxx.xxx.net;Initial Catalog=SUIV; User ID=xx;Password=xx;"
cn.Open
Call MAJexcel
 
 
 
cn.Close
MsgBox "Mise à jour terminée"
 
End Sub
 
 
Private Sub MAJexcel()
Dim sel As Range
Dim sql As String
Dim L As Integer
 
 
Set rs = New ADODB.Recordset
rs.Open ("SELECT * " & _
        "FROM recup " & _
        "order by Date"), cn
Set sel = Cells.Find(what:="coulée", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("coulée")
     rs.MoveNext
Wend
L = Empty
End With
 
 
 
rs.Requery
Set sel = Cells.Find(what:="Code nuance", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nuance")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Poids Aciérie", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Poids Aciérie")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Ø lingotière A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Ø lingotière A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb bill A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb bill A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Poids total A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Poids total A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="diam max A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("diam max A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="diam min A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("diam min A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb Sur A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb Sur A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb Meu A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb Meu A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb rep A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb rep A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb Rb A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb Rb A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb Liv A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb Liv A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Pds Sur A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Pds Sur A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Pds Meu A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Pds Meu A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Pds rep A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Pds rep A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Pds Rb A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Pds Rb A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Pds Liv A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Pds Liv A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Non rotondité A", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Non rotondité A")
     rs.MoveNext
Wend
L = Empty
End With
 
 
 
rs.Requery
Set sel = Cells.Find(what:="Ø lingotière B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Ø lingotière B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb bill B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb bill B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Poids total B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Poids total B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="diam max B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("diam max B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="diam min B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("diam min B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb Sur B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb Sur B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb Meu B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb Meu B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb rep B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb rep B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb Rb B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb Rb B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="nb Liv B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("nb Liv B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Pds Sur B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Pds Sur B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Pds Meu B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Pds Meu B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Pds rep B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Pds rep B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Pds Rb B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Pds Rb B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Pds Liv B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Pds Liv B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Non rotondité B", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Non rotondité B")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Date vérif LAC", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Date")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Poids total fardeaux EVERTZ", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Poids total fardeaux EVERTZ")
     rs.MoveNext
Wend
L = Empty
End With
 
 
rs.Requery
Set sel = Cells.Find(what:="Nb réparations", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Nb réparations")
     rs.MoveNext
Wend
L = Empty
End With
 
 
 
rs.Requery
Set sel = Cells.Find(what:="Poids total fardeaux réparés", LookIn:=xlValues, lookat:=xlWhole)
With sel
While rs.EOF = False
L = L + 1
      .Offset(L) = rs("Poids total fardeaux réparés")
     rs.MoveNext
Wend
L = Empty
End With
 
 
End Sub

**AlainTech** · 31/05/2016, 20h20

Bonjour,

Pourquoi ouvrir une nouvelle discussion alors que rdurupt te donne la solution dans son post #8.

As-tu essayé cette proposition?

Ou alors, si tes colonnes sont dans un ordre différent des champs de ta base, c'est le post #10 qu'il faut appliquer en énumérant tous tes champs.

**tequillaman** · 01/06/2016, 15h04

La méthode de rdurupt m'a permis de renseigner mon tableau et je l'en remercie.
J'ai donc résolu la question.
Se nouveau sujet c'est pour éviter de perdre du temps a recopier les infos qui sont déjà présentes dans mon excel et de ne mettre à jour que les infos manquantes dans mon tableau.
Mon code me permet de tout recopier ce que ma requête me renvoi dans les colonnes que je souhaite.

**AlainTech** · 01/06/2016, 19h49

Et pourquoi ne pas tout effacer et tout recharger avec la méthode du poste #10 de l'autre discussion?
Ta méthode est d'une lenteur épouvantable.
Alors, si tu parles de perdre du temps...

Edit: Je me pose quand même une question fondamentale. Pour quelle raison tes colonnes ont-elles un ordre différent de celui de ta base?
Ne peux-tu pas modifier l'ordre dans l'une ou l'autre?
Ou alors, modifier ton SELECT sql pour rapatrier le RecordSet dans le bon ordre.
Y a-t-il des colonnes qui ne correspondent pas à un champ de la DB?
Si non, c'est bien le post #8 qui s'appliquerait et ce serait très rapide.

**tequillaman** · 02/06/2016, 08h43

Bonjour,
Effectivement, les colonnes ne sont pas dans le même ordre que ma base, de plus, l'utilisateur peut avoir besoin de rajouter des colonnes dans le fichier excel pour des calculs additionnels. C'est pour cela que je ne peut utiliser cette méthode avec des offsets.
Je dois faire des recherches sur le nom de la colonne à chaque fois.

Comparer tableau excel table sql

Macros et VBA Excel

Discussions similaires

Partager

Partager