Discussion :

[yoyo781]

Bonjour,

voici un code très simple qui fait appel à une fonction ( je débute en vba ).

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
25
26
27
28
Private Sub UserForm_Click()
Dim n As Integer
 
n = MsgBox(NombreLigne("F:\DateMiseJour.txt"))
 
 
End Sub
 
' Nombre de lignes d'un fichier
 
Function NombreLigne(Monchemin As String) As Integer
 
Dim Fichier As Object
Dim objet As Object
Dim nbreligne As Integer
 
Set objet = CreateObject("Scripting.FileSystemObject")
Set Fichier = objet.OpenTextFile(Monchemin)
 
nbreligne = 0
Do While Fichier.AtEndOfStream <> True
nbreligne = nbreligne + 1
Fichier.SkipLine
Loop
MsgBox ("nbre lignes est" & nbreligne)
Fichier.Close
 
End Function

Lorsque je lance le code,
le message box à l'intérieur m'indique le bon nombre de lignes de mon fichier.
Par contre le 2e message box

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

n = MsgBox(NombreLigne("F:\DateMiseJour.txt"))

m'indique 0.

Je ne comprends pas pourquoi il ne m'indique pas 1.
Voyez vous mon erreur ?

Lionel.

[clementmarcotte]

Jusqu'à preuve du contraire, skip c'est sauter par-dessus et non sauter au suivant.

Comme c'est si bien mentionné là

P.S. Regarde sur ton disque si tu n'aurais pas la documentation de Microsoft Scripting.

Chez moi c'est dans : C:\Program Files\Microsoft Windows Script\ScriptDocs\Script56.CHM

[yoyo781]

Merci ClementMarcotte de ta réponse.

Je n'avais pas vu la ligne avec le skipline mais sans cette ligne mon code ne marchait quand même pas.

J'ai trouvé la solution un peu plus tard.
Je n'avais pas affecté le nom de ma fonction à une variable.
J'ai ajouté la ligne
Fichier.Readline
et la ligne
NombreLigne=nbreligne
dans ma fonction.

Ce code maintenant fonctionne :

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
25
26
27
28
29
30
Private Sub UserForm_Click()
Dim n As Integer
 
 
n = MsgBox(NombreLigne("F:\DateMiseJour.txt"))
 
 
End Sub
 
' Nombre de lignes d'un fichier
 
Function NombreLigne(Monchemin As String) As Integer
 
Dim Fichier As Object
Dim objet As Object
Dim nbreligne As Integer
 
Set objet = CreateObject("Scripting.FileSystemObject")
Set Fichier = objet.OpenTextFile(Monchemin)
 
nbreligne = 0
Do While Fichier.AtEndOfStream <> True
Fichier.ReadLine
nbreligne = nbreligne + 1
Loop
MsgBox ("nbre lignes est" & nbreligne)
NombreLigne = nbreligne
Fichier.Close
 
End Function

A bientôt.

[clementmarcotte]

Bonjour,

On peut aussi tricher. Puisque FSO a une propriété Line, pour désigner la ligne en cours, il suffit de lui faire croire que l'on veut ajouter des lignes au fichier. Je l'ai fait avec une fonction, mais c'est une affaire de rien de le faire dans une Sub.

Ceci étant dit, je considère que le fichier se termine par un retour de chariot unique, sur une ligne autrement vide. Et le nombre de lignes ne comprend pas la ligne vide, sauf s'il y a plus d'une ligne vide. D'où le -1.

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
25
26
27
Sub OpenTextFileTest()
    Dim UnFichier As String
    Dim Nombre As Integer
   UnFichier = "C:\Users\Clement Marcotte\Documents\voix.txt"
   Nombre = CombienDeLignes(UnFichier)
   MsgBox (Nombre)
End Sub
 
Function CombienDeLignes(UnFichier As String) As Integer
Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(UnFichier, ForAppending)
   Dim Laligne As Integer
   'la propriété Line donne le numéro de ligne
   'où la nouvelle ligne devrait être écrite
   'Mais là on triche et on n'écrit rien.
   Laligne = f.Line
   'Donc en enlevant 1 au numéro de ligne sur laquelle
   '(En fait, ce doit être une "ligne" qui ne contient
   'rien d'autre qu'un retour de chariot'
   'on serait supposé écrire, om obtient la derniàre ligne
   'écrite; sauf s'il y a des retours de chariot intempestifs
      CombienDeLignes = Laligne - 1
   f.Close
 
End Function