Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Comment vérifier si Excel est ouvert ?

Comment vérifier si Excel est ouvert ?

2 réponses
Avatar
Nesta
Bonjour à tous,

Dans un module d'Access 2003, je cherche à savoir si Excel est ouvert avant
l'exécution d'une macro.
Avez-vous quelques idées à m'apporter ?
Merci d'avance.


Nesta
Signaler un problème avec ce contenu

2 réponses

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
Michel_D
Bonjour,

Voici une fonction qui teste si Excel est ouvert :

Function ExcelExist() As Boolean
Dim oX As Object

On Error Resume Next
Set oX = GetObject(, "Excel.Application")
If Err.Number = 0 Then
ExcelExist = True
Else
ExcelExist = False
End If
Set oX = Nothing
End Function


Ensuite :
If ExcelExist then ...


"Nesta" a écrit dans le message de news:%
Bonjour à tous,

Dans un module d'Access 2003, je cherche à savoir si Excel est ouvert avant
l'exécution d'une macro.
Avez-vous quelques idées à m'apporter ?
Merci d'avance.


Nesta




Avatar
Nesta
Bonjour !

Merci pour la petite fonction qui fonctionne très bien !

Nesta


"Michel_D" a écrit dans le message de
news: fm7bmu$n06$
Bonjour,

Voici une fonction qui teste si Excel est ouvert :

Function ExcelExist() As Boolean
Dim oX As Object

On Error Resume Next
Set oX = GetObject(, "Excel.Application")
If Err.Number = 0 Then
ExcelExist = True
Else
ExcelExist = False
End If
Set oX = Nothing
End Function


Ensuite :
If ExcelExist then ...


"Nesta" a écrit dans le message de
news:%
Bonjour à tous,

Dans un module d'Access 2003, je cherche à savoir si Excel est ouvert
avant
l'exécution d'une macro.
Avez-vous quelques idées à m'apporter ?
Merci d'avance.


Nesta