Bonjour à tous j'ai besoin de votre aide,
Je veux faire une lecture de fichier en vba, d'un fichier TrameRx_IP.DAT, C'est un fichier à accès random. Après un enregistrement de 500 évènements le transmetteur vocalys supprime les évènements et faire un nouvel enregistrement. Moi je veux lire dans le fichier et faire une sauvegarde de tous les évènements .
j'ai essayé avec ce code mais ça ne marche pas quelqu'un pourrait t-il m'aider.

Code vb.net : 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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Function FileTrameInput As String
    Const NbMesRx = 500
    Dim FileNumber As Integer
    Dim BufFile As String * 800
    FileNumber = FreeFile
    Open App.Path & "\TrameRx_IP.DAT" For Random As FileNumber Len = Len(BufFile)    
 
    ' Lecture des pointeurs
 
    Get #FileNumber, 1, BufFile
    gintPtReTi = Val(Mid(BufFile, 1, 5))
    gintPtWrTi = Val(Mid(BufFile, 6, 10)) 
 
        ' Lecture trame  
            ' Test des limites pointeur lecture
 
            If gintPtReTi > NbMesRx Or gintPtReTi < 2 Then
 
                gintPtReTi = 2
 
            Else
 
                gintPtReTi = gintPtReTi + 1
 
            End If
 
            BufFile = Format(gintPtReTi, "00000") _
                           & Format(gintPtWrTi, "00000")            
 
            ' Mise à jour Pointeurs
            Put #FileNumber, 1, BufFile        
 
            ' Lecture de la trame
            Get #FileNumber, gintPtReTi, BufFile
 
            FileTrameInput = Trim(BufFile)            
 
            ' Effacement de la trame
            BufFile = ""
 
            Put #FileNumber, gintPtReTi, BufFile       
 
    Close #FileNumber 
 
End Function

Amicalement