Probleme ouverture fichier excel en VB

Bonjour,

Voici le code que j'ai ajouter à mon programme en vb:

'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\test.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

J'ai ajouter excel dans les references sous vb et il me fais une erreur sur la ligne en gras, l'erreur est la suivante :
run time erreur '-2147417581(80010105)':
method 'open' of object 'workbooks' failed

Une idée?

Salut,

essaye en declarant tes variables wbExcel et wsExcel en object pour voir. perso je ne vois que ça.

Dim wbExcel As Object.Workbook 'Classeur Excel
Dim wsExcel As Object.Worksheet 'Feuille Excel

A+

Je vois la même chose que BigFish (salut), mais je changerais la façon de déclarer...

Dim wbExcel As Object     'Classeur Excel
Dim wsExcel As Object      'Feuille Excel


Si tu veux utiliser les références, ça risque de ne pas être portable d'un PC à l'autre selon les versions d'Offfice, mais tu pourrais y aller ainsi

Dim appExcel As New Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

et tu laisses tomber cette ligne
Set appExcel = CreateObject("Excel.Application")

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

ok  merci je vais essayer tout sa