Discussion :

[byloute]

Bonjour,

J'enregistre dans un fichier texte les accès à mon fichier excel.
Pouvez-vous me dire s'il est possible de récupérer en VBA les 10 dernières lignes de ce fichier texte ?
L'objectif est de les afficher via "msgbox", afin de voir quelles sont les 10 dernières personnes.

Merci à tous,

[BENNASR]

bonjour
l'idée consiste à importer les lignes depuis un fichier texte et supprimer les lignes et ne garder que les 10 dernières lignes
à tester sur une copie de ton fichier pour munir de toute risque de perte de données
nb : partie 1 du code fournie par mercatog dans une discussion sur ce site (à qui je passe bonjour )

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 ImportTxtetSuprLigne()
Dim FichierTxt
Dim Lig As Long
FichierTxt = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If FichierTxt <> False Then
    With Worksheets("Feuil1")
        .UsedRange.ClearContents
        With .QueryTables.Add(Connection:="TEXT;" & FichierTxt & "", Destination:=.Range("A2"))
            .TextFileSemicolonDelimiter = True
            .Refresh BackgroundQuery:=False
            .Delete
        End With
    End With
End If
Lig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
For I = Lig - 10 To 2 Step -1
Sheets("Feuil1").Rows(I).Delete
Next I
End Sub

[Menhir]

J'enregistre dans un fichier texte les accès à mon fichier excel.
Pouvez-vous me dire s'il est possible de récupérer en VBA les 10 dernières lignes de ce fichier texte ?
L'objectif est de les afficher via "msgbox", afin de voir quelles sont les 10 dernières personnes.

Tu ouvres ton fichier texte avec un OpenText pour le transformer en classeur Excel.
Avec un UsedRange.Rows.Count, tu auras le nombre de lignes.
Il te suffiras de supprimer les lignes de la première à la "dernière moins 10" et il te restera les 10 dernières lignes.

[pijaku]

Bonjour,

J'enregistre dans un fichier texte les accès à mon fichier excel.

Quel est ton code VBA pour enregistrer dans un fichier texte?