Bon j'ai réussit voila mon code pour ouvrir un fichier texte!
Je me suis tourné sur excel car plus adapté pour l'application que je voulais dévelloppé, mais le code est le meme sur access!
Voici mon code:
Public RunWhen As Double
Public Const cRunIntervalSeconds = 5
'la constante "cRunIntervalSeconds" défini le temps de mise a jour du timer
Public Const cRunWhat = "ToDo"
Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
'Avec "runwhen" on lance la mise a jour du timer toutes les 0 heures 0 minutes "cRunIntervalSeconds" secondes
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, schedule:=True
'le "true" active l'application timer
End Sub
Sub ToDo()
Worksheets("Feuil1" ).Cells(1, 1).Value = Now 'On place dans la feuille1 d'excel la date et l'heure dans la collonne 1 et la ligne 1
Dim cpt As Integer 'On déclare un compteur comme variable "cpt"
Open "U:\projet semestre\interface labview aquisition BD\save_BD_courante\5mesures.txt" For Input Access Read As 1 'On ouvre le fichier texte sans le traité pour le moment
cpt = 5 'On initialise le compteur cpt a 5
Do While Not EOF(1) 'On fait un boucle jusqu'a la fin du fichier
Line Input #1, TextLine 'on copie la premiere ligne du texte dans TextLine
Worksheets("Feuil1" ).Cells(cpt, 5).Value = TextLine 'On copie TextLine dans dans la cellule ligne "cpt" collonne 5 de la feuille 1 d'excel
cpt = cpt + 1 'on incrémente le compteur
Loop
Close #1
StartTimer
End Sub
Sub StopTimer()
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, schedule:=False
'le "false" active l'application timer
End Sub
A plus ;D
