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
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