Bonjour,

Je reviens vers vous car il m'arrive un petit soucis avec une fonction de suppression de requête. Je me sers de cette fonction à la suite d'un export vers excel d'un résultat de requête contenu dans ma listbox "lstResults".
L'export est fonctionnel comme je le souhaite mais pas la suppression de la requête qui me renvoie le message d'erreur: "La requête n'existe pas"

Fonction d'export:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub btnExport_Click()
    Dim SQL As String
    Dim NomQDF As String
 
    SQL = Me.lstResults.RowSource
 
    'Faites ici tous vos tests pour vous assurer d'un nom valide pour la requête à créer :
    NomQDF = InputBox("Entrer un nom pour la recherche en cours:")
    If NomQDF = "" Then
    MsgBox "Vous n'avez pas indiqué de nom valide pour la requête."
    Exit Sub
    End If
 
    'Création de la requête
    CurrentDb.CreateQueryDef NomQDF, SQL
 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, NomQDF, "C:\TMP\toto.xls"
 
    Call suppRequete
End Sub
Fonction de suppression:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Function suppRequete()
'Gestion d'erreur
On Error GoTo err
 
    Dim NomQDF As String
    Dim oDb As DAO.Database
    Dim oQdf  As DAO.QueryDef
    Dim strReqName As String 'Nom de la requête à supprimer
 
 
    'Accède à la base de données courante
    Set oDb = CurrentDb
 
    strReqName = "& NomQDF"
 
    'Tente la suppression
    oDb.QueryDefs.Delete strReqName
    'Affiche un message
    MsgBox "La requête " & strReqName & " a été supprimée"
 
 
fin:
    'Libère l'objet oDb
    Set oDb = Nothing
    Exit Function
 
err:
    'Affiche un message suivant l'erreur
    Select Case err.Number
        Case 3265: MsgBox "La requête n'existe pas"
        Case Else: MsgBox "Erreur critique inconnue"
    End Select
    'Termine le programme
    Resume fin
 
End Function
Je ne vois absolument pas ce qui peut poser soucis

Merci par avance pour votre aide