Bonjour à tous,
Voilà après avoir cherché partout, je n'arrive toujours pas à faire ce que je veux à savoir :
J'ai un fichier DONNEES.xls et un fichier ACTION.xls, le fichier DONNEES est fermé, j'utilise ACTION pour lancer un formulaire de saisis.
Le fichier de données est configuré comme ci-dessous :
Code :
- Onglet : "Donnees"
- A B C D
- 1 # NOM PRENOM ADRESSE
- 2
- 3
- [...]
|
J'aimerai via le formulaire en cliquant sur ajouter, lancer la macro me permettant d'ajouter les infos sur la première cellule vide (ici A2, B2, C2, ...)
or quand je lance la macro suivante donc sans l'ajout pour le moment pour tester justement ... ca me renvoi via la Msgbox le chiffre 3997 ... si je met DONNEES$A:A, ca me renvoi la ligne 6 709 ...
En clair j'aimerai trouver le moyen de récupérer la première ligne vide et d'y ajouter tranquillement mes infos ...
Code :
- Dim rs As ADODB.Recordset
- Set cnn = New ADODB.Connection
- repertoire = "C:\Documents and Settings\A206008\Bureau\"
- cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & _
- repertoire & "DONNEESv2.XLS"
- Set rs = cnn.Execute("SELECT count(*) AS nbEnreg FROM [DONNEES$A2:A4000]" )
- NBL = rs("nbEnreg" ) - 1
- rs.Close
- cnn.Close
- MsgBox NBL
- Set rs = Nothing
- Set cnn = Nothing
|
Merci pour votre aide
Cordialement
Cyril
