Importer partie fichier .dat

Version imprimable

31/03/2011, 09h34
Basicnav

Importer partie fichier .dat

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

Bonjour Basicnav,

Voici un code exemple :

Code:

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+

31/03/2011, 10h18
pgz

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
31/03/2011, 10h50
kiki29

Salut,tu peux également cherher sur le site http://www.google.fr/#hl=fr&source=h...3ca8bdcb9334f6
01/04/2011, 07h52
Basicnav

Bonjour,

merci pour vos réponses, je test tout ça aujourd'hui et je vous informe de mon avancée.

Merci pour vos pistes ! :ccool: