Dim strURL As String, classeurInternet As Workbook
'définir l'URL du fichier Excel
strURL = "http://monadresse/monfichier.xls"
'ouvrir le fichier Excel (copie en local)
Set classeurInternet = Application.Workbooks.Open(Filename:=strURL)
'traiter le fichier (dans cet exemple, afficher la valeur de la cellule A1 de la première feuille)
MsgBox classeurInternet.Sheets(1).Range("A1").Value
'fermer le classeur sans enregistrer les changements
classeurInternet.Close False