Extraction de données d'un fichier log

[GBR]

salut

Private Sub CommandButton1_Click()
'code pour importation de données d'un 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 lngl
Do Until EOF(lngl)
' importation des lignes du log
Input #lngl, strLog
Cells(lngLigne, 1) = strLog
Loop
' fermer le canal
Close #lngl

' traitement des données importées

End Sub

le code fonctionne mais il n'y à qu'une ligne qui s'inscrit dans ma feuille excel, comment faire pour importer la totalité des lignes du fichier log ?

merci pour votre aide....

 

[lapix]

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

salut

Private Sub CommandButton1_Click()
'code pour importation de données d'un 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 lngl
Do Until EOF(lngl)
' importation des lignes du log
Input #lngl, strLog
Cells(lngLigne, 1) = strLog
-----------------lngligne=lngligne+1------------------
Loop
' fermer le canal
Close #lngl

' traitement des données importées

End Sub

le code fonctionne mais il n'y à qu'une ligne qui s'inscrit dans ma feuille excel, comment faire pour importer la totalité des lignes du fichier log ?

merci pour votre aide....

Parce que tu n'incremente pas lngligne

Quand tu est sur le meme sujet il est preferable de ne pas creer de nouveaux post. continue plutot sur l'ancien😉

 

[GBR]

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

merci lapix

 

[GBR]

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

Je garde le même fil !!!
Comment fait tu pour incrémenter lngLigne pour avoir la recopie des lignes du log ?


merci

 

[lapix]

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

Je garde le même fil !!!
Comment fait tu pour incrémenter lngLigne pour avoir la recopie des lignes du log ?


merci

Excuse moi mais je ne comprends pas ta question. Peux tu etre plus explicite ?
Merci
Sinon si c'est ce que je pense il faut ajouter :

lngligne=lngligne+1

avant le loop

 

[GBR]

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

Il n'y a que la premiere ligne du log qui est copié en A1 ?
comment avoir la recopie de la totalité du log?

voici le code

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

lngLigne = 1 'Cell ligne 1

' ouvrir un canal de lecture
lngl = FreeFile()

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

lngLigne = lngLigne + 1 'ne fait rien de mieux

Loop

' fermer le canal
Close #lngl

'traiter les données importer
End Sub

 

[GBR]

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

Je n'arrive toujours pas à extraire la totalité des lignes de code de mon fichier log ?
seule la dernière ligne s'affiche !!!!


Merci aux pros d'excel de m'aider ....moi je rame

 

[lapix]

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

Je n'arrive toujours pas à extraire la totalité des lignes de code de mon fichier log ?
seule la dernière ligne s'affiche !!!!


Merci aux pros d'excel de m'aider ....moi je rame

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

lngLigne = 1 'Cell ligne 1

' ouvrir un canal de lecture
lngl = FreeFile()

' ouvrir le fichier en lecture
Open "C:\monfichier.log" For Input As lngl
Do Until EOF(lngl) <------------------------------😉lngl
' importation des lignes du log
Input #lngl, strLog
Cells(lngLigne, 1) = strLog 'cell colonne A

lngLigne = lngLigne + 1 'ne fait rien de mieux

Loop

' fermer le canal
Close #lngl

'traiter les données importer
End Sub

Ce code fonctionne tres bien chez moi...

 

[GBR]

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

Merci Lapix.... ça fonctionne

Comment je pourrait traiter avec un code simple l'extraction des données qui sont le nombre d'ouvertures du logiciel et qui sont classées par mois.

monfichier 10:42 11/02/06
monfichier 11:00 12/02/06
monfichier 07:45 02/03/06

etc....

je cherche à savoir en février 2 accès

en mars 1 accès etc....... pour pouvoir faire un graphique


Merci par avance pour votre aide précieuse !!!!

bravo au webmaster un forum superbe à découvrir..

 

[Hervé]

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

bonjour gbr, lapix

ci-dessous un code pouvant t'aider.

celui cumul par mois le nombre d'acces du fichier log et renvoi le tout en a1:b12

 Sub ImportFichierTexte()
  Dim intL As Integer
  Dim lngLigne As Long
  Dim strLog As String
  Dim tablo(1 To 12, 1 To 2)
  Dim tablosplite
  
  'initialisation des mois
  For i = 1 To 12
      tablo(i, 1) = MonthName(i)
  Next i
  
  lngLigne = 1 'Cell ligne 1
  
  ' ouvrir un canal de lecture
  lngl = FreeFile()
  
  ' ouvrir le fichier en lecture
  Open "C:\monfichier.log" For Input As lngl
  Do Until EOF(lngl) ' < ------------------------------lngl
  ' importation des lignes du log
  Input #lngl, strLog
  'déconcaténation de la chaine
  tablosplit = Split(strLog, " ")
  'cumul par mois
  tablo(Month(tablosplit(2)), 2) = tablo(Month(tablosplit(2)), 2) + 1
  Loop
  
  ' fermer le canal
  Close #lngl
  
  'renvoi des données
  Range("a1:b12") = tablo
  
  End Sub

salut

 

[GBR]

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

merci, c'est ce que je recherche

bravo !!!!