Bonjour
VOila j'ai des valeurs à lire dans un fichier, mais je cherche à savoir combien de valeur ya dans un espace de temps, pr cela j'ai pensé à faire un timer et le regler sur une 1Minute et une boucle pour le calcul des valeurs enregistrées.

Jespere que j été assez clair

voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub TEST()
Dim NoFichier As Integer
Dim NomFichier As String
Dim i As Long
Dim b As Byte
NoFichier = FreeFile
NomFichier = "Chemin complet de la dll"
 
Open NomFichier For Binary Access Read Lock Read As #NoFichier
   i = 0
   For i = 1 To 16
   Get #NoFichier, , b
      Cells(i, "A") = b
   Next
fin:
 
   Close #NoFichier
 
End Sub