[michel_m]

Bonjour à Tous,


Michel:

Dans la démo ci dessus tu affectes la connection XL par un string

'DRIVER={Microsoft Excel Driver (*.xls)};' & _
'ReadOnly=1;DBQ=' & Fichier & ';' & _
'extended properties=''Excel 8.0;'''

ligne que je ne connais pas; il semble que l'on se passe du moteur jet qui va disparaitre (fil de Thierry il y a quelque temps) ? peux tu m'en dire + là dessus ou m'indiquer un lien ?
autre choseavec 'driver': ne faut il pas activer une bibliothèque supplémentaire?


Modus,

Sans vouloir empiéter sur la Démo de MichelXLd:

si tu emploies la proc avec 'jet' que tu proposes, tu remplaces sous la ligne 'LIGNE MODIFIEE' les instructions par celles écrites plus tôt par MIchel

If Not Rs.EOF Then
'récupère la derniere donnee du 1er champ ( colonne A )
Rs.Move (Rs.RecordCount - 1)
MsgBox Rs.Fields(0).Value
End If
Rs.Close
Set Rs = Nothing

en remplacant Rs par ADOrecordset

A+
Michel