Compter le nombre de ligne dans un fichier text

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.

Code:

---

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

---

A+

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

Code:

---

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

---

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 :aie:

Citation:

---

Envoyé par Krovax

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 :aie:

---

Salut Krovax, faut pas être désolé, qui n'a jamais oublié de rafraichir...;)
Juste pour préciser que le lien pointe vers le Tuto Access qui contient une partie "gestion des fichiers" par Visual Basic, heureusement c'est applicable sur Excel :ccool:

A+

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.

Code:

---

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

---

Merci

Citation:

---

Envoyé par nekcorp

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.

Code:

---

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

---

Merci

---

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+