Ouvrir fichier excel zipé

Version imprimable

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:

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.

18/12/2014, 11h06
Mrfreeze117

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

Code:

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
22/12/2014, 11h16
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.

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.

26/12/2014, 10h14
Mrfreeze117

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

Bonjour,

Peut être une piste avec

Code:

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

26/12/2014, 19h48
Invité

Bonjour,
pas de problème!

Citation:

Envoyé par Mrfreeze117

Merci mais je comprends rien de ce que tu as marqué je ne vois pas le rapport avec mon problème.
29/12/2014, 09h42
Mrfreeze117
Citation:
Envoyé par PMO2017

Bonjour,

Peut être une piste avec

Code:

1 2 3 4 Sub aa() Shell "explorer.exe " & "C:\Users\Desktop\test.zip" SendKeys ("{RIGHT}~") End Sub
Ceci ouvre le zip mais pas le fichier compressé. je l'avais mis dans mon deuxième post.
29/12/2014, 10h30
kiki29

Salut, sans être allé plus loin, à toî de voîr ici ?
29/12/2014, 11h39
Mrfreeze117

Citation:

Envoyé par kiki29

Salut, sans être allé plus loin, à toî de voîr ici ?

C'est ma solution temporaire en attendant de trouvé mieux. ça permet de dézipé dans un dossier mais ça ne permet pas juste de l'ouvrir.

PS : c'était mon premier post.
29/12/2014, 12h29
SfJ5Rpw8

Citation:

Envoyé par Mrfreeze117

C'est ma solution temporaire en attendant de trouvé mieux. ça permet de dézipé dans un dossier mais ça ne permet pas juste de l'ouvrir.

PS : c'était mon premier post.

Bonjour,

ben je crois que c'est pas la peine de chercher plus loin c'est la solution habituellement utilisée tu "dézippe" ton fichier dans un répertoire temporaire par exemple puis tu l'ouvre comme n'importe quel autre fichier excel ....
29/12/2014, 14h40
Mrfreeze117

OK, ça m'étonne quand même qu'on ne puisse pas ouvrir le fichier sans l'extraire dans un dossier temporaire.
29/12/2014, 18h11
PMO2017
Citation:

Ceci ouvre le zip mais pas le fichier compressé. je l'avais mis dans mon deuxième post.

Essayez alors
Code:

1 2 3 4 Sub aa() Shell "explorer.exe " & "C:\Users\Desktop\test.zip", vbNormalFocus SendKeys ("{RIGHT}~") End Sub
29/12/2014, 21h45
clementmarcotte

Bonjour,

Citation:

Envoyé par Mrfreeze117

OK, ça m'étonne quand même qu'on ne puisse pas ouvrir le fichier sans l'extraire dans un dossier temporaire.

Moi, ce qui m'étonne c'est que l'on zippe des fichiers Excel, du moins ceux d'Excel 2007 et suivants. (À part de les faire avaler par le courrier électronique.) Avec Office 2007, Microsoft a implanté fichiers OpenXML dans Office. Le standard OpenXML prévoit d'office (si on peut dire) que le fichier est "naturellement"comprimé au format zip, même si l'extension n'est pas zip.
30/12/2014, 09h12
Mrfreeze117
Oui mais il y en a qui utilise toujours Office 2003. et donc pour les retardataires on est obligé de s'en ....
Citation:
Envoyé par PMO2017

Essayez alors

Code:

1 2 3 4 Sub aa() Shell "explorer.exe " & "C:\Users\Desktop\test.zip", vbNormalFocus SendKeys ("{RIGHT}~") End Sub
Ça ne change rien ça ne fait qu'ouvrir le zip dans une fenêtre. il me faut ouvrir le fichier xls nommé "test.xls" qui est contenu dans le zip "test.zip".
30/12/2014, 11h00
PMO2017

1 pièce(s) jointe(s)
POUR INFO

Citation:

Ça ne change rien ça ne fait qu'ouvrir le zip dans une fenêtre. il me faut ouvrir le fichier xls nommé "test.xls" qui est contenu dans le zip "test.zip".

Pourtant, chez moi et avec un chemin qui m'est particulier, cela fonctionne aussi bien avec Excel 2003 que Excel 2007.
Le classeur zippé monte et apparaît bien dans l'application de l'une ou l'autre version d'Excel.
Code:

1 2 3 4 Sub aa() Shell "explorer.exe " & "C:\Documents and Settings\Patrick\Bureau\test.zip", vbNormalFocus SendKeys ("{RIGHT}~") End Sub
Les méandres de l'informatique !
Pièce jointe 165009
30/12/2014, 11h16
SfJ5Rpw8

Citation:

Envoyé par PMO2017

POUR INFO

Pourtant, chez moi et avec un chemin qui m'est particulier, cela fonctionne aussi bien avec Excel 2003 que Excel 2007.
Le classeur zippé monte et apparaît bien dans l'application de l'une ou l'autre version d'Excel.
...

Bonjour,

peu-être mais cela n'apporte rien tu utiliser explore.exe pour dé-zipper le fichier dans un dossier temporaire (c'est ce que fait ta commande shell...) et ensuite tu joue à la roulette russe avec un sendKey pour ouvrir le fichier ...
30/12/2014, 11h30
Mrfreeze117

@PMO2017 : Je viens de réessayer ça marche pas chez moi :(. J'ai essayé avec un pc sous xp et un sous 7 ça change rien. Par contre je n'ai pas d'office 2003 sous la main je ne peux pas tester dessus du coup. C'est peu être parce que je suis en office 2010 ?