Discussion :

[Mrfreeze117]

Bonjour à tous,

Je bute sur ce problème depuis un moment.

J'ai trouvé comment extraire et copier un fichier zipé mais je n'arrive pas à juste l'ouvrir.

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
Sub Unzip1()
    Dim FSO As Object
    Dim oApp As Object
    Dim Fname As Variant
    Dim FileNameFolder As Variant
    Dim DefPath As String
    Dim strDate As String
 
    Fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", _
                                        MultiSelect:=False)
    If Fname = False Then
        'Do nothing
    Else
        'Root folder for the new folder.
        DefPath = "C:\Users\Desktop\Suivi \"
        If Right(DefPath, 1) <> "\" Then
            DefPath = DefPath & "\"
        End If
 
        'Create the folder name
        strDate = Format(Now, " dd-mm-yy h-mm-ss")
        FileNameFolder = DefPath & "MyUnzipFolder " & strDate & "\"
 
        'Make the normal folder in DefPath
        MkDir FileNameFolder
 
        'Extract the files into the newly created folder
        Set oApp = CreateObject("Shell.Application")
 
        oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
 
        'If you want to extract only one file you can use this:
        'oApp.Namespace(FileNameFolder).CopyHere _
         'oApp.Namespace(Fname).items.Item("test.txt")
 
        MsgBox "You find the files here: " & FileNameFolder
 
        On Error Resume Next
        Set FSO = CreateObject("scripting.filesystemobject")
        FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
    End If
End Sub

Je souhaite pouvoir ouvrir un fichier excel avec l'application zip de windows 7 sans passer par quelque application que ce soit. Je pourrais copier le fichier l’ouvrir le fermé et le supprimer après mais bon c'est pas une solution qui m'enchante (ce serai même bien moche). Je me dis que si on arrive à extraire le fichier on doit bien pouvoir le lire (enfin j'espère).

Merci d'avance pour vos réponses.

[Mrfreeze117]

Depuis hier j'ai trouvé autre chose, j'arrive a ouvrir le zip grâce à:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell "explorer.exe " & "C:\Users\Desktop\test.zip"

Mais maintenant j'arrive pas à ouvrir le fichier à l'intérieur du zip
Quelqu'un à une idée qui pourrait m'aider? pensez vous que je suis sur la bonne voie ou je pars totalement à l'ouest?

Merci d'avance

[Mrfreeze117]

Je pense que je vais repartir sur ma première solution, en faisant un truc bien moche mais fonctionnel. Je vais donc extraire mes fichiers dans un dossier que je supprimerai à la fin de ma macro. Je trouve ça nul comme solution mais j'ai rien trouvé de mieux pour le moment.

[Invité]

Bonjour,
oui dézip ton fichier!

Affiche ou modifie la compression de fichiers sur les partitions NTFS.

COMPACT [/C | /U] [/S[:rep]] [/A] [/I] [/F] [/Q] [nom_de_fichier [...]]

  /C       Compresse les fichiers spécifiés. Les répertoires seront marqués
           pour que les fichiers ajoutés plus tard soient compressés.
  /U       Décompresse les fichiers spécifiés. Les répertoires seront marqués
           pour que les fichiers ajoutés plus tard ne soient pas compressés.
  /S       Effectue l'opération spécifiée sur les fichiers correspondants dans
           le répertoire donné et tous les sous-répertoires. Le répertoire par
           défaut est le répertoire en cours.
  /A       Affiche les fichiers avec les attributs Caché ou Système. Ces
           fichiers sont omis par défaut.
  /I       Continue d'effectuer l'opération spécifiée même après que des
           erreurs se soient produites. Par défaut, COMPACT s'arrête lorsqu'une
           erreur se produit.
  /F       Force l'opération de compression sur tous les fichiers spécifiés
           même sur ceux qui ont déjà été compressés. Les fichiers déjà
           compressés sont ignorés par défaut.
  /Q       Ne reporte que les informations essentielles.
  nom_de_fichier  Spécifie un modèle, un fichier, ou un répertoire.

Utilisé sans paramètres, COMPACT affiche l'état de compression du
répertoire en cours et de tous les fichiers qu'il contient. Vous pouvez
utiliser plusieurs noms de fichiers et des caractères génériques. Vous devez
mettre des espaces entre les paramètres multiples.

[Mrfreeze117]

Merci mais je comprends rien de ce que tu as marqué je ne vois pas le rapport avec mon problème.

[PMO2017]

Bonjour,

Peut être une piste avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub aa()
Shell "explorer.exe " & "C:\Users\Desktop\test.zip"
SendKeys ("{RIGHT}~")
End Sub

[Invité]

Bonjour,
pas de problème!

Merci mais je comprends rien de ce que tu as marqué je ne vois pas le rapport avec mon problème.