Bonjour à tous,
Pour un projet en vba sous Access 2003, j'ai besoin de la dll Zlib (que j'utilise avec les classes très utiles d'Andrew McMillan) pour décompresser des fichiers. Le problème que je rencontre est qu'à l'execution de ce code...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
If zip.OpenZip(ZipPath) Then
      If Not zip.Extract("c:\Doctemp\", True, True) Then
        MsgBox "Extraction des fichiers Impossible", vbCritical
   End If
   zip.CloseZip
Else
        MsgBox "Impossible d'ouvrir" + ZipPath, vbCritical
End If
... impossible de décompresser, et m'affiche tout le temps cette Msgbox désespérante "Extraction des fichiers impossible".

Comme je n'arrivais pas à résoudre le problème, j'ai téléchargé un projet de démo écrit par Andrew MacMillan pour illustrer le fonctionnement de ses classes (sous VB6.0) et là, ôh stupeur, le problème est le même. Après avoir creusé la question à coup de debugger, le problème se situe ici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Public Property Get ZLibVersion() As String
 
   On Error GoTo eh
 
   ZLibVersion = PointerToString(ZLibVer)
 
Exit Property
eh:
 
   RaiseEvent ZipError(zeZLibNotInstalled, "Zlib is not installed")
 
End Property
... il se produit toujours, une erreur déclenchant l'évenement ZipError "Zlib is not installed".

J'ai pourtant vérifié : la lib se trouve bien dans le même répertoire. Par sécurité je l'ai quand même copiée dans c:\windows\system32 mais rien n'a changé.

Est-ce que quelqu'un a déjà rencontré ce type de problème ?

Merci beaucoup pour votre aide