Bonjour,
je cherche à compter le nombre de ligne d'un fichier excel à partir d'un autre fichier excel.
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 Private Sub btn_chargerdonnees_Click() Dim statistiques, s as String Dim l As Integer ' ouvre le fichier statistiques statistiques = "C:\Documents and Settings\aaa\Bureau\" & "Statistiques" & ".xls" Workbooks.Open Filename:=statistiques ' compte le nombre de lignes a copier Windows("Statistiques.xls").Activate l = 2 s = Cells(2, 16).Value Do l = l + 1 s = Cells(l, 16).Value Loop Until s = "" ' ferme le fichier statistiques Windows("Statistiques.xls").Activate ActiveWorkbook.Close End Sub
il y a une erreur quand je compte le nombre de lignes l et je pense que ca vient du fait qu'il lise mal la valeur de s mais je ne sais pas pk.
merci.
Partager