Garder une copie qui remplace la précédente

[Adamev]

Bonjour le forum,

Je travaille presque quotidiennement sur un fichier: Fich001. Je voudrais en garder des copies dans 2 emplacemnts: EmplcmntA,EmplcmntB. Ces Copies doivent remplacer (écraser) l'ancienne copie.Ceci est faisable manuellement, mais je voudrais que cela se fasse automatiquement à la ferméture du fichier Fich001.
Merci d'avance

 

[Efgé]

Re : Garder une copie qui remplace la précédente

Bonjour Adamev,
Regarde si ceci peut t'aider. A mettre dans le ThisWorkbook:

[COLOR=blue]Private Sub[/COLOR] Workbook_BeforeClose(Cancel [COLOR=blue]As Boolean[/COLOR])
Application.DisplayAlerts = [COLOR=blue]False[/COLOR]
ActiveWorkbook.SaveAs Filename:="C:\Users\Toto\Desktop\Nouveau dossier1\Fich001xls"
ActiveWorkbook.SaveAs Filename:="C:\Users\Toto\Desktop\Nouveau dossier2\Fich001xls"
Application.DisplayAlerts = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[Adamev]

Re : Garder une copie qui remplace la précédente

Bonjour Efgé,

Regarde si ceci peut t'aider.

Oui, ça m'a aidé, Merci bien.