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 Function