comparaison des deux classeurs excel

**arch enemy123456** · 21/11/2006, 15h38

bonjour,
svp j ai un souci et j ai besoin de vous aides si possible et merci d'avance

ben j ai créer une UserForm dans la qu'elle j ai une listbox1 et deux bouton, une qui va ouvrir le reperoire system et voila le code:

Code :

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

1
2
3
4
5
6
7
x = GetDirectory
ligne = Dir(x & "\" & "*.xls")
    Do While ligne <> ""
    DoEvents
    ligne = Dir()
    ListBox1.AddItem ligne
Loop

et une autre qui va démarrer la comparaison entre 2 classeur A et B
bon, le classuer A et fixer c à dire j ai fixer le chemin de A dans la command
Workbooks("A.xsl").activate
mais le souci c que dans la 2ème command pour classeur B et variabl alors je veux que le nom de classeur sélectionné dans la listbox et placer directement
à la place des points ici " workbooks(.........).activate
et voila le code de comparaison il march bien si j ai fixer le nom de " B " comme j ai fait pour " A ".
le code :

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
Application.ScreenUpdating = False
Dim Collection1 As New Collection, collection2 As New Collection
Dim Cellule1 As Range, Cellule2 As Range
Dim Element1 As Object, Element2 As Object
Dim Time1 As Date, Time2 As Date
Time1 = Now()
Workbooks("Balance_1.xls").Activate
For Each Cellule1 In Range("a6:a592")
Collection1.Add Cellule1
Next Cellule1
Workbooks("..............").Activate
For Each Cellule2 In Range("a6:a592")
collection2.Add Cellule2
Next Cellule2
For Each Element1 In Collection1
For Each Element2 In collection2
If Element1 <> Element2 Then
Element1.Font.Color = vbRed
Else
Element1.Font.Color = vbBlack
Exit For
End If
Next Element2
Next Element1
Time2 = Now()
Debug.Print "Test collection :" & Format$(Time2 - Time1, "hh:mm:ss")
Application.ScreenUpdating = True

merci .

Invité · 21/11/2006, 16h24

Je suppose que le classeur B est sélectionné via ListBox1 !
Si c'est le cas, il suffit de remplacer ta ligne par

Code :

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

Workbooks(ListBox1.Value).Activate

Ou un truc du style

**AlainTech** · 21/11/2006, 17h55

Je pense que ce lien pourrait t'aider à comprendre comment travailler sur plusieurs classeurs:
http://www.developpez.net/forums/sho...80#post1461780

Il est intéressant de lire la discussion depuis le début.