Garder une copie qui remplace la précédente

Adamev · 9 Octobre 2010

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é · 9 Octobre 2010

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

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

Code:

[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 · 10 Octobre 2010

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

Bonjour Efgé,

Efgé à dit:
Regarde si ceci peut t'aider.

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

Garder une copie qui remplace la précédente

Adamev

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

Adamev

XLDnaute Occasionnel

Discussions similaires