Discussion :

[Nestea]

Bonjour à tous!

je veux executer une macro depuis excel qui va faire des actions dans Access
Elle marche tres bien lorsque la base de données Access est deja ouverte
mais lorsqu elle est fermée ça renvoi un message d erreur

"L'action RunSql a été annulée"

Je précise que cette macro fonctionne bien avec Access ouvert.

J'ai l impression d'avoir loupé quelque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
et acApp = New Access.Application
 acApp.OpenCurrentDatabase ("C:\Mabase.accdb")

L'autre partie du code en question qui ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
StrSql = "INSERT INTO [" & Nom_Tbl1 & "] (Champ1, Champ2, Champ3, Champ4, Champ5, Champ6, Champ7, Champ8, Champ9, Champ10)"
    StrSql = StrSql & " SELECT F1, F2, F3, F4, F5, F6, F7, F8, F9, F10"
    StrSql = StrSql & " FROM Import"
    StrSql = StrSql & " WHERE Import.F2='toto'"
    DoCmd.RunSQL StrSql, 0

J'aimerai savoir ce qui diffère entre une base ouverte automatiquement d'une base ouverte manuellement pour rajouter cela dans mon code!
merci!

[nico84]

Bonjour,

Voici mon code de connexion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim wrk As DAO.WorkSpace, db As DAO.Database
100 Set wrk = DBEngine.Workspaces(0)
102 Set db = wrk.OpenDatabase("c:\planet\mabase.mdb", False, False, "MS Access;PWD=xxx")

Il doit te manquer le "workspace"

[Nestea]

Bonjour Nico,

Merci pour ta réponse!

Lorsque je rajoute ton bout de code au mien j'ai une erreur d'execution 3343, format de base de données non reconnu.
Est ce que ça te parle?

L'erreur se situe à ce niveau là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

102 Set db = wrk.OpenDatabase("C:\Mabase.mdb", False, False, "MS Access;PWD=xxx")

Merci

[User]

Bonjour à tous,

Ton format c'est accdb et non mdb ?

[Nestea]

j'ai essayé avec les deux formats mais aucun ne fonctionne!