M
Marc
Guest
Bonjour à toutes et à tous,
J'ai beau gratter, fouiller, consulter ... sur la toile pas moyen de trouver 2 renseignements qui me permetterai de finaliser mon projet, et je me permet de vous soliciter encore une fois.
Après avoir reçu de l'aide pour une macro qui sauvegarde la feuille active d'un classeur de travail dans un autre classeur archive (12 classeurs de janvier à décembre avec 31 feuilles)dont voiçi le code:
Sub Macro1()
ChDir ActiveWorkbook.Path
m = MonthName(Month(Date))
On Error GoTo fin
Workbooks.Open Filename:=ActiveWorkbook.Path & '\\' & m
Windows('Programme').Activate
Cells.Select
Selection.Copy
Windows('' & m).Activate
ActiveSheet.Paste
ActiveWindow.Close SaveChanges:=True
Application.CutCopyMode = False
Range('A1').Select
fin:
End Sub
comme il s'agit d'effectuer une sauvegarde automatique lors de la fermeture d'un classeur de travail, y a t-il moyen de faire l'opération d'ouverture, de copie et de collage de la feuille à archiver et la fermeture du classeur archive 'janvier' sans que soit visible à l'écran ?
J'ai beau gratter, fouiller, consulter ... sur la toile pas moyen de trouver 2 renseignements qui me permetterai de finaliser mon projet, et je me permet de vous soliciter encore une fois.
Après avoir reçu de l'aide pour une macro qui sauvegarde la feuille active d'un classeur de travail dans un autre classeur archive (12 classeurs de janvier à décembre avec 31 feuilles)dont voiçi le code:
Sub Macro1()
ChDir ActiveWorkbook.Path
m = MonthName(Month(Date))
On Error GoTo fin
Workbooks.Open Filename:=ActiveWorkbook.Path & '\\' & m
Windows('Programme').Activate
Cells.Select
Selection.Copy
Windows('' & m).Activate
ActiveSheet.Paste
ActiveWindow.Close SaveChanges:=True
Application.CutCopyMode = False
Range('A1').Select
fin:
End Sub
comme il s'agit d'effectuer une sauvegarde automatique lors de la fermeture d'un classeur de travail, y a t-il moyen de faire l'opération d'ouverture, de copie et de collage de la feuille à archiver et la fermeture du classeur archive 'janvier' sans que soit visible à l'écran ?