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
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
Dernière édition: