bva et fermeture

[ced91300]

Bonjour à tous,

J'ai un petit soucis concernant cette BVA (enregistrement & fermeture de mon fichier via bouton), celle solution me me ferme aussi les autres classeurs ouvert alors que je voudrais fermer uniquement celui concerné.

j'ai cherché sur le net mais pas trouvé la solution

Merci.

Cordialement.

le BVA en question :

Private Sub CommandButton2_Click()
Dim ret As Integer
ret = MsgBox("Avez-vous validé vos modifications ?", vbYesNo)
If ret = vbNo Then
Exit Sub
Else
Dim wb As Workbook
For Each wb In Workbooks 'boucle sur tous les classeurs ouverts
wb.Close True 'fermeture du classeur avec sauvegarde
Next
Application.Quit
End If
End Sub

 

[croco40]

Bonjour,
Il faut que tu enlève Application.Quit.
Suerte croco

 

[phlaurent55]

Bonjour

à essayer: remplacer le code ci-dessous par ActiveWorkBook.Close

For Each wb In Workbooks 'boucle sur tous les classeurs ouverts
wb.Close True 'fermeture du classeur avec sauvegarde
Next

à+
Philippe

 

[DoubleZero]

Bonjour à toutes et à tous,

Autre suggestion :

Sub CommandButton1_Click()
    On Error Resume Next
    Dim ret As Integer
    Dim wb As Workbook
    ret = MsgBox("Avez-vous validé vos modifications ?", vbYesNo)
    If ret = vbNo Then
        Exit Sub
    Else
        If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close
    End If
End Sub

A bientôt

 

[ced91300]

Bonjour à tous

Merci à tout le monde pour vos réponses j'ai pu m'en sortir...

Cordialement.

Cédric