Pbe exécution requete access W8-W10

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