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.
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
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
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" <nestaman@hotmail.com> a écrit dans le message de news:%23lHk318UIHA.1164@TK2MSFTNGP02.phx.gbl...
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.
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
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
Bonjour !
Merci pour la petite fonction qui fonctionne très bien !
Nesta
"Michel_D" <michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news: fm7bmu$n06$1@news.rd.francetelecom.fr...
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" <nestaman@hotmail.com> a écrit dans le message de
news:%23lHk318UIHA.1164@TK2MSFTNGP02.phx.gbl...
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.
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.