Recordset sur fichier Excel avec office 2010

Bonjour, le code ci joint marche avec Excel 2003

   ChDir ActiveWorkbook.Path
    Dim rs As ADODB.Recordset
    Set cnn = New ADODB.Connection
    cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & _
    ThisWorkbook.Path & "\" & "donnees.xls"

    Set rs = cnn.Execute("SELECT Projet FROM liste_projet where Projet <>''")
    Sheets("donn").Range("L2:L65536").ClearContents
    Sheets("donn").Range("L2").CopyFromRecordset rs
    cnn.Close

Comment faire en sorte qu'il fonctionne avec office 2010 ? Merci d'avance

Bonjour,

Aller dans VBE, Outils/Références et activer les librairies Microsoft

En tout cas ça se passe ici.