VBScript ACCESS

Question

Salut, j'ai une petite application VBScript qui appelle des requêtes dans ACCESS ca fonctionne parfaitement.

Jai une connection:

MyBaseLog = "\chemin\maBD.mdb"
Set conn1 = Wscript.CreateObject("ADODB.Connection")
  If (oFSO.FileExists("chemin\maBD.mdb")) Then
  wscript.echo "FileExist"
With conn1
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .ConnectionString = "data source=" & MyBaseLog
 	  .Open
End With ()
Et mon recordset:
Set rsLogs = CreateObject("ADODB.Recordset")  
sql = "SELECT * FROM [Rapport - Liste des postes échappés]"  'Nom de la requete
rsLogs.Open sql, conn, adOpenKeyset, adLockOptimistic

J'essai d'appeler une Macro dans access... je ne peux pas l'appeler comme une requete ca ne fonctionne pas...
merci 

Eleonore

cs_wape · Answer

Essaye qqch du genre :

'Lancer une instance Access
Set oAcApp = WScript.CreateObject("Access.Application")

'Ouvrir la base de données
oAcApp.OpenCurrentDatabase "C:\MaBase.mdb"

'Exécuter la macro
oAcApp.DoCmd.RunMacro "MaMacro"

'Fermer la base de données
oAcApp.CloseCurrentDatabase

'Libérer les ressources
Set oAcApp = Nothing

@+

wape

VBScript ACCESS

1 réponse

Discussions similaires