Discussion :

[vivi4561]

Bonjour,
Comment pourrais-je coder sous VBA l'action suivante :
Je souhaiterai vérifier si un autre fichier excel est ouvert et si c'est le cas alors j'arrête la macro en cours.

Une évolution serait ensuite de "grisé" un bouton lorsqu'il y a bien un autre fichier excel ouvert.

Cdlt

[diude54]

Cette fonction renvoie True si le fichier qu'on recherche est ouvert. Renvoi faux si il est fermé

Code :

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

1
2
3
4
5
6
Function WbkOuvert(NomF As String) As Boolean
WbkOuvert = False
For Each Wbk In XlApp.Workbooks    'on parcourt la collection des classeurs
If Wbk.Name = NomF Then WbkOuvert = True
Next Wbk
End Function

[vivi4561]

Re,
Merci pour ta réponse.
Cependant je ne souhaite pas vérifier si un fichier excel en particulier est ouvert mais juste si un autre fichier excel est ouvert en meme temps.

Cdlt

[jfontaine]

Bonjour,

Utilise la propriete count de workbooks

Code :

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

1
2
 
if Workbooks.Count>1 then msgbox "plusieurs fichiers"

[Fvandermeulen]

Bonjour,
Une autre méthode dans un module, voir le commentaire concernant les macros persos qui sont stockées dans un workbook masqué.

Code :

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

If Application.Workbooks.Count > 1 Then Exit Sub 'Attention si il y a des macros perso adatper par >2

A+

Edit: Désolé pour le doublon j'avais pas fait de Refresh

[vivi4561]

C'est bon.
Merci pour vos réponses.