VBA Access et Lotus Note

Bonjour à tous,
grâce a mes recherches glanées ici sur developpez.com j'ai réussi à trouver le code qu'il me manquait afin de piloter mon envoie de mail par lotus en VBA.
Mais voila, je n'arrive pas a trouver la solution ou bien ne serait ce qu'un morceau de code me permettant de vérifier si à l'ouverture de mon programme Access Lotus Note est bien ouvert.
Si quelqu'un aurait un peu d'aide a me procurer je l'en remercie d'avance.

PS: j'ai bien essayé de rechercher ce bout de code sur le forum ou la FAQ mais je n'ai pas trouvé merci.

Bonsoir,


Une première idée à explorer: utiliser l'API GetObject qui génère une erreur si l'objet n'existe pas.

Dans le même esprit, pour voir si Excel est ouvert

Code:

---

1 2 3 4 5 6 7 8

Function ExcelOuvert() As Boolean Dim oXl As Object   On Error Resume Next Set oXl = GetObject(, "Excel.Application") ExcelOuvert= (Err.Number = 0) Set oXl = Nothing End Function

---

Sinon, une autre piste ... un peu plus hasardeuse je pense car elle s'appuie sur le nom de la fenêtre... utiliser l'API FindWindow, comme dans le code suivant (non testé)

Code:

---

1 2 3 4 5 6 7 8

Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long   Function api_EstOuverte(sWindow As String) As String   api_EstOuverte = (FindWindow(vbNullString, sWindow) > 0) End Function

---