Discussion :

[jarault]

Lorsque j'essaye de faire fonctionner cette macro:

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
Sub ouvrirformulaire()
 
Dim acApp2 As New Access.Application
'demarrer access
Set acApp2 = New Access.Application
 
'ouvrir la base
acApp2.OpenCurrentDatabase ("K:\CADRAN\Stocks.mdb")
 
'executer le formulaire dans d'access
acApp2.DoCmd.OpenForm "Achats_Finalise_Form"
baseAcces.Visible = True
acApp2.Quit
Set acApp2 = Nothing
End Sub

J'ai le message d'erreur suivant "Type défini par l'utilisateur non Défini".
Après quelques recherches j'ai trouvé qui fallait activer "Microsoft DAO 3.x Object library." Pour autant j'ai toujours le message d'erreur.
Des idées sur la source de mon problème ?
Jarault

[AlainTech]

Tu n'essayerais pas d'activer Microsoft Access x.xx Object Library?

[jarault]

Tu n'essayerais pas d'activer Microsoft Access x.xx Object Library?

Je l'ai activé dans Excel, c'est dans Access qu'il faut le faire ?
Il est aussi activé sous Access.
Jarault

[ucfoutu]

Bonjour,

Je verrais les choses plutôt de cette manière (à adapter)

Code :

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

1
2
3
4
5
6
7
8
Sub ExécuterMacroAccess()
 Dim acApp2  As New Access.Application
 'ouvrir la base
 acApp2 .OpenCurrentDatabase "K:\CADRAN\Stocks.mdb"
 DoCmd.RunMacro "ici_ta_macro_access" 
 acApp2 .Quit
 Set acApp2  = Nothing
End Sub

[jarault]

En fait à l'origine je me suis inspiré de cette macro:

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
23
Sub Incorporer_Dans_Access_SaintPol()
Dim acApp As New Access.Application
 
' Démarrer Access
Set acApp = New Access.Application
 
' Ouvrir la base de données concernée
acApp.OpenCurrentDatabase ("K:\CADRAN\Stocks.mdb")
 
' Exécuter la macro
acApp.DoCmd.RunMacro "ImportationAchatsSaintPol"
 
' Quitter Access
acApp.Quit
Set acApp = Nothing
 
'Actualise les achats
Application.Run "Importer_Achats"
 
'Confirme l'intégration dans access des achats de Saint Pol
MsgBox "Les achats de Saint Pol ont été incorporés"
 
End Sub

J'ai ensuite voulu utiliser un exemple du site :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ouvrirMacro()
Dim baseAccess As New Access.Application
 
'demarrer access
Set baseAcces = New Access.Application
 
'ouvrir la base
baseAccess.OpenCurrentDatabase "C:\....\Gestion magasin v3.mdb"
 
'executer la maccro dans d'access
baseAccess.DoCmd.OpenForm "Formulaire2"
 baseAcces.Visible = True
End Sub

Sachant que là je n'essaye plus de lancer une macro Access mais d'ouvrir un formulaire Access et je ne comprends pas pourquoi j'ai ce message d'erreur.

Jarault

[AlainTech]

Et tu ne nous dirais pas sur quelle ligne, le message?

Sans cette info, on ne peut qu'essayer de deviner.

[jarault]

Et tu ne nous dirais pas sur quelle ligne, le message?

Sans cette info, on ne peut qu'essayer de deviner.

Excel me surligne la première ligne

Code :

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

Dim acApp2 As New Access.Application

Par contre ce que je ne comprends pas pourquoi lorsque j'utilise ce code dans mon autre application il ne me met pas de message d'erreur.
Pensez-vous qu'il est possible de n'afficher que le formulaire sans access ?