macro de sauvegarde

[kinel]

bonjour à tous

j'utilise cette macro pour sauvegarder et fermer un classeur
le problème c'est que si un autre classeur est ouvert il se ferme sans sauvegarder
les autres classeurs, s'ils sont ouverts utilisent le même type de macro pour sortir
auriez vous une commande pour activer cette sortie propre si un autre classeur est ouvert ?

Merci de votre aide
Kinel


Sub CommandButton2_Click()
ActiveWorkbook.Worksheets("Interface").Activate
Range("B27").Select
ThisWorkbook.Save
Dim sSauvegarde As String
Dim sChemin As String
sChemin = "\\Kinesurgeonxp\PMSI\CompléGesti sauvergardes"
sSauvegarde = Format(Now, "ddmmyyyy_hhmm")
ThisWorkbook.SaveCopyAs sChemin & "\" & "CompléGesti_" & sSauvegarde & Worksheets(1).Range("I1") & ".xls"
If MsgBox("Sauvegarde réussie ! bon poste, à la prochaine !", vbQuestion + vbYes, "CompléGesti") = vbYes Then
End If
Application.Quit
Application.DisplayAlerts = False

End Sub

 

[vbacrumble]

Re : macro de sauvegarde

Bonjour

Mettre en commentaire

'Application.Quit

et ajouter

ThisWorkBook.Close True

 

[kinel]

Re : macro de sauvegarde

merci vbacrumble

bon we à tous

Kinel