Discussion :

[dodo28]

Bonjour,

Pouvez vous m'aider, je désirerai exécuter une macro Access de Word,
voici ce que j'ai essaye mais cela ne fonctionne pas

Code :

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

1
2
Application.Run MacroName:="testword"
Access.Run MacroName:="testword"

merci pour votre aide

[Invité]

Bonjour,

Si vous travaillez depuis Word, quel nom avez-vous donné à votre instance Access ?

[dodo28]

Bonjour,

Nivalis v3.accdb est le nom de la base qui contient la procédure "testword"

merci pour votre aide

[Invité]

Je ne parle pas de base.
Pour travailler depuis Word sur Access, il vous faut d'abord créer une instance d'Access. Savez-vous de quoi il s'agit ?

[dodo28]

Desolé non du tout pouvez vous m'expliquer?

[Invité]

Essayez :

Nb : Il vous faut ouvrir votre base après avoir instancié AccApp

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
 
Sub Test()
 
'Dim AccApp As Access.Application ' Il faut, dans ce cas, référencer la DLL Microsoft Access.
 
Dim AccApp As Object
 
    Set AccApp = CreateObject("Access.application")
    With AccApp
         .Visible = True
         ' ouverture de votre base
         .Run "testword"
         '.Quit
    End With
    Set AccApp = Nothing
 
 
End Sub

[dodo28]

cela provoque le bug : erreur 7952 appel de fonction illégal et j'ai bien référencé : Microsoft access

[Invité]

Il vous faut ouvrir votre base de données.

Cela devrait donner cela. Chemin à adapter :

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
 
 
Sub Test()
 
'Dim AccApp As Access.Application ' Il faut, dans ce cas, référencer la DLL Microsoft Access
 
Dim AccApp As Object
 
    Set AccApp = CreateObject("Access.application")
    With AccApp
         .Visible = True
         .OpenCurrentDatabase "C:\XXXXXX\Nivalis v3.accdb.accdb"
         .Run "testword"
      '   .Quit
    End With
    Set AccApp = Nothing
 
 
End Sub