Discussion :

[Katatonia]

Bonjour,
je souhaite pouvoir éxécuter une reqête Access déjà écrite dans la bdd mais depuis excel (depuis un bouton form). Auparavant je fesait tout depuis un form sous access avec le code suivant:

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
 
Private Sub CommandCreateAPFFilesEtape2_Click()
On Error GoTo Err_CommandCreateAPFFilesEtape2_Click
 
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "reqDeleteDataOnTblLinkPartI2Version"
    DoCmd.OpenQuery "reqMakeLienEntrePartI2EtVersionDuPart"
    DoCmd.SetWarnings True
    MsgBox "Lien entre la part I2 et la version du part effectuée"
 
Exit_CommandCreateAPFFilesEtape2_Click:
    Exit Sub
 
Err_CommandCreateAPFFilesEtape2_Click:
    MsgBox Err.Description
    Resume Exit_CommandCreateAPFFilesEtape2_Click
End Sub

Ce que je souhaiterais c'est savoir si il existe l'équivalent du "OpenQuery" sous vba depuis excel car je ne me vois pas faire un copier coller des centaines de requêtes déjà écrites sur la bdd dans une macro excel

[Katatonia]

Trouver hier soir avant de quitter le boulot:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim Db As DAO.Database
Dim Q As QueryDef
 
Set Db = DAO.OpenDatabase(srcPathBdd & "nameBdd.mdb", False, False)
 
Set Q = Db.QueryDefs("nameRequete")
Db.Execute Q.Sql

Perdre autant de temps là-dessus