Bonjour toutes et tous,
Le macro ci dessous a toujours fonctionné nickel.
Me suis cassé la tête il y a quelques années pour que ce soit Ok.
Dans cette macro, il extrait des données, du fichier texte vers Excel suivant 1 critère.
Dans mon nouveau truc, je n'ai plus besoin de la variable 'critere'. Il faut que chaque ligne soit importée.
Je suis saturé, je n'arrive plus a me concentrer, pourriez m'aider pour que TOUTES les lignes du fichier texte soient importées ?
Merci beaucoup !
Line = 1
critere = 'Ok'
NumFile = FreeFile
Open ('\\\\BATAX352\\GMAO\\HistoriqueMail.log') For Input As #NumFile
Do While Not EOF(NumFile)
Line Input #NumFile, A$
If InStr(1, A$, critere) Then
Cells(Line, 1).Value = A$
Line = Line + 1
If Line = 65530 Then
MsgBox 'Limit of Excel Sheets reached, Program will stop',
vbCritical, 'Warning'
End
End If
End If
Loop
Close
Le macro ci dessous a toujours fonctionné nickel.
Me suis cassé la tête il y a quelques années pour que ce soit Ok.
Dans cette macro, il extrait des données, du fichier texte vers Excel suivant 1 critère.
Dans mon nouveau truc, je n'ai plus besoin de la variable 'critere'. Il faut que chaque ligne soit importée.
Je suis saturé, je n'arrive plus a me concentrer, pourriez m'aider pour que TOUTES les lignes du fichier texte soient importées ?
Merci beaucoup !
Line = 1
critere = 'Ok'
NumFile = FreeFile
Open ('\\\\BATAX352\\GMAO\\HistoriqueMail.log') For Input As #NumFile
Do While Not EOF(NumFile)
Line Input #NumFile, A$
If InStr(1, A$, critere) Then
Cells(Line, 1).Value = A$
Line = Line + 1
If Line = 65530 Then
MsgBox 'Limit of Excel Sheets reached, Program will stop',
vbCritical, 'Warning'
End
End If
End If
Loop
Close