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

[mcog2]

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

[bbil]

regarde la valeur de workbooks.count...

[mcog2]

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