Probleme d'ouverture d'un fichier Excel
Bonjour,
Je travail sur une application permettant l'extraction des données d'un fichier excel vers la base de données,
1-J'enregistre une page web sous format XLS.
Voila le code:
Code:
1 2 3 4
|
'chemin : l'emplacement de sauvegarde du fichier sur mon disque dur. C\:...
'Lien: represente le lien de la page html. http://www........
My.Computer.Network.DownloadFile(chemin, lien) |
2-Ouverture du fichier excel enregistré, et parcourir les données voulue:
Voila le code:
Code:
1 2 3 4 5 6 7 8
|
Dim appExcel As excel.Application
Dim sheet As excel.Worksheet
Dim wbExcel As excel.Workbook 'Classeur Excel
wbExcel = appExcel.Workbooks.Open("Chemin")
sheet = appExcel.ActiveWorkbook.ActiveSheet
sheet = wbExcel.Worksheets(1) |
Dans l'ouverture je reçois un msgbox :
Citation:
Problems During Load
Problems came up in the following areas during load
Missing file:C:\style.css
............
Je sais pas comment résoudre ce probleme, J'en ai besoin de votre aide, Merci d'avance.