Minikisscool
Messages postés112Date d'inscriptionmardi 30 mars 2004StatutMembreDernière intervention 1 avril 2008
-
2 juin 2004 à 10:35
paf24
Messages postés20Date d'inscriptionmardi 25 février 2003StatutMembreDernière intervention12 janvier 2005
-
2 juin 2004 à 17:01
Alors je voudrais écrire d'une façon particulière dans excel.
Actuellement je fais ça :
Private Sub XLWrite()
Dim myXl As Excel.Application
Dim mySheet As Excel.workbook
'Creation de l'objet an excel
Set myXl = CreateObject("Excel.Application")
'Ouverture du fichier excel
Set mySheet = myXl.Workbooks.Open("c:\temp\fichier.xls")
'Libération des objets
Set mySheet = Nothing
Set myXl = Nothing
Exit_XLWrite:
Exit Sub
Err_XLWrite:
MsgBox Error$
Resume Exit_XLWrite
End Sub
J'ai repris un exemple donné sur le forum.
J'ai un timer dans mon appli qui travaille avec la seconde. info dans label totsecondes
Mon timer décompte le temps exemple de 30 à O
et ce que je voudrais c'est pas exemple pour 30 il écrit dans le fichier les 16 lbI à la ligne 3
pour 29, il écrit dans le fichier les 16 lbI à la ligne 4
etc....
Dans l'esprit je vois un peu comment faire.
un truc du style pour totsecondes écris à la ligne 3
pour totsecondes - 1 écris à la ligne 3 + 1
et ce tant que totsecondes est différent de 0