Discussion :

[la-breche]

voila, je recupere des valeur dans un classeur qui est fermé (cf) pour les inscrire dans un autre classeur (co, celui d'ou j'execute la macro).

Comment puis-je faire pour trouver le nombre de cellule non-vide dans le classeur fermé (cf) ???
Merci.

[SilkyRoad]

bonjour

Si ta feuille est structurée comme une vraie base de données:

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
Dim Rs As ADODB.Recordset
Dim Cn As String, Cible As String, Fichier As String
 
Fichier = "C:\NomClasseur.xls"
 
Cn = "DRIVER={Microsoft Excel Driver (*.xls)};" & _
    "ReadOnly=1;DBQ=" & Fichier
 
Cible = "SELECT * FROM [Feuil1$]"
 
Set Rs = New ADODB.Recordset
Rs.Open Cible, Cn, adOpenStatic, adLockOptimistic, adCmdText
 
If Rs.EOF Then
    MsgBox "Pas d'enregistrement"
    Else
    MsgBox Rs.RecordCount
    Rs.MoveLast
    MsgBox Rs(0).Value
End If
 
Rs.Close
Set Rs = Nothing

http://silkyroad.developpez.com/VBA/ClasseursFermes/


michel