Bonjour à tous , le forum
j'ai récupérer le code suivant qui me permet de compter le nombre de ligne d'un fichier Txt. Il marche très bien lorsque je mets le chemin du fichier à traiter en "dur"
Pour ma part, les chemins de tous mes fichiers à traiter se trouvent dans une colonne (3) et je souhaite faire une boucle. J'essaie donc de modifier le code existant comme suit mais ca ne fonctionne pas.
J'ai un message d'erreur "chemin d'accès introuvable" sur la ligne Open CheminFichier For Input As intFic.
je pense m'approcher de la vérité mais je ne la trouve pas. Quelqu'un pourrait-il avoir la gentillesse de corriger mon nouveau code ou me mettre sur la piste de la résolution.
D'avance merci à tous et bon après midi
Scoobidoo
j'ai récupérer le code suivant qui me permet de compter le nombre de ligne d'un fichier Txt. Il marche très bien lorsque je mets le chemin du fichier à traiter en "dur"
Code:
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
Pour ma part, les chemins de tous mes fichiers à traiter se trouvent dans une colonne (3) et je souhaite faire une boucle. J'essaie donc de modifier le code existant comme suit mais ca ne fonctionne pas.
Code:
Sub CompteLigne()
Dim NbLigne As Long
Dim intFic As Integer
Dim strLigne As String
Dim MaLigneExcel As Long
Dim CheminFichier As String
MaLigneExcel = 2
intFic = FreeFile
Do While Cells(MaLigneExcel, 3) <> ""
CheminFichier = Cells(MaLigneExcel, 3)
Open CheminFichier For Input As intFic
While Not EOF(intFic)
Line Input #intFic, strLigne
NbLigne = NbLigne + 1
Wend
Close intFic
Cells(MaLigneExcel, 4) = NbLigne
MaLigneExcel = MaLigneExcel + 1
Loop
End
J'ai un message d'erreur "chemin d'accès introuvable" sur la ligne Open CheminFichier For Input As intFic.
je pense m'approcher de la vérité mais je ne la trouve pas. Quelqu'un pourrait-il avoir la gentillesse de corriger mon nouveau code ou me mettre sur la piste de la résolution.
D'avance merci à tous et bon après midi
Scoobidoo