je voudrai cree une application sous vb ki me permete de lire des valeure dans un fichers excel, mai lorske jexecute mon code jai une erreur : erreur automation
voici mon code

Private Sub Command1_Click()
'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:\WINDOWS\Bureau\essai.xls")
'wsExcel correspond à la première feuille du fichier
'Set wsExcel = wbExcel.Worksheets(1)
'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert
appExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant
'Récupération du classeur par défaut
'Set wbExcel = appExcel.ActiveWorkbook
'Récupération de la feuille par défaut
Set wsExcel = wbExcel.ActiveSheet

wsExcel.Cells(1, 1).Value = "test"

wbExcel.Close 'Fermeture du classeur Excel
appExcel.Quit 'Fermeture de l'application Excel


Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
End Sub

Salut ;O)


Piste a suivre :

Premièrement, il faut que la référence Microsoft Excel soit intégrée à ton projet :
-> Menu Projet -> Références -> cocher Microsoft Excel Object Library

Deuxièmement, modifie cette ligne
Dim appExcel As Excel.Application
par
Dim appExcel As New Excel.Application

Troisièmement, supprime la ligne suivante car elle ne sert plus à rien:
Set appExcel = CreateObject("Excel.Application")

Chez moi ca marche parfaitement, mais fait-il encore qu'Excel soint installé sur ton Pc ! Je suppose que oui.

Guy