Application.FileSearch d'un fichier .zipRésolu

Question

A priori &#231;a a l'air correct ... 
C'est vrai pour un fichier avec une extension .doc, .bak, .old par exemple...
Mais &#231;a ne marche pas avec une extension .zip !

' recherche d'un fichier .zip existant

Sub TrouverZip

F=range("A1").value & ".zip"         'nom du fichier calcul&#233; par A1 &#224; rechercher
With Application.FileSearch
   .Lookin = "D:\Save\Prog"   'r&#233;pertoire o&#249; est le fichier cherch&#233;
   .Filename = (F)                           'nom du fichier &#224; rechercher
   If .Execute <>0 Then                  'si le fichier est bien trouv&#233;
      Range("A2").value = (F)           'recopie le nom du fichier dans la cellule A2
   Else: MsgBox "Fichier introuvable"
   End If

End sub

J'ai &#233;galement essay&#233; avec
Dim i as Long
With Application.FileSearch
   .NewSearch
   .FileType = msoFileTypeAllFiles
   .Lookin = "D:\Save\Prog"
   .Execute
   With .FoundFiles
      For i = 1 To .Count
      Range("A2").Offset(i,0) = .Item(i)
      Next i
   End With
End With
... Mais j'ai le m&#234;me probl&#232;me !

Quelle macro me permettrait de rechercher un fichier .zip ?

Merci du coup de main.

CerberusPau · Accepted Answer

Salut,

J'ai trouv&#233; une solution en passant par la fonction DIR

    Range("A2").Value = "?"               'Valeur au d&#233;part de la cellule A2

    F= Range("A1").Value & ".zip"      'Nom du fichier calcul&#233; par A1 et &#224; rechercher

   ' pour une valeur diff&#233;rente de "rien" du chemin indiqu&#233;, sous entendu ce chemin abouti bien sur le fichier (F), le nom du fichier (F) est entr&#233; en A2 &#224; la place du "?"

    If Dir("d:\save\prog" & (F)) <> "" Then Range("A2").Value = (F) 
    
Si quelqu'un peut me donner la raison du non fonctionnement des 2 macros pr&#233;c&#233;dentes, je lui en serai profond&#233;ment reconnaissant !

Jab_834 · Answer

Bonjour CerberusPau,

J'ai eu le même souci que toi il y à quelques jours, en fait la méthode FileSearch à un petit soucis quand on l'utilise sous Xp, si tu est sous  Xp, ca pourras resoudre ton pb.

Le problème vient de l'utilitaire de compression zip installé par défaut avec windows Xp, windows par defaut traite les fichiers zip comme des dossiers (apparement la méthode FileSearch n'aime pas ça !) , il te faut le désactiver et tout rentrera dans l'ordre.
Il te restera plus qu'à installer autre utilitaire de compression alternatif.

voilà voilà

@+

CerberusPau · Answer

OK, merci pour l'info.


Je soupçonnais la chose, mais surtout je ne savais qu'il était possible de "désactiver" le traitement des fichiers ZIP comme des répertoires dans XP : comment fait-on ? celà m'intéresse bigrement !
Par ailleurs, je suppose que tu as vu ma solution en passant par la fonction DIR, qui elle, s'accomode tout à fait de la gestion "bizarre" des fichiers ZIP par XP

Bien cordialement

Jab_834 · Answer

Bonjour,

Le support natif des fichiers zip sous XP se désactive par un Démarrer-->Executer avec cette commande : regsvr32 /u zipfldr.dll

Pour le remettre il faut répéter l'opération précédente avec cette commande : regsvr32 zipfldr.dll

A+

Application.FileSearch d'un fichier .zip

4 réponses

Discussions similaires