Ouverture ACCESS depuis EXCEL.

Version imprimable

18/07/2022, 17h33
darphil

Ouverture ACCESS depuis EXCEL.

Bonjour,

Je voudrais pouvoir lancer une procédure ACCESS depuis EXCEL.

Si ACCESS n’est pas ouvert l’ouvrir et lancer la procédure.
Si ACCESS est ouvert le rendre visible et lancer la procédure.

Et inversement lancer une procédure EXCEL depuis ACCES dans les même conditions.

Un grand merci à ceux qui peuvent m’aider ou me mettre sur la bonne voie.

Bonjour,

il y a plusieurs façons de faire, voici une façon de faire
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function getCmdlineOutput(cmd As String) CreateObject("WScript.Shell").Run "cmd /c """ & cmd & "|clip""", 0, True 'output>clipbrd With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .GetFromClipboard getCmdlineOutput = .GetText(1) End With End Function Sub Demo1() 'Sheets(1).Range("A1") = getCmdlineOutput("tasklist") 'retourne tous les process dans A1 Sheets(1).Range("A1") = getCmdlineOutput("tasklist /fo csv") End Sub
il reste à compléter le script pour chercher dans A1, l'occurence "MSACCESS.EXE", rapidement avec l'enregistreur de macro et faire chercher l'occurence, fermer l'enregistreur et récupérer le script pour connaitre la valeur de la méthode find (enregistré par la macro) et modifier le script avec une condition si.

28/07/2022, 12h57
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour,
Il est possible également de lancer directement une requête d'access depuis Excel simplement à l'aide d'une requête POWER QUERY

Pièce jointe 623028
28/07/2022, 20h34
hyperion13

Et pour compléter, un tout en un ici

J'ai essayé de comprendre un peu comment tout ça fonctionne. Et en essayant plein de choses je suis arrivé à ceci.
objACCESS.Visible = True fonctionne avec "CreateObject" et quand je l'utilise avec "GetObject" Access ne se met pas au premier plan.
Je cherche mais soit je ne trouve pas ou je ne comprends pas les subtilités entre les deux.
Merci de votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim objACCESS As Object
Sub SortieVersAcces() '(NumCel As String)
 
Dim numcel As String
Dim Fichier As String
 
    numcel = "1110"
    Fichier = ThisWorkbook.Path & "\Gestion.accdb"
 
    'si fichier est ouvert on l'affecte à objACCESS
    On Error GoTo erreur
    Set objACCESS = GetObject(Fichier).Application
 
'J'ai testé tout ça mais le résultat est le même
'    objACCESS.Parent.Windows(1).Visible = True
'    objACCESS.Application.Visible = True
'    objACCESS.Visible = True
'Shell "access", vbNormalFocus
'objACCESS.Application.Activate
 
    objACCESS.Run "EntreeExcel", numcel
    Set objACCESS = Nothing
    Exit Sub
 
'si fichier n'est pas ouvert on le crée
erreur:
 
    Set objACCESS = CreateObject("Access.Application")
        objACCESS.OpenCurrentDatabase Fichier
'ici ça fonctionne
        objACCESS.Visible = True
        objACCESS.Run "EntreeDeExcel", numcel
        Set objACCESS = Nothing
End Sub

J'ai trouvé ceci qui a l'air de bien fonctionner.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Any) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal Hwnd As Long) As Long
 
Public Sub VersGestionCell(NumCel As String)
    Dim Fichier As String
    Dim objACCESS As New Access.Application 'Object
    Dim Hwnd As Long
 
    Fichier = ThisWorkbook.Path & "\Gestion.accdb"
On Error GoTo ERREUR
    Set objACCESS = GetObject(Fichier).Application
    objACCESS.Run "EntreeDeExcel", NumCel
    Set objACCESS = Nothing
    Hwnd = FindWindow(vbNullString, "Access - Gestion : Base de données- D:\Gestion.accdb (format de fichier Access*2007 - 2013)")
    SetForegroundWindow Hwnd
    Exit Sub
 
ERREUR:
 
    Set objACCESS = CreateObject("Access.Application")
    objACCESS.OpenCurrentDatabase Fichier
    objACCESS.Run "EntreeDeExcel", NumCel
    objACCESS.Visible = True
    Set objACCESS = Nothing
 
End Sub