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.

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
Cependant j'aimerai savoir si il y a une autre solution pour parcourir et récupéré ces valeurs.
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