j'ai créé des formulaires sous Access et je veux les lancer depuis le menu
excel que j'ai créé et qui apparait dans la barre des tâches (fichier,
edition, ..., Mon menu)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
PMO
Bonjour,
Voici peut-être une solution avec le code suivant. Il faudra adapter les constantes à votre usage Const myPathBDD As String = "votrechemin" Const myForm As String = "votreformulaire"
'************************** '### IMPERATIF POUR LE BON FONCTIONNEMENT ### '### Dans le menu Outils/Références cocher ### '### Microsoft Access x.0 Object Library ### Option Explicit '### CONSTANTES A ADAPTER #### '---- Le chemin de votre BDD Access ---- Const myPathBDD As String = "c:essai.mdb" '---- Le nom du formulaire à afficher ---- Const myForm As String = "frmToto"
Sub OpenFormAccess() Dim myAccess As Access.Application Set myAccess = CreateObject _ (Class:="Access.Application", servername:="") With myAccess .OpenCurrentDatabase myPathBDD .DoCmd.OpenForm myForm, acNormal, , , _ acFormEdit, acDialog End With myAccess.Quit Set myAccess = Nothing End Sub '**************************
Est-que ça fonctionne chez vous ?
Cordialement.
PMO Patrick Morange
Bonjour,
j'ai créé des formulaires sous Access et je veux les lancer depuis le menu excel que j'ai créé et qui apparait dans la barre des tâches (fichier, edition, ..., Mon menu)
Comment je peux faire ça?
merci !
Bonjour,
Voici peut-être une solution avec le code suivant.
Il faudra adapter les constantes à votre usage
Const myPathBDD As String = "votrechemin"
Const myForm As String = "votreformulaire"
'**************************
'### IMPERATIF POUR LE BON FONCTIONNEMENT ###
'### Dans le menu Outils/Références cocher ###
'### Microsoft Access x.0 Object Library ###
Option Explicit
'### CONSTANTES A ADAPTER ####
'---- Le chemin de votre BDD Access ----
Const myPathBDD As String = "c:essai.mdb"
'---- Le nom du formulaire à afficher ----
Const myForm As String = "frmToto"
Sub OpenFormAccess()
Dim myAccess As Access.Application
Set myAccess = CreateObject _
(Class:="Access.Application", servername:="")
With myAccess
.OpenCurrentDatabase myPathBDD
.DoCmd.OpenForm myForm, acNormal, , , _
acFormEdit, acDialog
End With
myAccess.Quit
Set myAccess = Nothing
End Sub
'**************************
Est-que ça fonctionne chez vous ?
Cordialement.
PMO
Patrick Morange
Bonjour,
j'ai créé des formulaires sous Access et je veux les lancer depuis le menu
excel que j'ai créé et qui apparait dans la barre des tâches (fichier,
edition, ..., Mon menu)
Voici peut-être une solution avec le code suivant. Il faudra adapter les constantes à votre usage Const myPathBDD As String = "votrechemin" Const myForm As String = "votreformulaire"
'************************** '### IMPERATIF POUR LE BON FONCTIONNEMENT ### '### Dans le menu Outils/Références cocher ### '### Microsoft Access x.0 Object Library ### Option Explicit '### CONSTANTES A ADAPTER #### '---- Le chemin de votre BDD Access ---- Const myPathBDD As String = "c:essai.mdb" '---- Le nom du formulaire à afficher ---- Const myForm As String = "frmToto"
Sub OpenFormAccess() Dim myAccess As Access.Application Set myAccess = CreateObject _ (Class:="Access.Application", servername:="") With myAccess .OpenCurrentDatabase myPathBDD .DoCmd.OpenForm myForm, acNormal, , , _ acFormEdit, acDialog End With myAccess.Quit Set myAccess = Nothing End Sub '**************************
Est-que ça fonctionne chez vous ?
Cordialement.
PMO Patrick Morange
Bonjour,
j'ai créé des formulaires sous Access et je veux les lancer depuis le menu excel que j'ai créé et qui apparait dans la barre des tâches (fichier, edition, ..., Mon menu)