Ouvrir un fichier et compter des occurences par VBA

[apt]

Bonsoir,

J'aimerais, en VBA, ouvrir ce fichier (Sans extention d'origine) et
compter des occurences des numéros téléphone tels que :


011 - 017

Par macro j'ai eu,

'---------------------- 
Sub Macro4() 
' 
    Workbooks.OpenText Filename:= _ 
        "C:\Documents and Settings\Administrateur\Bureau\inspection\B5v1", Origin:= _ 
        xlMSDOS, StartRow:=25, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1 _ 
        ), Array(3, 1), Array(19, 1), Array(35, 1), Array(56, 1)), TrailingMinusNumbers:=True 
    Sheets("B6").Select 
    
    Windows("Classeur1").Activate 
    Sheets("Feuil1").Select 
End Sub 
'---------------------

Mais je ne sais pas comment l'utiliser.

Merci.

 

[Staple1600]

Re : Ouvrir un fichier et compter des occurences par VBA

Bonjour


A tester


J'ai ouvert le fichier en choisissant Délimité puis en décochant Tabulations

enusuite avec cette formule, j'obtiens 6
=NB.SI(A27:A32;"*011*")+NB.SI(A27:A32;"*017*")


La macro d'ouverture du fichier
Sub Macro3()
'adapter le chemin du fichier
Workbooks.OpenText Filename:="C:\Mes documents\B5v1\B5v1.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
End Sub

 

[apt]

Re : Ouvrir un fichier et compter des occurences par VBA

bonjour Staple1600,

voila un autre essai :

 

[jeanpierre]

Re : Ouvrir un fichier et compter des occurences par VBA

Salut Apt, Apitos, etc....

Cela fait plus de vingt fois que tu nous fais le coup, plus de vingt que l'on te dit, ici et ailleurs... Oui, mais tu nous réponds : je l'aurais dit.... j'allais le dire...

Tu n'es pas sérieux.... Tu postes, c'est bien, mais dis aussi, ici et ailleurs que tu multipostes. (Tu avais pourtant promis, il y a quelques temps), ce n'est pas grand chose, mais cela fait plaisir de savoir....

Rayé des cadres.

 

[apt]

Re : Ouvrir un fichier et compter des occurences par VBA

Bonjour jeanpierre,

Comme toujours, tu joues le rôle d'un PAF ou d'un GGF.

Rien ne t'échappe.

J'ai promis de signaler des multipostes, s'il y'a des réponses et à un certain moment il n'y aurais pas une suite à un sujet.

Salutations.

 

[jeanpierre]

Re : Ouvrir un fichier et compter des occurences par VBA

Bonjour,

Ben, voilà c'est fait .....


Ben, oui, pourquoi pas après, finalement......

Ce n'est pas parce que tu indiques tes multipostages (au début, bien sûr) que tu n'auras pas de réponses.

Au contraire, ceux qui le feront, le feront en connaissance de cause.
Ils deviendront des intervenants à la recherche de ta solution mais ne seront pas des pigeons.....

En tous cas, merci... Tu viens de m'apprendre la technique du copier coller que je vais m'empresser de tester ailleurs, et peut-être ailleurs encore.

Bon week-end à toi et à tous surtout.

 

[apt]

Re : Ouvrir un fichier et compter des occurences par VBA

Bonjour,

Même sujet ICI

🙂

 

[apt]

Re : Ouvrir un fichier et compter des occurences par VBA

Bonjour,

Une idée ?

 

[apt]

Re : Ouvrir un fichier et compter des occurences par VBA

Bonjour à tous le forum,

En pièces jointe, le modèle à réaliser.

Merci d'avance de votre aide.

😉

 

[apt]

Re : Ouvrir un fichier et compter des occurences par VBA

Bonjour le forum,

Quelqu'un a-t-il pu en trouver une solution ?

Dans le post original, c'est presque 1900 lectures mais sans réponses !!!???

Merci d'avance.

 

[jeanpierre]

Re : Ouvrir un fichier et compter des occurences par VBA

Bonjour apt,

Ton fichier zip joint, fin février, comporte des fichiers que je suis incapable de lire.

Quel étaient-ils à l'origine ?
Quelle est l'extention réelle ?

Après ce sera, peut-être, plus simple.

Jean-Pierre

 

[apt]

Re : Ouvrir un fichier et compter des occurences par VBA

Bonsoir jean-pierre et le forum,

non il faut lire ce fil, il y'a de plus récent :

www.veriti.net :: Voir le sujet - Ouvrir un fichier et compter des occurences par VBA

Merci.

 

[apt]

Re : Ouvrir un fichier et compter des occurences par VBA

Re,

Je n'ai pas mis le fichier ici, c'est parce que Ti m'a demandé de ne pas le diffuser sur d'autres forums.

Les fichiers sont comme tels. Ils sont récupérés d'un autre système sans extentions (Sous DOS).

Et puis l'ouverture et le traitement de ces fichiers ne pose pas problème tant que Ti a trouvé la solution.

Ce qui manque, c'est la récupération de la date (Début + Fin) à partir d'un fichier commençant par P1* ou PS* pour l'insérer dans la zone de texte en haut, et adapter la formule SOMME.SI pour qu'elle ne fonction que sur une seule zone à la fois, et cela selon l'OptionButton sélectionnée.

Merci.