eldoctor62
XLDnaute Nouveau
Bonjour,
Je souhaites qu'a la fermeture de mon fichier, une macro enregistre a la date du jour, j'ai écrit ceci :
Mais beaucoup de cellule ainsi que les macros ne sont pas souhaité dans cette sauvegarde...
D'avance merci de bien vouloir me venir en aide,
Je voudrais par exemple qu'il n'enregistre que :
Range("E1:G1").Select
Je souhaites qu'a la fermeture de mon fichier, une macro enregistre a la date du jour, j'ai écrit ceci :
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' je met a jour la base de données
ENVOIversHISTO
' je copie la date pour controler le lendemain
Range("A2").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' je sauvegarde
Application.DisplayAlerts = False
ActiveWorkbook.Save
' en fermant je sauvegarde pour celine a la date du jour
Dim Chemin As String
Chemin = "R:\DEPARTEMENT\"
ActiveWorkbook.SaveAs Filename:= _
Chemin & "Anomalies - " & Format(Date, "yyyy mm dd") & " .xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True
End SubMais beaucoup de cellule ainsi que les macros ne sont pas souhaité dans cette sauvegarde...
D'avance merci de bien vouloir me venir en aide,
Je voudrais par exemple qu'il n'enregistre que :
Range("E1:G1").Select
Dernière édition: