Récupération valeurs dans fichier .TXT à partir d'Excel

[corvelc]

Bonjour,
Ne maitrisant pas la gestion de fichiers TXT à partir d'Excel, je souhaite savoir comment à partir d'une macro VBA intégrée dans un tableau Excel je peux aller lire un fichier TXT pour récuperer le nombre de fois que je trouve la valeur "OPENED".
merci pour votre aide.

Mon fichier TXT s'appel LB_RD.TXT , il contient un nombre de ligne inconnue mais toutes sur le même format comme suit l'exemple:

"2008-08-20 14:39:22","GODMERL","Opened"
"2008-08-19 16:39:33","GODMERL","Closed"
"2008-08-20 14:05:10","CORVELC","Opened"
"2008-08-20 14:05:16","CORVELC","Closed"
"2008-08-20 14:05:39","CORVELC","Opened"
"2008-08-20 14:06:22","CORVELC","Closed"
"2008-08-20 14:39:22","GODMERL","Opened"
"2008-08-20 15:23:33","GODMERL","Closed"
"2008-08-22 13:57:11","CORVELC","Opened"

 

[LPandre]

Re : Récupération valeurs dans fichier .TXT à partir d'Excel

Bonjour;
perso je ferais une ouverture avec Excel, une conversion des données, et un sommeprod sur la dernière colonne ou un NB.SI vu qu'il n'y a qu'une variable à prendre en compte.

Du coup y'a pas besoin de macro
@+

 

[corvelc]

Re : Récupération valeurs dans fichier .TXT à partir d'Excel

merci pour l'aide, mais justement mon problème est que j'ai fait une application pour des utilisateurs, et je ne veux pas que mes utilisateur voyent cette partie du traitement, d'ou du code VBA que j'integrerais dans la macro d'ouverture de mon application.

 

[Staple1600]

Re : Récupération valeurs dans fichier .TXT à partir d'Excel

Bonjour

Tu peux utiliser la solution de LPandre mais en masquant la feuille d'import, non

 

[LPandre]

Re : Récupération valeurs dans fichier .TXT à partir d'Excel

Re :
j'écris peut être une bêtise, mais la procédure que je t'ai décrite peut être enregistrée via l'enregistreur de macro, et collé dans un code en workbook open.
Tu peux tester ?
@+
Edit (salut Staple): et en plus tu peux en fin de process masquer la feuille d'import comme l'indique Staple si tu ne souhaites pas que l'on voit ta base.

 

[Staple1600]

Re : Récupération valeurs dans fichier .TXT à partir d'Excel

Re



Voici un code à tester

'Adapter le chemin et le nom du fichier

Sub importTXT()
'source d'inspiration Creepy
Dim F As Worksheet
Dim Nom_Fichier As String, Texte As Variant
Dim NumFile As Integer, Compteur As Integer
Application.ScreenUpdating = False
Nom_Fichier = "c:\temp\gggg.txt"
Compteur = 1
If Dir(Nom_Fichier) = "" Then
MsgBox "Fichier inexsistant !", _
vbCritical + vbOKOnly, "ERREUR"
Exit Sub
Else
Set F = Sheets.Add
F.Visible = xlSheetVeryHidden
NumFile = FreeFile
Open Nom_Fichier For Input As NumFile
Do While Not EOF(NumFile)
      Input #NumFile, Texte
      F.Range("A" & Compteur).Value = Texte
      Compteur = Compteur + 1
Loop
End If
lig = [A65536].End(xlUp).Row
F.Range("B1").FormulaR1C1 = "=COUNTIF(C[-1],""=Opened"")"
MsgBox "Nombres d'occurences trouvées : " & _
F.[B1], vbInformation, "RESULTATS : Opened"
Close NumFile
F.Visible = True
Application.DisplayAlerts = False
F.Delete
Application.ScreenUpdating = True
End Sub

 

[corvelc]

Re : Récupération valeurs dans fichier .TXT à partir d'Excel

Bonjour,
ta solution correspondrait à mon attente. Par contre je n'obtiens pas le résultat attendu dans la feuille créée.
cela se passe dans le boucle ci dessous :
Do While Not EOF(NumFile)
Input #NumFile, Texte
F.Range("A" & Compteur).Value = Texte
Compteur = Compteur + 1
Loop
Que doit faire cette boucle pour que je comprenne ?
le résultat recu dans la cellule A1= ÐÏࡱ

 

[corvelc]

Re : Récupération valeurs dans fichier .TXT à partir d'Excel

Autan pour moi, ça marche car erreur dans nom du fichier utilisé.
Merci à tous pour avoir répondu à mon attente.