Fermeture classeur

[bernardrustrel]

Bonjour
Cherchant la possibilite de ne laisser qu'un classeur ouvert à la fois j'en appelle au Forum car je m'y creuse en vain les méninges.
Je m'explique:
J'ai un classeur1 ouvert (qui contiendrait le code), je voudrais que lorsque j'ouvre le classeur2 le classeur1 se ferme automatiquement.
Si je ré-ouvre le classeur1 que la classeur2 se ferme à son tour.
Je pense que quelque chose doit exister sur le sujet, je n'ai rien trouvé de probant dans les différentes discussions, aussi fais je appel aux compétences du forum.

Merci par avance, cordialement, Bernard

 

[job75]

Bonjour bernardrustrel,

Placez ce code dans le ThisWorkbook :

Private Sub Workbook_Open()
Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name <> Me.Name Then wb.Close True 'enregistre et ferme les fichiers
Next
End Sub

Private Sub Workbook_Deactivate()
Static flag As Boolean
If flag Then Exit Sub
If Workbooks.Count > 1 Then flag = True: Me.Close True 'enregistre et ferme le fichier
End Sub

A+

 

[bernardrustrel]

Bonjour bernardrustrel,

Placez ce code dans le ThisWorkbook :

Private Sub Workbook_Open()
Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name <> Me.Name Then wb.Close True 'enregistre et ferme les fichiers
Next
End Sub

Private Sub Workbook_Deactivate()
Static flag As Boolean
If flag Then Exit Sub
If Workbooks.Count > 1 Then flag = True: Me.Close True 'enregistre et ferme le fichier
End Sub

A+

 

[bernardrustrel]

Bonsoir Job75
Merci pour cette réponse c'est exactement ce que je cherchais, j'avais pensé au workbook-open mais pas la desactivation de ce workbook.

Merci mille fois, cordialement.Bernard.