Discussion :

[constalp]

Bonjour,
Je souhaite télécharger un fichier zip, le dézipper (il contient un fichier excel), puis explorer le contenu (ça je l'ai déjà fait)
J'ai fait quelques recherches sur internet, j'ai vu ceci

- pour télécharger un fichier :

Code :

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

1
2
3
My.Computer.Network.DownloadFile _
("http://adresse du fichier zip a telecharger", _
"dossier ou mettre le zip")

- ensuite je pensais utiliser ceci : http://www.developpez.net/forums/d27...r-fichier-vba/ pour dézipper le zip

seul problème, j'ai une erreur de syntaxe avec

Code :

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

 My.Computer.Network.DownloadFile

j'ai téléchargé Microsoft.VisualBasic.dll (dans c:/windows/system32), cependant je n'arrive pas à l'ajouter, il me dit : "impossible d'ajouter une référence au fichier spécifié"

Y a t-il une autre méthode pour télécharger un fichier?
Si non, savez vous pourquoi je ne peux pas ajouter la référence?

Merci d'avance pour votre aide !

[constalp]

j'ai réussi !!!
finalement sans "my.computer.network.downloadfile", donc pas besoin d'ajouter de référence
je mets le code si ça intéresse quelqu'un :

Code :

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

1
2
'a mettre dans les déclarations
Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szUrl As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

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
 
PathFic = "chemin ou mettre l archive et le fichier"
NomFic = "nom du fichier a ouvrir .xls"
nomficzip = "nom de l archive .zip"
filenamezip = PathFic & nomficzip
 
'telechargement de l'archive
url = "http:// endroit ou telecharger l'archive zip  "
returnValue = URLDownloadToFile(0, url, filenamezip, 0, 0)
 
'dezip de l'archive
CheminWinZip = "C:\Program Files\WinZip\"
DossDest = PathFic 'dossier ou mettre le fichier
NomArchive = PathFic & nomficzip
Shell (CheminWinZip & "winzip32.exe -e """ _
 & NomArchive & """ """ & DossDest & """")
 
Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.Workbooks.Open PathFic & NomFic
'traitement du fichier excel
ClasseurXLS.Workbooks.Close

[Tazzou]

Bonjour

Désolé de relancer la discussion.

Est ce que ça fonctionne pareil avec 7ZIP ???

Merci de l'aide apportée