Classeur ouvert mais non visible ?

[Marc]

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 ?

 

[Marc_du_78]

Bonjour Mard, le Forum,

Sans être un spécialiste, loin s'en faut.
Je pense que si tu met en début de code :
Aplication.ScreenUpdatinf = False
en dernière ligne de code tu remet à = True
et ca devrait être bon.

Bon week-end

 

[ERIC S]

Bonjour les Marc

presque bon mais ton doigt a fourché :

Application.ScreenUpdating = False
.....
....
Application.ScreenUpdating = True

Il y a un f au lieu du g dans ta réponse

A+

 

[Marc_du_78]

Bonjour Eric,

Merci de m'avoir corrigé, en effet, voici 72h que je n'ai pas dormi, ceci explique cela.

Bon week-end

 

[Marc]

Bravo et merci à vous deux.

Je joins ci dessous le code qui fonctionne pour les personnes interressés


Sub Macro1()
ChDir ActiveWorkbook.Path
m = MonthName(Month(Date)) & '.xls'
On Error GoTo fin

Application.ScreenUpdating = False

Workbooks.Open Filename:=ActiveWorkbook.Path & '\\' & m
Windows('Programme.xls').Activate
Cells.Select
Selection.Copy
Windows('' & m).Activate
ActiveSheet.Paste
ActiveWindow.Close SaveChanges:=True
Application.CutCopyMode = False
Range('A1').Select

Application.ScreenUpdating = True

fin:
End Sub

Mille mercis, bonne nuit à Marc, et longue vie à Excel download