Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel demarrer Acces depuis Excel

demarrer Acces depuis Excel

1 réponse
Avatar
Esperanza
Je dois démarrer Acces juste avant de sortir d'Excel
J'ai eu beau essayer le code suivant, ça ne fonctionne pas.

Merci d'avance de votre aide !!

Esperanza
'----------------------------------------------------

Dim MonObjet As Object


'Attribue l'objet à une variable
Set MonObjet = CreateObject("Access.application")
MonObjet.Visible = True
MonObjet.Open ("G:\SDF\Fournisseurs\FournisseurW2k.mdb")
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
RAMA
Buenas noches
par exemple:

Sub AbreAccess()
Dim zz
yypath = ThisWorkbook.Path 'sinon le chemin relatif
zz = (Application.Path)
Nodeact = 1
If retval > 0 Then
Application.ActivateMicrosoftApp xlMicrosoftAccess
Else
retval = Shell(zz & "msaccess.exe " & yypath & "" _
& Range("accBase"), vbMaximizedFocus)
retval = 0
End If
End Sub
A+

-----Message d'origine-----
Je dois démarrer Acces juste avant de sortir d'Excel
J'ai eu beau essayer le code suivant, ça ne fonctionne
pas.


Merci d'avance de votre aide !!

Esperanza
'----------------------------------------------------

Dim MonObjet As Object


'Attribue l'objet à une variable
Set MonObjet = CreateObject("Access.application")
MonObjet.Visible = True
MonObjet.Open ("G:SDFFournisseursFournisseurW2k.mdb")



.