Exécution macros via batch

Version imprimable

17/01/2012, 11h07
kedmard

Exécution macros via batch

Bonjour,

J'ai crée un fichier .bat me permettant d'ouvrir une macro("Macro_Jour") Access;

Code:

Start /WAIT msaccess.exe "C:\Users\S8Robert\Documents\Mesprojets\BDD.accdb" /x Macro_Jour

Le souci est que cette macro ouvre une requête qui elle même dépend d'une table liée via un ODBC et aussi d'un module VBA contenant une fonction.

J'aimerai donc savoir s'il existe un moyen d' indiquer dans mon script Batch:
- le mot de passe pour l'ouverture les tables liées
-Activer l'option "Activer ce contenu" de l'alerte sécurité Macro VBA.

Pour que l'éxécution de mon batch se fasse sans problème.

Je vous remercie d'avance.
17/01/2012, 16h41
Jean-Philippe André

Hello,

la partie activer le contenu me parait très peu envisageable niveau automatisation.
Pour la partie mdp et compagnie, tu peux effectivement passer les informations depuis ton fichier batch.

Un peu de lecture à ce sujet :)
http://jpcheck.developpez.com/tutori...ge-parametres/
17/01/2012, 16h50
kedmard

Salut,

justement c'est ce tuto qui m'a permi d'écrire mon script par contre je n'y ai pas vu comment spécifier le mot de passe. pourrais -tu m'indiquer?

Merci.
17/01/2012, 16h55
Jean-Philippe André

Le mot de passe reste une chaine de caractères.
Il te faut donc le passer en complement de la macro que tu souhaites exécuter. Tu peux donc te référer au chapitre
http://jpcheck.developpez.com/tutori...tres/#LXII-E-2

Reste à toi de créer la nomenclature adéquate.

Salut, j'ai essayé suivant et au finish ça marche pas (le mot de passe pour la connection à SQL Server est joiedevivre

Code:

Start /WAIT msaccess.exe "C:\Users\S8Robert\Documents\Mesprojets\BDD.accdb" /cmd Macro_Jour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function StartUp( )
Dim monparam as Variant  ' déclare une variable 
Dim Mot_dePass as character 
Mot_dePass="joiedevivre"
 
monparam = Command( )     ' affecte la valeur transmise à la variable
 
	If Not IsNull(monparam) Then 	'si la variable est nulle
		If Len(monparam)>0 Then 	'on s'assure qu'un paramètre a été passé, sinon pas de comportement particulier
		RecuperationSplit = Split(monparam,Mot_dePass)
 
                   DoCmd.RunMacro monparam
		End If
	End If				
End Function

18/01/2012, 09h54
Jean-Philippe André
Hello,

plusieurs petites choses :
- le mot de passe doit non pas etre stocke dans le code VBA mais le passage du parametre batch

Code:

Start /WAIT msaccess.exe "C:\Users\S8Robert\Documents\Mesprojets\BDD.accdb" /cmd "Macro_Jour|joiedevivre"

une fois ce parametre envoyé, il faut le lire convenablement dans le code VBA.
Code:

1 2 Dim Mot_dePass as character 'il faut un String et non character Mot_dePass="joiedevivre"
disparaissant du code
- la fonction split sert a decomposer sous forme de tableau un ensemble de donnees séparées par une valeur précise (dans mon cas le caractère "pipe" (alt gras + 6 = |)

Code:

RecuperationSplit = Split(monparam,"|")

J'ai apporté toutes ces modifications et en exécutant le batch j'obtiens:

Erreur '2485'

Microsoft access ne paut pas trouver l'objet <<Macro_Hebdo| >>

J'ai voulu ouvrir une macro dont la connection à sql server est " " le vide (car en fait la majorité des tables liées ont pour mot de pass ce vide ).

Code:

start /WAIT msaccess.exe "C:\Users\S0085374\Documents\Mesprojets\BDD_ITCE_CAISSE.accdb" /cmd "Macro_Hebdo|" ""
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function StartUp() Dim monparam As Variant ' déclare une variable Dim Motdepass As String Motdepass = " " monparam = Command() ' affecte la valeur transmise à la variable If Not IsNull(monparam) Then 'si la variable est nulle If Len(monparam) > 0 Then 'on s'assure qu'un paramètre a été passé, sinon pas de comportement particulier RecuperationSplit = Split(monparam, "|") DoCmd.RunMacro monparam End If End If End Function

Attention,

je n'avais pas tout donné d'un coup :oops:

-la chaine de caractères vide est "" et non pas " "

une fois le caractère | détecté dans la chaine de caractères, il faut utiliser les deux infos :)

Code:

1
2
3
4
5
6
7
8
9
10
11
Function StartUp()
Dim monparam As Variant  ' déclare une variable
monparam = Command()      ' affecte la valeur transmise à la variable
 
    If Not IsNull(monparam) Then    'si la variable est nulle
        If Len(monparam) > 0 Then   'on s'assure qu'un paramètre a été passé, sinon pas de comportement particulier
            RecuperationSplit = Split(monparam, "|")
            DoCmd.RunMacro RecuperationSplit(0), RecuperationSplit (1) 
        End If
    End If
End Function

J'ai erreur '2498'

Le type d'un expression entrée pour un des arguments est incorrect

Code:

start /WAIT msaccess.exe "C:\Users\S0085374\Documents\Mesprojets\BDD_ITCE_CAISSE.accdb" /cmd "Macro_Jour|"" "

Code:

1
2
3
4
5
6
7
8
9
10
11
Function StartUp()
Dim monparam As Variant  ' déclare une variable
monparam = Command()      ' affecte la valeur transmise à la variable
 
    If Not IsNull(monparam) Then    'si la variable est nulle
        If Len(monparam) > 0 Then   'on s'assure qu'un paramètre a été passé, sinon pas de comportement particulier
            RecuperationSplit = Split(monparam, "|")
            DoCmd.RunMacro RecuperationSplit(0), RecuperationSplit(1)
        End If
    End If
End Function

18/01/2012, 11h37
Jean-Philippe André

a quelle ligne as-tu cette erreur ?

La ligne batch est a corriger aussi :

Code:

start /WAIT msaccess.exe "C:\Users\S0085374\Documents\Mesprojets\BDD_ITCE_CAISSE.accdb" /cmd "Macro_Jour|"
18/01/2012, 11h48
kedmard

J'ai corrigé le batch et j'ai toujours une erreur au niveau la ligne suivante:

Code:

DoCmd.RunMacro RecuperationSplit(0), RecuperationSplit(1)
20/01/2012, 10h07
Jean-Philippe André

Hello,

s'il s'agit de mot de passe au niveau des tables utilisées dans la macro, tu peux regarder comment utiliser le code issu de la :faq:
http://access.developpez.com/faq/?pa...kTablePassword

Concernant l'erreur, c'est moi qui l'ai initiée en croyant que la fonction RunMacro prenait ces 2 paramètres, ce qui n'est pas le cas :oops:

Il faudra donc passer par le code d'activation des tables liées avec le mot de passe avant de lancer la macro en consequence :)

Est-ce clair pour toi ?? :ccool:
20/01/2012, 14h11
kedmard

Salut, jpcheck

J'ai bein examiné le code VBA de la FAQ, je t'apporte cependant les précisions ci-après
Ma base de données access n'est pas protégée par un mot de Pass c'est plutôt la table qu'elle contient(table déjà liée à Access qu'on va nommer Check) qui appartient à une source de données ODBC dont la connection à SQL Server nécéssite un mot de passe (qu'on va nommer bien).

Avec la table Check j'ai fait plusieurs requêtes et macros, je ne peux donc ouvrir ces requêtes ou ces macros sans avoir au préalable rentrer le mot de pass
bien.

Mon problème n'est plus de lier Check à ma BDD access mais :
-d'activer automiquement la connection de ma source de données ODBC à sql server
-Lancer une de mes macros via un batch.

Or d'après ce que je comprends, le code de la FAQ liera Check à ma BDD access, ce qui est déjà fait.

Je te remercie par avance et espère t'avoir apporté plus de précisions
20/01/2012, 14h41
Jean-Philippe André

Et le fait de stocker le mot de passe lors de la liaison n'est pas envisageable ?
20/01/2012, 20h21
kedmard

Pourrais-tu être plus explicite?
21/01/2012, 15h27
Jean-Philippe André

dans la chaine de connection de ta table, tu peux stocker le mot de passe par VBA. Si le mdp est stockée, pas besoin de le redonner au début :)
23/01/2012, 09h52
kedmard

Bonjour jpcheck,
désolé pour cette réponse tardive ;) . Je ne vois pas comment stocker le mot de passe par VBA dans la chaine de connection comme tu le dis.