VBA fermer classeur

Bonsoir David, le Forum

Pour fermer un classeur c'est simple :

Sub OnFerme()
On Error Resume Next 'si il n'est pas ouvert
Workbooks("Alpha").Close False
End Sub(False pour ne pas le sauver, True pour le sauver)

Maintenant si tu dois tester si les deux sont ouverts et que tu veux un message te demandant lequel fermer :

ub OnTestEtOnFerme()
Dim WB As Workbook
Dim TheName1 As String, TheName2 As String
Dim Q As Byte

For Each WB In Workbooks
If WB.Name = "Alpha.xls" Then
TheName1 = "Alpha.xls"
End If
If WB.Name = "Beta.xls" Then
TheName2 = "Beta.xls"
End If
Next

If TheName1 <> "" And TheName2 <> "" Then
Q = MsgBox("Les Deux Classeurs" & vbCrLf & TheName1 & vbCrLf & TheName2 & vbCrLf & "sont Ouverts" & vbCrLf & _
"Voulez Vous fermer le premier (répondre oui)" & vbCrLf & _
"Voulez Vous fermer le Second (répondre non)" & vbCrLf & _
"Ne rien faire (répondre annuler)", vbYesNoCancel)
End If

Select Case Q
Case 6: Workbooks(TheName1).Close False
Case 7: Workbooks(TheName2).Close False
End Select

End Sub

Bonne Soirée
@+Thierry

Oups Oublie du "xls"

Sub OnFerme()
On Error Resume Next 'si il n'est pas ouvert
Workbooks("Alpha.xls").Close False
End Sub

@+Thierry

Tu es génial @+Thierry d : )))))

Georges