Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
191 internautes nous ont dit merci ce mois-ci
Private Sub Command1_Click() Dim Wnb As Double strpath = "C:\Excel\CGCOUV.txt" Open "C:\Excel\CGCOUV.txt" For Input As #1 Wnb = FileLen(strpath) Debug.Print Int(Wnb / 1024) Debug.Print LOF(1) End Sub