De .txt a Excel, modif de variable

[Spock]

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

 

[Charly2]

Bonsoir Spock,

Je pense que cette partie de code devrait convenir :

  Line = 1
  critere = 'Ok'
  NumFile = FreeFile
  Open ('BATAX352GMAOHistoriqueMail.log') For Input As #NumFile

  Do While Not EOF(NumFile)

    Line Input #NumFile, A$

    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
  Loop

  Close

Voili voilà

A+

 

[Bebere]

bonsoir Spock


Line = 1
'ligne suivante en commentaires ou supprimer
'critere = 'Ok'
NumFile = FreeFile
Open ('\\BATAX352GMAOHistoriqueMail.log') For Input As #NumFile

Do While Not EOF(NumFile)
Line Input #NumFile, A$
'ligne suivante en commentaires ou supprimer
'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
'ligne suivante en commentaires ou supprimer
'End If


Loop
Close


à bientôt

 

[Spock]

Re bonjour, merci pour ces soluces.

Je vais essayer tout ça demain au boulot.

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

Feedback demain donc

 

[Spock]

Re bonjour,

Ca marche !!!! merci