Vérifier avant excution d'une macro, si aucun fichiers excel n'est ouvert ?

Bonsoir,

Je souhaite démarrer une macro uniquement si aucun fichier excel (autre que celui de la macro) ne soit ouvert.

Si un fichier excel est ouvert, je souhaiterai que la macro alerte et s'arrête.

Merci,

@+

Olivier

regarde la valeur de workbooks.count...

Parfait merci,

voilà ce que j'ai mis :

Code:

---

1 2 3 4 5 6 7 8

nb = Workbooks.Count If nb <> 1 Then MsgBox "Il y a plusieurs fichiers excel d'ouverts, merci de les fermer avant de ré-executer le programme" Windows("programme.xlsm").Activate Sheets("colis").Select ActiveWorkbook.Close End End If

---

@+
Olivier