Discussion :

[bybelos33]

Je sais que la question doit être traitée partout sur le net mais je souhaite avoir un lien vers un site explicite et en français si possible d'autant que je souhaite passer 2 paramètres d'excel vers access pour qu'il réalise sa macro.

Merci

[Maxence HUBICHE]

C'est une macro "Macro" ou c'est une macro "Module" ?
Elle est écrite en VBA ta macro ?

[bybelos33]

aujourd'hui je lance une macro qui lance une macro dans un module. Mais si je peux faire simple.....je suis preneur.

[bybelos33]

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 BomFromMovex()
 
'définition des variables
Dim canal As Integer
Dim myprod As String
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''On appelle Access''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
canal = DDEInitiate("MSACCESS", myDir & "Nomenclature.mdb")
 
DDEExecute canal, "[RunMacro Bom]"
DDETerminate canal
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
End Sub

[Michel_M]

Bonjour à tous,

essaies cette proc( n'oublies pas de cocher la ref dans VBE outils-références)

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 ouvrir_access()
' la référence Microsoft Access X;x Object Library doit être cochée
 
Dim appli_acces As Access.Application
 
Set appli_acces = New Access.Application
 
' tu ouvres ta base
appli_acces.OpenCurrentDatabase ("C:\documents and settings\bd1.mdb")
'si tu veux voir la base
appli_acces.Visible = True
 
'….ton code
 
'tu quittes access
appli_acces.Quit
Set appli_acces = Nothing
End Sub

en espèrant que...

[bybelos33]

Maintenant je souhaiterai transférer une données d'Excel vers Access....

Une variable public ne suffit pas.

Merci Michel

Dans le même fichier excel je lance plusieurs fois la même routine et la deuxième fois il me met une erreur d'exécution '462', le serveur distant n'est pas disponible....

En fait j'ouvre la base au début, je fais plusieurs fois mes routines et je ne la ferme qu'à la fin.