Bonjour,
Voilà je ne trouve pas de solution à mon problème, bien que je cherche sur le forum.
Je souhaite compter le nombre de ligne présent dans un fichier texte et stocker cette valeur dans une variable.
Cordialement
Bonjour,
Voilà je ne trouve pas de solution à mon problème, bien que je cherche sur le forum.
Je souhaite compter le nombre de ligne présent dans un fichier texte et stocker cette valeur dans une variable.
Cordialement
Salut,
Voici un code issu des Tutos... http://warin.developpez.com/access/fichiers/#LII-B-1
Je l'ai légèrement adapté pour que tu aies un message box avec le nombre de ligne.
A+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub CompteLigne() Dim NbLigne As Long Dim intFic As Integer Dim strLigne As String intFic = FreeFile Open "C:\TonChemin\TonFichier.txt" For Input As intFic While Not EOF(intFic) Line Input #intFic, strLigne NbLigne = NbLigne + 1 Wend Close intFic MsgBox NbLigne End Sub
Bonjour,
J'hésite entre le code brut a décoder ou le lien vers la faq a adapter, je vais opter pour le premier peut être simplifiable mais v'est un code que j'ai la d'ouvert avec juste quelque ligne en moins
Edit : bonjour Fvandermeulen désolé pas rafraichi, visiblement tu as donnés le code et le lien vers la FAQ pas eu le courage de le chercher
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 dim ligne as string, chem as string dim nf as integer dim i as long nf = FreeFile() chem="c:\dossier\test.txt" Open chem For Input As #nf Do i=i+1 Line Input #nf, ligne Loop until EOF(nf) close(nf) msgbox i![]()
Merci, vous m'avez bien aidé,
Voilà le code en entier avec le possibilité de sélectionner le fichier texte que l'on souhaite traiter.
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Private Sub CommandButton2_Click() Dim NbLigne As Long Dim intFic As Integer Dim strLigne As String Dim Fichier As Variant Fichier = Application.GetOpenFilename("Fichiers Textes (*.txt),*.txt", Title:="Selectionner Fichier Texte") If Fichier = False Then MsgBox "No file selected!" Exit Sub End If intFic = FreeFile Open Fichier For Input As intFic While Not EOF(intFic) Line Input #intFic, strLigne NbLigne = NbLigne + 1 Wend Close intFic MsgBox NbLigne End Sub
Bonjour,
Je suis débutante en VBA, et je veux créer une macro qui retourne le nombre de ligne présentes dans un fichier (le fichier est sans extension).
La macro ci-dessus, récupères bien le nombre de ligne pour un fichier txt.
J'aurais besoin de votre aide pour adapter la macro pour un fichier sans extension.
NB: J'arrive à le sélectionner, mais la macro me retourne 1 toujours.
Merci d'avance.
Bonjour et bienvenue,
Avant tout, je conseille de faire un nouveau post au lieu de déterrer un si vieux, il y aura plus de chance de réponses.
Théoriquement, pour accepter n'importe quel type de fichier, il faut remplacer dans le code les .txt par .*
Pour que la suite du code fonctionne, il faut bien entendu que ce soit un fichier de type texte, je veux dire un fichier Access ne sera pas traité correctement...
A+
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager