Sauvegarde dans un autre répertoire à la fermeture du fichier
Bonjour,
Je souhaite qu'à la fermeture d'un fichier, une copie se créé dans un autre répertoire.
Dans VBA, j'ai donc mis ce code dans mon fichier :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs Filename:="D:\Users\perso\Desktop\sauv\" & ThisWorkbook. Name
End Sub
Mais le fichier créé dispose aussi de ce code, et génère une erreur quand je le ferme
Donc pour résumer :
- A la fermeture du fichier A, je souhaite qu'une copie (fichier B) se crée dans un autre répertoire
- Que le fichier B ne dispose pas de macro (un simple .xls)
- Que le fichier B soit en lecture seule
Merci de votre aide,
Benoit
Bonjour,
En premier il faudrait déjà faire la sauvegarde de l'original car après vous serez sur la copie et il sera trop tard.
Pour la copie il faudrait l'enregistrée au format xlsx pour ne pas garder les macros.
Merci,
Et pour que le fichier B soit en lecture seule ?
En ajoutant àprès le nom de fichier et l'extension " , ReadOnlyRecommended:=True "
Cependant ce sera seulement un message à l'ouverture pour suggérer l'ouverture en lecture seule.
Il sera possible de répondre "non" et de modifier.