Obliger à l'ouverture d'un fichier excel d'enregistrer-sous un nom dif - VB/VBA/VBS - Programmation
Marsh Posté le 18-03-2004 à 11:06:24
Tu le mets en read only... comme ca obliger de le sauver sur un autre nom
Marsh Posté le 18-03-2004 à 15:57:42
k1200 a écrit : Tu le mets en read only... comme ca obliger de le sauver sur un autre nom |
Ok, c'est vrai que c'est une solution à laquelle je ne pensais plus car obsédé par l'idée d'en trouver une en VBA...
Merci bien et à bientôt!!!
Marsh Posté le 18-03-2004 à 10:57:14
Bonjour,
Je commence tout juste en Vba. Je souhaite faire en sorte que lorsqu'on ouvre mon fichier on soit obligé d'en faire une copie afin de préserver l'originale tout en gardant trace des opérations effectuées.
Voici le code que j'ai inscrit pour que la fenêtre enregistrer-sous s'affiche au démarrage :
Private Sub Workbook_Open()
Dim BoiteEnregistrerSous As Dialog
Set BoiteEnregistrerSous = Application.Dialogs(xlDialogSaveAs)
BoiteEnregistrerSous.Show
End Sub
Mais cela n'oblige rien puisque l'utilisateur peut toujours annuler et de toute façon il peut écraser le fichier en lui donnant le même nom.
Il faudrait donc imposer un nom diférent (établi par rapport à la date par ex) et surtout obliger à effectuer l'enregistrement avant toute action.
Merci d'avance!!!!