Récup donnee

[Aladin]

Bonjour le forum

Sur un ancien message on m' David57 m' avait donné une fonction pour me permettre de recupere des donnees dans une base Acces, n' ayant pas eu le temp de le mettre en pratique, donc étant plus libre je reviens dessus et j' ai des erreurs de variables non définit.
A partir de la feuille Excel je dois recuperer le nom et le prenom dans la table Access. Quelqu' un peut il m' aider à modifier le code en fonction de ma table et du classeur ?
Merci pour tout aide
Aladin

Ci joint le code
Function Executer_Requete(requete)

On Error GoTo Err_Executer_Requete

'Variables
Dim SGBD As Database, QdfTemp As QueryDef, RstTemp As Recordset
Dim BDDName As String
'Répertoire de l'application
RepApp = Mid(ThisWorkbook.FullName, 1, InStr(1, ThisWorkbook.FullName, ThisWorkbook.Name, 1) - 1)
NomFichier = UCase(Application.ActiveWorkbook.Name)
BDDName = 'base.mdb'

Sheets('Reception').Select
Cells.Select
Selection.Delete

Set SGBD = Workspaces(0).OpenDatabase(RepApp & BDDName)
Set QdfTemp = SGBD.CreateQueryDef('', requete)
Set RstTemp = QdfTemp.OpenRecordset(dbOpenSnapshot)

ndl = Workbooks(NomFichier).Worksheets('Reception').Cells(2, 1).CopyFromRecordset(RstTemp)
nbchamps = QdfTemp.Fields.Count
compteur = 0
For compteur = 0 To (nbchamps - 1)
Workbooks(NomFichier).Worksheets('Reception').Cells(1, 1 + compteur) = QdfTemp.Fields(compteur).Name
Next compteur

QdfTemp.Close
RstTemp.Close
SGBD.Close

Exit Function

'Gestion des erreurs
Err_Executer_Requete:
MsgBox 'Impossible' & Chr(13) & Error$(Err)
Exit Functio

Champ de la feuille Excel
Code_ident - Nom - prenom
Champ de la table Access
5 champs avant ensuite Coode_ident, Nom Prenom
Exemple de Code_Ident = ABIT1020

Désolé mais je n' arrive pas à inserer mes pieces jointes

Aladin