Discussion :

[RG_61]

Bonjour

Je veux lancer un 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 à

Erreur d'execution '2501' :

L'action OpenQuey a été annulée

AppAccess.DoCmd.OpenQuery "R_Creer_ETP_Agence"

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

R_Creer_ETP_Agence hors code VBA
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

[umfred]

VBA dépend de la version d'office (en plus de la différence 32bits/64bits) et pas de la version du système d'exploitation.
Il faut aussi penser à quitter Access à la fin de ton code => AppAccess.Quit acQuitSaveNone si pas besoin de garder Access ouvert.

[RG_61]

VBA dépend de la version d'office (en plus de la différence 32bits/64bits) et pas de la version du système d'exploitation.
Il faut aussi penser à quitter Access à la fin de ton code => AppAccess.Quit acQuitSaveNone si pas besoin de garder Access ouvert.

Merci de ta réponse
Bonne journée