Savoir si un classeur est ouvert sans l'activer ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Savoir si un classeur est ouvert sans l'activer ?

scaryfan

Apple Inside

:hello:
Autre question du jour : j'ai une macro dans un classeur dans laquelle je souhaiterais mettre un bout de code qui va vérifier si un autre classeur est ouvert ou non... tout cela, sans l'activer...
Quelqu'un aurait une soluce ?
:whistle:

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

Publicité

scaryfan

Apple Inside

J'essaie bien de faire :

Code :

If IsOpen("FICHIER.xls" Then
...
End If

Mais IsOpen ne semble pas être reconnu... :cry:

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

kiki29

Salut,à tester

Private Function WOuvert(sNom As String) As Boolean
Dim Wkb As Workbook
WOuvert = False
For Each Wkb In Workbooks
If Wkb.Name = sNom Then
WOuvert = True
Exit For
End If
Next Wkb
End Function

Message cité 1 fois

galopin01

Bonsoir,
Oui... la même en couleur :

Code :

Function WbOpen(WbName As String) As Boolean
On Error Resume Next
WbOpen = Not Workbooks(WbName) Is Nothing
End Function

...Mais bien sur ça ne marche que dans une même instance d'Excel !

Pour tester l'ouverture ou non d'un classeur dans des instances différentes (en réseau par exemple)
je n'ai pas trouvé mieux que de créer un drapeau (fichier "flag.dat" ) à la fermeture (BeforeClose) du classeur en question et on supprime le "flag.dat" à l'ouverture.
Ensuite on teste la présence du flag (avec un Dir) : Si le flag est absent c'est que quelqu'un à déja ouvert le classeur, sinon c'est bon.

A+

kiki29

Salut,pour les instances multiples il faut passer par Microsoft WMI Scripting v1.x Library

scaryfan

Apple Inside

kiki29 a écrit :

Salut,à tester

Private Function WOuvert(sNom As String) As Boolean
Dim Wkb As Workbook
WOuvert = False
For Each Wkb In Workbooks
If Wkb.Name = sNom Then
WOuvert = True
Exit For
End If
Next Wkb
End Function

Merci beaucoup pour ce bout de code que je vais tester immédiatement...
Je vous tiens au courant.

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

scaryfan

Apple Inside

Ça marche nickel chrome du tonnerre... :sol:

Merci encore !

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Savoir si un classeur est ouvert sans l'activer ?

Sujets relatifs
reference à un autre classeur dans une formule	Problème copie de cellule entre 2 classeur
[VBS] Actualiser Classeur Excel	Comment savoir si dans un tab dechar il y a des entier et des reel ?
Exporter une feuille dans un autre classeur selon le nom de la feuille	Liaison cellules / classeur différent
Afficher le nom du fichier ouvert dans une macro sous Excel	Exécuter une macro dans plusieurs feuilles d'1 classeur
Plus de sujets relatifs à : Savoir si un classeur est ouvert sans l'activer ?

Page générée en 0.041 secondes