Bonjour,

J'ai fais une macro qui me permet de comparer 2 fichiers excel entre eux et d'en compléter un avec les informations du premier si elles sont manquantes dans le deuxième. Mais dès que je lance la macro excel plante et je suis obligé de les fermer en mode barbare et donc la macro ne fonctionne pas.


Voici mon 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
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
 
 
Sub trixls()
 
 
Dim i As Integer
Dim j As Integer
Dim c As Integer
 
 
c = 0
i = 4
j = 5
 
Workbooks.Open ("C:\Users\CMartinez\Desktop\test\Remise en forme AD.xlsm")
Workbooks.Open ("C:\Users\CMartinez\Desktop\test\remise en forme matériel 01A.xlsm")
 
 
While (Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value <> "")
 
 
 
    While (Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value <> "")
 
 
        If (Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value <> Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value) Then
 
            i = i + 1
 
                If (Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = "") Then
                    Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value
                    c = c + 1
 
                Else
 
                    If (Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value) Then
 
                j = j + 1
                i = 4
 
                     End If
                 End If
 
         Else
 
            j = j + 1
        End If
 
    Wend
 
 
 
Wend
 
 
MsgBox c
 
 
End Sub

En vous remerciant par avance de votre aide !