VBA - GetOpenFilename() et dossier compressé

Résolu/Fermé
ordner Messages postés 6 Date d'inscription vendredi 13 février 2009 Statut Membre Dernière intervention 19 juillet 2010 - 15 juil. 2010 à 16:48
ordner Messages postés 6 Date d'inscription vendredi 13 février 2009 Statut Membre Dernière intervention 19 juillet 2010 - 19 juil. 2010 à 11:23
Bonjour à tous,

Après plusieurs recherches je n'ai pas trouvé de solution. Voici mon problème:

Je dois récupérer un nom de fichier.
Il se trouve dans un dossier compressé.
La fonction Application.GetOpenFilename() ne permet pas d'explorer les dossiers compressés.

Merci de votre réponse.

4 réponses

arth Messages postés 9374 Date d'inscription mardi 27 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2016 1 291
15 juil. 2010 à 16:50
Le décompresser avant de le traiter? Tu as regardé du côté des fonctions zip de VB si elles existent? Sinon lancer une commande qui liste les noms des fichiers du rép. conmpressé.
0
ordner Messages postés 6 Date d'inscription vendredi 13 février 2009 Statut Membre Dernière intervention 19 juillet 2010
15 juil. 2010 à 17:35
Merci d'avoir répondu arth .

Je voudrais récupérer le nom du fichier sans forcément décompresser le dossier contenant tous les fichiers.

Dans mes recherches, je n'ai pas trouvé la commande qui liste les noms des fichiers du répertoire compressé. Je vais continuer à chercher.

Si quelqu'un la connait, merci d'avance.
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 15/07/2010 à 18:29
Bonjour,
Utiliser l'objet "FSO"
Voir dans ton aide.
Si tu trouve pas tu dis...
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
0
ordner Messages postés 6 Date d'inscription vendredi 13 février 2009 Statut Membre Dernière intervention 19 juillet 2010
19 juil. 2010 à 11:23
Avec ces nouvelles recherches, je crois comprendre que le problème ne peut être résolu sans décompresser le dossier ce qui me fait perdre un temps important à chaque exécution de la macro.

J'ai du coup décompressé en local le dossier et fais un GetOpenFilename().

Je clos le sujet, merci de votre aide :)
0