Bonjour au Forum,

je cherche à inverser l'ordre des enregistrements dans mon fichier logg.txt. Ceci dans le but d'avoir en première ligne les derniers utilisateurs enregistrés.

En mode ajout il ne le fait pas (il fait l'inverse). Comment contourner le pb, SVP ? (la méthode des tableaux existent mais peut-on faire autrement ?)

mon bout de code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Dim oTXT As Scripting.TextStream
Dim oFSO As Scripting.FileSystemObject
 
Set oFSO = New Scripting.FileSystemObject
Set oTXT = oFSO.OpenTextFile(ThisWorkbook.Path & "\" & "logg.txt", ForAppending)
With oTXT
.WriteLine Environ("USERNAME") & " " & Now
.Close
End With
Merci d'avance pour votre aide.