Copie de sauvegarde

Je voudrais copier mon classeur actif dans un classeur de sauvegarde, fermer celui ci et revenir dans mon classeur actif.

Tu peux utiliser directement FileCopy :
FileCopy ActiveWorkbook.FullName,"C:\MesCacouilloux\simplex.xls"

Auteur :

Mots clefs associés à cette page : , ,

Copie de sauvegarde

Par jipe59, le sam 19/09/2009 - 23:11.

a priori, la méthode indiquée par Jacques Chaussard plante (problème de permission dû au classeur ouvert)

Une méthode très simple consiste à utiliser SaveCopyAs qui permet de créer la copie directement dans le répertoire de son choix à définir préalablement par l'intermédiaire d'une variable.

Les 2 lignes ci-dessous peuvent être mises directement dans Worbook_Open ou dans un module avec appel de la fonction dans Workbook_Open

Nomsauve = "C:\Users\XXXXX\sauvegarde\" & "sauve " & ActiveWorkbook.Name
ThisWorkbook.SaveCopyAs Filename:=Nomsauve

JIPE59