1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Dim Adr As String
Dim Contenu As String
Dim Lignes As String
Dim FileNum As Integer
Adr = "C:\MonFichier.txt" 'adresse du fichier à ouvrir
FileNum = FreeFile 'Numéro pour ouverture du fichier
If Dir(Adr) <> "" Then 'Ne traite que si le fichier existe
Contenu = Space(FileLen(Adr)) 'dimmensionne la variable à la taille du fichier
Open Adr For Binary As FileNum 'ouvre le fichier
Get FileNum, , Contenu 'réccupère tout le contenu du fichier
Close FileNum 'ferme le fichier
Lignes = Split(Contenu, vbCrLf) 'découpe à chaque retour à la ligne
End If
'La première ligne du fichier est Lignes(0)
'La dernière ligne du fichier est Lignes(Ubound(Lignes)) |