Importer partie fichier .dat

**Basicnav** · 31/03/2011, 10h34

Bonjour,

dans mon entreprise, nous avons un compteur de colis sur un convoyeur dont je peux récupérer chaque jour les données au format .dat
Chaque jour est créé un nouveau fichier.

En fin de mois, je souhaite n'importer que les 5 dernières lignes de chaque fichier .dat et insérer ces lignes les unes à la suite des autres dans un fichier excel.

Ceci sous macro vba bien entendu...

Mes question sont simples

Est-ce possible ?
ou trouver des infos sur le sujet, car je trouve de tout pour des fichiers csv complets et rien sur une partie des ces fichiers...??

merci

**mromain** · 31/03/2011, 11h02

Bonjour Basicnav,

Voici un code exemple :

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
20
21
22
Sub Test()
Dim oFso As Object, oTxtStream As Object
Dim pathFichierDat As String, lignesFichierDat() As String, iLigne As Long
 
    pathFichierDat = "C:\test.dat"
 
    'ouvrir le fichier .dat (en lecture seule)
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oTxtStream = oFso.OpenTextFile(pathFichierDat, 1)
 
    'récupérer dans un tableau chaque ligne du fichier .dat
    lignesFichierDat = Split(oTxtStream.ReadAll, vbNewLine)
 
    'boucler sur les 5 dernières lignes
    For iLigne = UBound(lignesFichierDat) - 4 To UBound(lignesFichierDat)
        'traiter la ligne .dat
        MsgBox lignesFichierDat(iLigne)
    Next iLigne
 
    'détruire les objets
    Set oFso = Nothing: Set oTxtStream = Nothing
End Sub

A+

**pgz** · 31/03/2011, 11h18

Bonjour.

Tu peux lire le contenu de ton fichier comme un fichier .txt. Tu trouveras en FAQ un chapitre sur la manipulation des fichiers txt

Cordialement,

PGZ