Discussion :

[nekcorp]

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

[Fvandermeulen]

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 :

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

A+

[Krovax]

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 :

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

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

[Fvandermeulen]

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

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

A+

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

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

Merci

[SafaK]

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 :

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

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.

[Fvandermeulen]

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+