Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Extraction de données d'un fichier log

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion GBR
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

GBR

Guest
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....
 
Trier par date Trier par votes
Re : Extraction de données d'un fichier log



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😉
 
Vote positif 0 Vote négatif
Re : Extraction de données d'un fichier log

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


merci
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Extraction de données d'un fichier log

GBR à dit:
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
Cliquez pour agrandir...



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...
 
Vote positif 0 Vote négatif
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..
 
Vote positif 0 Vote négatif
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
HTML: 
 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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

EXCEL :: CLASS_LIBRARY_TOOLS_V1.0 - Classes utilitaires - Fichier Log, Gestion de pile d'exécution, isExists, Paramètres, Collection, Dictionnaire
Réponses
0
Affichages
533
oguruma
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
942
Liner77
L
Vérifier la disponibilité d'un fichier généré en différé
Réponses
0
Affichages
496
Lu76Fer
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
700
fanch55
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
1 K
NONO14
N
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
766
patricktoulon
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
852
Lu76Fer
  • Question Question
XL 2021 Dernière ligne rempli d'un tableau de données filtrées
Réponses
5
Affichages
533
treza88
P
  • Question Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
699
ChTi160
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
768
oguruma
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
897
Lu76Fer
G
  • Question Question
XL 2019 copier des données à partir d'un autre fichier excel VBA
Réponses
2
Affichages
2 K
Guillaumeg3
G
S
  • Question Question
XL 2016 Erreur 438 lors de l'ouverture d'un fichier Excel sur un répertoire réseau.
Réponses
10
Affichages
847
Stephane21
S
POWERQUERY/POWERPIVOT :: Injecter dynamiquement un fichier .csv dans le modèle de données - pratique en cas de forte volumétrie - V0.004
Réponses
1
Affichages
808
oguruma
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
Y
  • Question Question
Microsoft 365 récupérer données de tableau structuré sur une plage
Réponses
2
Affichages
704
jpb388
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
E
  • Question Question
XL 2016 Imports données fichier txt
Réponses
2
Affichages
1 K
Bernard_XLD
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
879
GClaire
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…