macro de sauvegarde sous un nom différent

[alex]

bjr je cherche a sauvegarder un fichier via une macro affectée à un bouton . Mon code actuel me fait bien une sauvegarde du fichier avec le nom et la date me permettant ainsi de conserver mon fichier original ...Jusqu'ici tout va bien ....le probleme est que cette macro modifie le nom de la feuille ou se trouve le bouton perturbant mes références a cette feuille
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, 'dd-mm-yy') & ' ' & Format(Time, 'h-mm-ss')
ThisWorkbook.SaveCopyAs Filename:=Name & strDate & '.xls'

 

[Blunet]

Salut Alex,
j'utilise Excel 2003 et j'ai pas de problème avec ton code. par contre il faut éviter l'utilisation des mots clés ou 'preseque clé' comme Name dans Name = Left(ActiveWorkbook.Name, Count - 4)

Essaye plutôt Nom.
Peutêtre faudrait penser à supprm la bouton dans la feuille svgdée.

ActiveSheet.Shapes('CommandButton1').Select
Selection.Delete

Si le nom du bouton de commande est CommandButton1.

Ciao