Pbe exécution requete access W8-W10

RodolpheG Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -  
RodolpheG Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour

Je veux lancer une export excel via un bouton suite à l'appel d'une requête access

Sur mon PC W8, cela fonctionne correctement

Sur un PC W10, ca bug dès le début à

AppAccess.DoCmd.OpenQuery "R_Creer_ETP_Agence"

Je ne comprends pas. Pouvez vous m'aider svp

Merci par avance

RG

Mon code : 

Dim objXL As Excel.Application
Dim objWkbk As Workbook
Dim objSht As Worksheet
Dim pt As PivotTable, i As Long
 
Set AppAccess = _
CreateObject("Access.Application")

AppAccess.OpenCurrentDatabase "\\uf51-004.cm-cic.fr\MASSAL\DRHEFF\Modeles\BASE_GENERALE_2022.accdb"
.
AppAccess.DoCmd.OpenQuery "R_Creer_ETP_Agence"


AppAccess.DoCmd.OpenQuery "R_Creer_ETP_Siege"
 
AppAccess.CloseCurrentDatabase
 

3 réponses

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     

    bonjour,

    "ca bug": des précisions?

    0
  2. RodolpheG Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
     

    Debogage sur 

    AppAccess.DoCmd.OpenQuery "R_Creer_ETP_Agence" 

    Elle ne va pas plus loin

    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       

      avec quel message d'erreur?

      0
  3. RodolpheG Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
     

    Bonjour 

    Oui désolé c'est mieux effectivement

    Erreur d'execution '2501' :

    L'action OpenQuey a été annulée

    Aussi quand je vais dans la base Access, j'arrive à lancer cette requete 

    R_Creer_ETP_Agence hors code VBA

    merci

    0