Extraction de données d'un fichier log

[GBR]

Bonjour, je n'arrive toujours pas à ouvrir mon fichier log avec cette macro et copier les données dans les feuilles excel, qui peut m'aider ?


Sub ImportFichierTexte()
Dim intL As Integer
Dim lngLigne As Long
Dim strLog As String

lngLigne = 1

' ouvrir un canal de lecture
lngl = FreeFile()

' ouvrir le fichier en lecture
Open "C:\Documents\monfichier.log" For Input As lngl 'For Input As l
Do Until EOF(l)
' importation des lignes du log
Input #lngl, strLog
Cells(lngLigne, 1) = strLog
Loop

' fermer le canal
Close #lngl

' à toi de traiter les données importer
End Sub


Cela provoque un message d'erreur à la ligne...
Do Until EOF(l)

merci pour votre aide !!!

 

[lapix]

Re : Extraction de données d'un fichier log

Salut

Tu as juste un petit probleme :

tu ouvre le fichier avec "As lngl"

et tu teste EOF(l) au lieu de eof(lngl)

 

[GBR]

Re : Extraction de données d'un fichier log

Alors la merci et remerci..... ça fonctionne parfaitement

j'aurais du le voir mais à force de vérifier du code j'en perd mon latin !!!!