Discussion :

[corbaal]

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.

[mout1234]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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