télécharger un fichier

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:

---

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:

---

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 !

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:

---

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:

---

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

---

Bonjour

Désolé de relancer la discussion.

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

Merci de l'aide apportée