Contrôle si classeur "source" ouvert

[BOCARAMEL]

Bonsoir a tous 🙂

Peux t'on faire un contrôle pour savoir si le classeur "source.xls" est ouvert
😕
Exemple a l'ouverture du classeur "state.xls"
si le classeur "source.xls" est fermé
Msgbox ("Veuillez ouvrir le fichier source")
et ferme le classeur "state"
SINON
ouverture normal

Merci de votre aide 😉
et bonne nuit a tous
bocaramel

 

[pedrag31]

Re : Contrôle si classeur "source" ouvert

Bonjour BOCARAMEL, Bonjour le forum,

Une essai ci dessous:

Private Sub Workbook_Open()

'Initialisation de la variable ClasseurSourceOuvert a faux
ClasseurSourceOuvert = False

'Recherche de "ClasseurSource.xls" dans tous les classeurs ouverts
For Each wbk In Workbooks
    If wbk.Name = "ClasseurSource.xls" Then
        ClasseurSourceOuvert = True
    End If
Next wbk

'Si ClasseurSourceOuvert est faux alors message...
If ClasseurSourceOuvert = False Then
    test = MsgBox("Le classeur source n'a pas ete identifie comme ouvert. Merci d'ouvrir le Classeur Source avant de lancer ce fichier" & vbCr & vbCr & "Oui, pour fermer et Non, pour rester dans le fichier", vbYesNo + vbCritical)
    If test = vbYes Then
    Workbooks("ClasseurSourceOuvert.xls").Close
    Else
End If

End Sub

Voir egalement un exemple en fichier joint...

Bonne journee, 🙂

 

[BOCARAMEL]

Re : Contrôle si classeur "source" ouvert

Merci beaucoup pedrag31 🙂
je test ça dans la journée et je te tiens au courant

Bonne journée
bocaramel

 

[Hulk]

Re : Contrôle si classeur "source" ouvert

Hello,

Une autre version trouvée sur le net... à paufiner.

Cdt, Hulk.

 

[BOCARAMEL]

Re : Contrôle si classeur "source" ouvert

Bonsoir a tous 🙂
vraiment merci a vous deux 🙂

pour votre aide qui correspond
parfaitement a ma demande

Bonne soirée a tous
bocaramel

 

[pedrag31]

Re : Contrôle si classeur "source" ouvert

Bonjour Bocaramel, Bonjour Hulk, Bonjour le forum,

J'aime beaucoup la solution de Hulk, plus simple, moins de code. La petite fonction perso IsOpen est aussi très sexy!

Merci pour le tuyau...

Bonne journée, 🙂