Coucou tout le monde,
Le forum,
Voici que mon fichier est bientôt terminé (et ça ne serait pas le cas sans certains d'entrevous alors encore un grand merci à ceux qui se reconnaitront).
Voilà, en fin de journée je ferme mon classeur principale avec une sauvegarde à la date du jour et de mes nouveaux clients dans mon classeur CLIENTS
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Worksheets("config").Visible = True Then 'j'ai mis ça pour qu'en réouverture de fichier pour simple consultation, cela ne lance pas la macro
Dim destination As Workbook
Workbooks.Open (ThisWorkbook.Path & "\CLIENTS.xls")
Set destination = ActiveWorkbook
ThisWorkbook.Sheets("clients").Range("A5:G5000").Copy destination.Sheets("clientts").Range("A5")
destination.Close savechanges:=True
With ThisWorkbook
Application.DisplayAlerts = False
.Sheets("Reçu").Delete
.Sheets("clients").Delete
.Sheets("depenses").Delete
.Sheets("config").Visible = False
.Sheets("Journee").Shapes("CommandButton1").Delete
.Sheets("Journee").Shapes("CommandButton4").Delete
.Sheets("Journee").Shapes("CommandButton5").Delete
Application.DisplayAlerts = True
End With
Dim nom As String
nom = CStr(Format(Date, "dd mmmm yyyy")) & ".xls"
Application.Dialogs(xlDialogSaveAs).Show nom
ThisWorkbook.Close savechanges = True
Else
End If
End Sub
Mais voilà, à la fin, tout se ferme... Normal vous me direz, c'est dans la macro... Mais moi ce que je voudrais c'est que le fichier nom (c'est à dire à la date du jour après le saveas) ne se ferme pas. Je voudrais que mon fichier principal se ferme, mais pas celui de sauvegarde en saveas....
Comment faire ???
Merci à tous...
kwakos
Le forum,
Voici que mon fichier est bientôt terminé (et ça ne serait pas le cas sans certains d'entrevous alors encore un grand merci à ceux qui se reconnaitront).
Voilà, en fin de journée je ferme mon classeur principale avec une sauvegarde à la date du jour et de mes nouveaux clients dans mon classeur CLIENTS
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Worksheets("config").Visible = True Then 'j'ai mis ça pour qu'en réouverture de fichier pour simple consultation, cela ne lance pas la macro
Dim destination As Workbook
Workbooks.Open (ThisWorkbook.Path & "\CLIENTS.xls")
Set destination = ActiveWorkbook
ThisWorkbook.Sheets("clients").Range("A5:G5000").Copy destination.Sheets("clientts").Range("A5")
destination.Close savechanges:=True
With ThisWorkbook
Application.DisplayAlerts = False
.Sheets("Reçu").Delete
.Sheets("clients").Delete
.Sheets("depenses").Delete
.Sheets("config").Visible = False
.Sheets("Journee").Shapes("CommandButton1").Delete
.Sheets("Journee").Shapes("CommandButton4").Delete
.Sheets("Journee").Shapes("CommandButton5").Delete
Application.DisplayAlerts = True
End With
Dim nom As String
nom = CStr(Format(Date, "dd mmmm yyyy")) & ".xls"
Application.Dialogs(xlDialogSaveAs).Show nom
ThisWorkbook.Close savechanges = True
Else
End If
End Sub
Mais voilà, à la fin, tout se ferme... Normal vous me direz, c'est dans la macro... Mais moi ce que je voudrais c'est que le fichier nom (c'est à dire à la date du jour après le saveas) ne se ferme pas. Je voudrais que mon fichier principal se ferme, mais pas celui de sauvegarde en saveas....
Comment faire ???
Merci à tous...
kwakos