Obliger à l'ouverture d'un fichier excel d'enregistrer-sous un nom dif

Obliger à l'ouverture d'un fichier excel d'enregistrer-sous un nom dif - VB/VBA/VBS - Programmation

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!!!!

Reply

Marsh Posté le 18-03-2004 à 10:57:14   

Reply

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 ;)

Reply

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!!!  :D


Message édité par virgile06 le 18-03-2004 à 15:58:04
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed