visual basic et excel

Question

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

Neo.balastik · Answer

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

Visual basic et excel

1 réponse

Discussions similaires