Discussion :

[preverse]

Bonjour,

Je cherche à comparer deux fichiers tif avec une macro VBA sous Excel.
J'opère de la même façon que lorsque je compare deux fichiers texte, mais il semble que ça ne fonctionne pas, les fichiers identiques sont considérés comme différents, notamment quand il arrive sur des caractères spéciaux (représentés par un carré).

Est-ce que vous connaissez un code simple et efficace pour comparer les deux fichiers tif ?

Merci

[SilkyRoad]

bonsoir


tu peux tester cette procédure qui utilise la bibliothèque Microsoft Windows Image Acquisition

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
Sub Test()
    Dim Img As ImageFile
    Dim Tableau1 As Variant, Tableau2 As Variant
 
    Set Img = New ImageFile
    Img.LoadFile "C:\ImgTemp1.jpg"
    Tableau1 = Img.FileData.BinaryData
    Set Img = Nothing
 
    Set Img = New ImageFile
    Img.LoadFile "C:\ImgTemp2.jpg"
    Tableau2 = Img.FileData.BinaryData
    Set Img = Nothing
 
    MsgBox "Identiques: " & TableauxIdentiques(Tableau1, Tableau2)
 
End Sub
 
 
 
Function TableauxIdentiques(Tab1, Tab2) As Boolean
    Dim i As Double
 
    If UBound(Tab1) <> UBound(Tab2) Then
            TableauxIdentiques = False
            Exit Function
        Else
            For i = 1 To UBound(Tab1)
                If Tab1(i) <> Tab2(i) Then
                    TableauxIdentiques = False
                    Exit Function
                End If
            Next i
    End If
 
    TableauxIdentiques = True
End Function

michel