Extraction d'un fichier log

[GBR]

Bonjour à tous,

suite de l'essai sur extraxtion données d'un fichier log


Private Sub CommandButton1_Click()
'code pour fichier log

'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 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

macro de Kobaya




Cela me met erreur d’exécution 52 nom ou numéro de fichier incorrect a la ligne :

Open "C:\Documents\monfichier.log" For Input As 1

pourtant la racine est correct??

 

[mutzik]

Re : Extraction d'un fichier log

Bonjour GBR

For Input As lngl

devrait fct beaucoup mieux

 

[GBR]

Re : Extraction d'un fichier log

OK mais l'erreur se produit maintenent à

Do Until EOF(l)

Que faire ??