Discussion :

[Sun2k]

Bonjour

J'ai récupéré le code de hackoofr "Encapsuler un fichier zippé.."

Voici le bout de code (ou se trouve l'erreur: ligne 125 caract 9):

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
 
120   Sub Unzip(ZippedFile, UnZippedFile, ExistingUnZippedFile)
121   'Dezippe le fichier ZippedFile vers l'emplacement UnZippedFile et efface le fichier ExistingUnZippedFile
122   Dim FilesInZip, Shell
123   DelFile UnZippedFile & ExistingUnZippedFile
124   Set Shell = CreateObject("Shell.Application")
125   Set FilesInZip = Shell.NameSpace(ZippedFile).Items
126   Shell.NameSpace(UnZippedFile).CopyHere FilesInZip,(4 + 8 + 16 + 512 + 1024)
127   Do
128   If fso.FileExists(UnZippedFile & ExistingUnZippedFile) Then
129   If fso.GetFile(UnZippedFile & ExistingUnZippedFile).Size > 0 Then Exit Do
130   End If
131   Wscript.Sleep 100000
132   Loop
133   Set FilesInZip = Nothing
134   Set Shell = Nothing
135   End Sub

Et voici le message d'erreur



Si vous avez des pistes, je suis preneur..

Merci

[Miistik]

Bonjour,

Essayez de remplacer

Code :

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

Set FilesInZip = Shell.NameSpace(ZippedFile).Items

par

Code :

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

Set FilesInZip = Shell.NameSpace(ZippedFile).Items()

[Sun2k]

Merci..

J'ai une autre erreur..

La voici:

[Sun2k]

C'est bon j'ai trouvé, c'était juste un problème d'autorisation.

J'ai un autre soucis, je veux inséré le code vbs dans le vba excel et lors de l'exécution j'ai ce message d'erreur:



puis je clic sur Débogage et il me surligne cette ligne en jaune ci dessous:

Code :

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

1
2
3
4
5
6
7
'Déclaration des objets
Set WsShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile(Wscript.ScriptFullName)
Set oRs = CreateObject("ADODB.RecordSet")
Set oStream = CreateObject("ADODB.Stream")

Savez vous comment mettre l'équivalent de cette ligne en vba ?

Merci

[hackoofr]

Je n'ai jamais utilisé Excel avec ce type de problème ; mais jettes un coup d’œil ici ==> http://www.developpez.net/forums/d69...-xls-courrant/

[Sun2k]

Merci.. j'ai l'ai déjà lu ce fil mais pas de solution a mon probleme..

Dans votre code, cette ligne ouvre un fichier dans le chemin courant ? c'est bien ça ?

Code :

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

Set oFile = fso.OpenTextFile(Wscript.ScriptFullName)

Et est-ce que cette ligne convient en vba ?