Bonjour à tous,
Voila j'ai mon code VBA qui m'importe des données Excel vers ma BDD Access.
J'ai différents tests de ce code qui se base sur une boucle.
Cependant j'aimerai savoir si il y a une autre solution pour parcourir et récupéré ces valeurs.
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 Set rs = db.OpenRecordset("Equipment", dbOpenDynaset) With rs If .RecordCount <> 0 Then .MoveFirst trouve = False TrouveStatut = False Do While Not .EOF And Not trouve 'If the fields IDEQUIPMENT = Cells(ID) in Excel File If .Fields("IDEQUIPMENT") = Cells(i, ID) Then trouve = True IdEqOld = .Fields("IDEQUIPMENT") 'Use this conditions to see if the equipment statut is achieved or not If .Fields("Statut") = "X" Then TrouveStatut = True Else TrouveStatut = False End If End If .MoveNext Loop End If End With
En effet, avec la taille des fichiers Excel et le nombre d'enregistrements de la table "Equipment", il me faut presque 30min d'éxécution.
Merci d'avance
Partager