Modif de code

Re : Modif de code

ah j'oubliais le code....


Sub Compare ()

Dim Rs As ADODB.Recordset
Dim Cn As String, Cible As String, Fichier As String
Dim j As Integer, x As Integer, i As Integer

Fichier = ThisWorkbook.Path & "\classeurFerme.xls"

'parametres pour la connection au classeur fermé
Cn = "DRIVER={Microsoft Excel Driver (*.xls)};" & _
"ReadOnly=1;DBQ=" & Fichier & ";" & "extended properties=""Excel 8.0;"""

'derniere ligne non vide dans le classeur ouvert
x = Range("A65536").End(xlUp).Row

Application.ScreenUpdating = False

'la procedure va boucler sur toutes les lignes du classeur ouvert et controler
'si une ligne identique existe dans le classeur fermé
For i = 2 To x
'parametrage de la requete pour comparer les lignes du classeur fermer
'avec le tableau du classeur ouvert
Cible = "SELECT * FROM [ListeKWE$] WHERE " & _
"Champ1='" & Cells(i, 1) & "' AND " & _
"Champ2=" & Cells(i, 2) & " AND " & _
"Champ3=" & Cells(i, 3) & " AND " & _
"Champ4='" & Cells(i, 4) & "' AND " & _
"Champ5='" & Cells(i, 5) & "'"

Set Rs = New ADODB.Recordset
Rs.Open Cible, Cn, adOpenKeyset

'colorie la ligne du classeur ouvert en rouge si une ligne identique est trouvée
If Rs.EOF Then Rows(i).Interior.ColorIndex = 3

Rs.Close
Set Rs = Nothing
Next i

Application.ScreenUpdating = True
End Sub