S4ngo
Messages postés51Date d'inscriptionmercredi 15 décembre 2004StatutMembreDernière intervention11 mai 2006
-
13 févr. 2006 à 12:42
satrincha
Messages postés8Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention19 septembre 2011
-
13 févr. 2006 à 17:33
Bonjours,
je recois des données du port com, et je doit les sotcker dans un fichier excel. Mais je ne sais pas comment faire, j'ai déja créer le fichier, je sais l'ouvrir a partir de mon application vb, mais je ne sais pas comment envoyer les données dans le document excel
Merci d'avance.
code:
Const Serveur = "Excel|c:\relever_polluants.xls"
Private Sub Excel_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:\relever_polluants.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
'appExcel.visible=True permet de rendre la fenetre visible, car sans sa, elle est ouverte mais pas visible
appExcel.Visible = True
End Sub