Détecter l'ouverture d'excel
Résolu/Fermé
A voir également:
- Détecter l'ouverture d'excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 mars 2016 à 16:15
13 mars 2016 à 16:15
Bonjour,
Comme ceci:
Comme ceci:
Public Function Excel_Ouvert() As Boolean Dim Wb As Excel.Workbook Dim Appli As Excel.Application On Error Resume Next Set Appli = GetObject(, "Excel.Application") ' Le test ci-dessous permet de vérifier si Excel est ouvert. If Appli Is Nothing Then Excel_Ouvert = False Else Excel_Ouvert = True End If ' Le test ci-dessous permet de lister les fichiers Excel ouvert. For Each Wb In Appli.Workbooks If Wb.Name = "Classeur1.xls" Then 'nom du classeur qui contient cette macro MsgBox "mon classeur " & Wb.Name Else MsgBox Excel_Ouvert MsgBox Wb.Name End If Next Wb End Function
13 mars 2016 à 18:12
-Toi,
-Ta rapidité,
-La réponse,
-Son efficacité.