Fabian26
Messages postés28Date d'inscriptionsamedi 7 juin 2008StatutMembreDernière intervention18 juin 2008
-
10 juin 2008 à 16:49
Fabian26
Messages postés28Date d'inscriptionsamedi 7 juin 2008StatutMembreDernière intervention18 juin 2008
-
11 juin 2008 à 11:12
J'ai fait un programme qui capte des données sur le Port série. Ensuite
je dois envoyer ces données dans un tableau Excel. Le problème est que
je recois une donnée toutes les seconde et que je ne dois en
transmettre une que toutes les X minutes (le temps en min est entré par
l'utilisateur). Seulement mon programme en voi tjs la meme donnée
toutes les X min !!! La donnée que j'exporte sur Excel n'est
jamais rafraichie.
Comment dois-je faire pour envoyer toutes les x min la donnée présente a ce moment précis sur le Port série???
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 11 juin 2008 à 08:32
Salut,
Est ce que tu dois mémoriser TOUTES les valeur recues avant l'export vers Excel toutes les X minutes, ou bien est ce que tu dois "simplement" et uniquement envoyer celle recue toute les X minutes?
Fabian26
Messages postés28Date d'inscriptionsamedi 7 juin 2008StatutMembreDernière intervention18 juin 2008 11 juin 2008 à 08:41
EN fait je recois une donnée (en décimale) chaque seconde via le port
série. Mais je dois en exoprter seulement une toutes les X minutes sur
Excel. Le temps en minute est rentré par l'utilisateur.
Et mon problème c'est qu'il envoie tjs la meme valeur vers excel.
Voici mon code:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
End
End Sub
'enregistrement sur Excel
Private Sub Enregistrer_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
Dim t0 As Integer
Dim t1 As Integer
Dim t2 As Integer
Dim val As Integer
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\Documents
and Settings\Fabian Caudron\Bureau\Test vb excel\tab1.xls")
appExcel.Visible = True
'wsExcel correspond à la première feuille du fichier