Discussion :

[FHDLB]

Bonjour à tous,

je cherche à ouvrir un fichier .zip situé dans un répertoire à partir d'access. j'ai regardé dans la FAQ, mais le système ne donne que des moyens de compresser ou de décompresser un fichier. je n'ai pas réussi en bidouillant à partir de ces programmes à faire en sorte d'ouvrir le fichier zippé.
j'ai également essayé à partir de la fonction shell, mais dans ce cas seule l'application est lancée. J'ai l'impression qu'il me manque juste un petit truc pour obtenir ce que je veux et je vous serais très reconnaissant si vous pouviez m'aider.

Merci d'avance et bonne journée à tous

François

[Jean-Philippe André]

salut,
peux-tu nous dire la différence que tu comptes faire entre ouvrir un fichier zip et dézipper le dit fichier ?

Si tu as déjà du code qui t'amène jusqu'à un certain point, peux-tu nous le donner ici ?

[FHDLB]

Bonjour,

Merci d'avoir répondu à mon message

A l'origine, je cherche à créer un moyen sur Access de lier un fichier à des enregistrement à l'aide d'une boite de dialogue de type explorateur et à pouvoir l'ouvrir directement soit en cliquant dessus, soit en utilisant un bouton lançant l'ouverture du fichier.

J'ai essayé au départ par le biais d'un lien hyper texte, ce qui m'aurais vraiment convenu, mais le fichier obtenu par le biais de la boite de dialogue n'est pas reconnu comme lien hypertexte, si bien que cela ne fonctionne pas et je n'ai pas trouvé comment régler le problème.
C'est pourquoi, en regardant dans la FAQ, j'ai trouvé un moyen d'ouvrir des fichiers de type Word ou Excel (les plus utilisés) directement depuis Access et je voulais rajouter les fichiers zippé et pouvoir lancer la fenêtre WINZIP laissant ainsi le choix à l'utilisateur de dézipper ou non le fichier

voilà le code pour l'ouverture des fichiers Word et Excel (désolé, mais la mise en forme et la création de lien ne fonctionne pas sur mon poste)

lien vers la FAQ où se trouve les différents programmes pour le zip:

http://access.developpez.com/faq/?page=ActionsRep#zip

code affecté au bouton permettant d'ouvrir le fichier lié

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
Private Sub btOuvrir_Click()
Dim Fichier As String
Dim Chemin As String
Dim appwd As Word.Application
Dim appxl As Excel.Application
Dim zip As ZipExtractionClass
 
Dim LgCh As Long
 
Fichier = Me.txtFichier
 
If Right(Fichier, 3) = "doc" Then
    Set appwd = CreateObject("Word.Application")
    With appwd
        .Visible = True
        .Documents.Open (Me.txtChemin & Fichier)
        '.Activate
    End With
End If
 
If Right(Fichier, 3) = "xls" Then
    Set appxl = CreateObject("Excel.Application")
    With appxl
        .Visible = True
        .Workbooks.Open (Me.txtChemin & Fichier)
        '.Activate
    End With
End If
 
If Right(Fichier, 3) = "zip" Then
Set zip = New ZipExtractionClass
If zip.OpenZip(Me.txtChemin & Fichier) Then
   If zip.Extract(Me.txtChemin & Fichier) Then
      MsgBox "Extraction terminée.", vbInformation
   End If
   zip.CloseZip
End If
Set zip = Nothing
 
End If
 
End Sub

encore merci pour votre aide

François

[Jean-Philippe André]

la fonction ShellExecute ne convient-elle pas à ce que tu cherches à faire ?

[FHDLB]

la fonctione ShellExecute n'existe apparemment pas sous Access 2003 ou bien il me manque peut être des bibliothèques.
je n'ai que la fonction shell qui elle ouvre l'application mais pas le fichier à moins que je ne sache pas l'employer correctement, mais l'aide Access est assez limitée à ce niveau

merci en tout cas pour votre réponse

Bonne fin de journée

François

[Jean-Philippe André]

une piste pour t'aider, la
http://access.developpez.com/faq/?page=Divers#Print_doc