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
papou
Bonjour Mimi Voici un exemple ci-dessous à adapter selon tes besoins Dans VBA, il faut ajouter une référence à Microsoft Access n.0 Object Library (où n correspond à ta version Office) : Outils, Références et cocher la ligne qui va bien Cet exemple ouvre une base de données "DonneesNew.mdb" et ouvre le formulaire "Mon Formulaire" Cordialement Pascal
Sub testAcc() Dim ObjAcc As Access.Application Set ObjAcc = CreateObject("Access.Application") ObjAcc.OpenCurrentDatabase "D:Mes DocumentsPascalOfficeAccessDonneesNew.mdb" ObjAcc.UserControl = True AppActivate "Microsoft Access" ObjAcc.DoCmd.OpenForm "Mon Formulaire", acNormal Set ObjAcc = Nothing End Sub
"Mimi" a écrit dans le message de news:239801c3af57$4d2df960$
Bonjour!
Je voudrai ouvrir un fichier Access (existant) avec un programme VB d'un classeur Excel. Merci de bien vouloir me donner un coup de main!
Bonjour Mimi
Voici un exemple ci-dessous à adapter selon tes besoins
Dans VBA, il faut ajouter une référence à Microsoft Access n.0 Object
Library (où n correspond à ta version Office) :
Outils, Références et cocher la ligne qui va bien
Cet exemple ouvre une base de données "DonneesNew.mdb" et ouvre le
formulaire "Mon Formulaire"
Cordialement
Pascal
Sub testAcc()
Dim ObjAcc As Access.Application
Set ObjAcc = CreateObject("Access.Application")
ObjAcc.OpenCurrentDatabase "D:Mes
DocumentsPascalOfficeAccessDonneesNew.mdb"
ObjAcc.UserControl = True
AppActivate "Microsoft Access"
ObjAcc.DoCmd.OpenForm "Mon Formulaire", acNormal
Set ObjAcc = Nothing
End Sub
"Mimi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:239801c3af57$4d2df960$a601280a@phx.gbl...
Bonjour!
Je voudrai ouvrir un fichier Access (existant) avec un
programme VB d'un classeur Excel.
Merci de bien vouloir me donner un coup de main!
Bonjour Mimi Voici un exemple ci-dessous à adapter selon tes besoins Dans VBA, il faut ajouter une référence à Microsoft Access n.0 Object Library (où n correspond à ta version Office) : Outils, Références et cocher la ligne qui va bien Cet exemple ouvre une base de données "DonneesNew.mdb" et ouvre le formulaire "Mon Formulaire" Cordialement Pascal
Sub testAcc() Dim ObjAcc As Access.Application Set ObjAcc = CreateObject("Access.Application") ObjAcc.OpenCurrentDatabase "D:Mes DocumentsPascalOfficeAccessDonneesNew.mdb" ObjAcc.UserControl = True AppActivate "Microsoft Access" ObjAcc.DoCmd.OpenForm "Mon Formulaire", acNormal Set ObjAcc = Nothing End Sub
"Mimi" a écrit dans le message de news:239801c3af57$4d2df960$
Bonjour!
Je voudrai ouvrir un fichier Access (existant) avec un programme VB d'un classeur Excel. Merci de bien vouloir me donner un coup de main!
