reconnaissance ouverture fichier excel

Question

davidouz
LUT, j'aimerais savoir comment on peux vérifier si un fichier excel est ouvert ou non, afin de l'ouvrir si il ne l'est pas, et d'ouvrir sa fenètre si il est déja ouvert. merci

carnez · Answer

bonjour, 

pas de problème :

Sub xlactif()
Dim XlApp As Excel.Application
Dim Class, Feuille As String
Dim nb_classeur As Integer
pas_ouvert:

If siappouvert("Excel.application") = False Then    ' pas ouvert
    Set XlApp = CreateObject("Excel.Application")   ' crée une instance sur Excel
    XlApp.Visible = True                            ' ouvre Excel (pas de feuille vierge)
Else                                                ' Excel déjà ouvert
    Set XlApp = GetObject(, "excel.application")    ' récupère l'instance sur excel
   End If
End Sub

Function siappouvert(appname) As Boolean
On Error Resume Next
Dim objApp As Object
siappouvert = True
Set objApp = GetObject(, appname)
       If Err.Number <> 0 Then siappouvert = False
End Function

Colibri

Reconnaissance ouverture fichier excel

1 réponse

Discussions similaires