VBA : Détecter si d'autres classeurs sont ouverts

[dionys0s]

Bonjour le forum


J'aurais aimé savoir s'il est possible par VBA de détecter si d'autres classeurs sont ouverts. Peu importe leur nom. J'aimerais qu'à l'ouverture de mon classeur (Formulaire.xls en l'occurence), un msgbox s'affiche si d'autres classeurs sont ouverts, et rien si seul mon Formulaire.xls l'est.

Je saurais le faire pour un classeur au nom connu d'avance, mais ne sais pas le généraliser à tout classeur ouvert, quel que soit son nom.

D'avance merci pour votre aide 🙂

 

[MJ13]

Re : VBA : Détecter si d'autres classeurs sont ouverts

Bonjour Dionysos

Il faut aller vers:

workbooks.count

 

[dionys0s]

Re : VBA : Détecter si d'autres classeurs sont ouverts

Bonjour Michel 🙂

J'y avais pas du tout pensé. Merci beaucoup pour le coup de pouce !

 

[Cousinhub]

Re : VBA : Détecter si d'autres classeurs sont ouverts

Bonjour,

Et meilleurs vœux à tous

Attention, si tu as un classeur de macros personnalisé, celui-ci sera comptabilisé avec la commande que t'a donné Michel....

Bonne journée

 

[MJ13]

Re : VBA : Détecter si d'autres classeurs sont ouverts

Re, Bonjour CousinHub

Attention, si tu as un classeur de macros personnalisé, celui-ci sera comptabilisé avec la commande que t'a donné Michel....

Dans un sens, c'est tant mieux car si on a des macros complémentaires d'installées, cela poserait problème 🙂 (à moins que ce soit d'autres types de classeurs pour les macros personnalisées 😕).

Ensuite, cela dépend de ce que l'on recherche, personnellement, je m'en sers si je ne veux pas qu'il y ai plus d'un ou de n classeurs d'ouvert pour déclencher une macro..

 

[dionys0s]

Re : VBA : Détecter si d'autres classeurs sont ouverts

Re, bonjour bhbh

je ne suis pas bien certain de comprendre ta mise en garde bhbh.
En gros pour le moment, quand mon fichier qui contient tout un tas de macros s'ouvre, il se ferme après avoir gentiment prié l'utilisateur de fermer tous les autres classeurs et de revenir sur celui-ci après avoir fait tout ça. Donc il ne ferme que le classeur sensible, sans le modifier.

Si en revenche rien d'autre n'est ouvert, alors les macros se lancent.

Vous voyez un risque à procéder de cette façon ?
Je suis pas certain de comprendre ce qu'est un classeur personnalisé en fait...

 

[dionys0s]

Re : VBA : Détecter si d'autres classeurs sont ouverts

Re le forum

J'ai compris la mise en garde. Et elle était judicieuse.
Existe-t-il un moyen rapide de détecter si un PERSO.XLS existe chez l'utilisateur du fichier ? Auquel cas il faut autoriser 2 classeurs ouverts sinon pas moyen d'utiliser le fichier

A+

 

[Efgé]

Re : VBA : Détecter si d'autres classeurs sont ouverts

Bonjour dionis0s, MJ13, bhbh,
Etant interressé par le sujet, j'ai fais ceci:

Sub Classeur_test()
Dim W As Workbook, Liste$
For Each W In Workbooks
    Liste = Liste & W.Name & vbLf
Next W
MsgBox Liste & Workbooks.Count
End Sub

Ce qui m'a montré que l'on peux vérifier la présence d'un PERSO.xls mais pas d'une macro complémentaire de type .xla
Cordialement

 

[James007]

Re : VBA : Détecter si d'autres classeurs sont ouverts

Bonjour dionis0s, MJ13, bhbh,
Etant interressé par le sujet, j'ai fais ceci:

Sub Classeur_test()
Dim W As Workbook, Liste$
For Each W In Workbooks
    Liste = Liste & W.Name & vbLf
Next W
MsgBox Liste & Workbooks.Count
End Sub

Ce qui m'a montré que l'on peux vérifier la présence d'un PERSO.xls mais pas d'une macro complémentaire de type .xla
Cordialement

Bonjour à tous,

On peut effectivement tester le nom ... mais dans la mesure où il s'agit d'ordinateurs d'utilisateurs, chaque utilisateur peut, à loisir, donner le nom qu'il désire à son fichier de macros personnalisées ...

A +
🙂

 

[MJ13]

Re : VBA : Détecter si d'autres classeurs sont ouverts

Re à tous



Ok, il vaut mieux faire attention car si on masque des classeurs, on ne les voit pas à l'écran et pourtant, ils sont comptabilisés dans le Workbooks.count.

Il vaudrait peut-être mieux tester le nombre de fichiers visibles 😕.

 

[Pierrot93]

Re : VBA : Détecter si d'autres classeurs sont ouverts

Bonjour à tous,

si l'on considère que le classeur de macro perso est généralement masqué..

Dim i As Byte, wd As Window
For Each wd In Windows
    If wd.Visible = True Then i = i + 1
Next wd
MsgBox i & " classeur(s) ouvert(s) et visible(s)..."

bonne fin d'après midi
@+

 

[MJ13]

Re : VBA : Détecter si d'autres classeurs sont ouverts

Re, Bonjour Pierrot

Ah, Pierrot, ton code, il me plaît bien, j'avais bien tenté avec workbook(i).visible, mais cela ne fonctionnait pas.

Merci pour l'astuce. J'ai bien fait de venir 😉.

Bonne soirée 🙂.