merci pour ta réponce mais j'ai déja essayé avec un OpenReport mais cela ne fonctionne pas car ma base est déja ouverte et je ne doit pas la réouvrir avec OpenCurrentDatabase. ce message d'erreur s'affiche: "La méthode 'OpenCurrentDatabase' de l'objet '_Application' a échoué"et si j'enlève la ligne j'obtien ce message : "La méthode 'OpenReport' de l'objet 'DoCmd' a échoué" pour que cela fonctionne je doit ouvrir ma basse manuellement
je préfère utilisé
Dim wrkSpace As Workspace
Dim dbBase As Database
Dim ctrSet As Recordset
Set wrkSpace = CreateWorkspace("", szUser, szPass, dbUseODBC)
Set dbBase = wrkSpace.OpenDatabase(szODBC, dbDriverNoPrompt, False, "ODBC;DSN=" & szODBC & ";UID=" & szUser & ";PWD=" & szPass & ";")
Set ctrSet = dbBase.OpenRecordset(szRequete, dbOpenForwardOnly)
strEnv.szODBC = ReadProfile("CONNEXION", "ODBC", "")
est que quelqu'un aurai une idée?
merci