Discussion :

[JIM77420]

Bonjour,

Je passe d'Office 2003 à 2010 et je dois convertir des traitements VBA.

En particuler, je lance des exécutions de macro, par le biais d'une fonction, sur une base distante par les commandes suivantes en VBA 2003 :

Variables Globales :
chem : chemin complet de la base distante
macro : nom de la macro préfixé avec "macro"
param : paramêtre en entrée

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
18
19
20
21
22
Function lancer_access()
 Set MonAccess = CreateObject("Access.Application")
 MonAccess.OpenCurrentDatabase chem
 nb = Len(macro)
 If Mid(macro, 1, 5) = "macro" Then
   jj = Mid(macro, 6, nb)
   Exec = MonAccess.Run("lancer_macro", jj) 'Instruction qui pose problème en 2010
   While Exec <> 1 
     creer_fichier_test (jj)
     pause 20
   Wend
 Else
   If param = "xx" Then
   Exec = MonAccess.Run(macro)
   Else
     MonAccess.Run macro, param
   End If
 End If
 pause 60
 MonAccess.Quit acQuitSaveNone
 Set MonAccess = Nothing
 End Function

J'ai cherché sur internet une solution à ce problème, mais je n'en ai pas trouvé qui corresponde exactement !

Est-ce que l'on peut faire la même chose en VBA 2010 : Lancement d'une fonction sur une base distante et récupération d'un paramêtre pour la gestion d'erreur ?

Merci pour toute l'attention que vous m'accorderez et l'aide que vous pourrez m'apporter.

[JIM77420]

Bonjour,

Le changement de version de Windows a introduit un changement de l'environnement et en particulier les chemins des bases de travail.

Dans la macro lancée dans la base distante, une table liée utilisée dans une requête simple, par oubli, n'avait pas été mise à jour.

Et donc l'appel de cette macro ne fonctionnait pas sans plus d'explication !

Une fois corrigée, la requête et donc l'appel de la macro distante ont fonctionné sans problème.

Le problème est résolu.