Re : macro enregistrer
Le code me donne les enregistrements suivant:
Classeur1-version 27-10_0851
Classeur1-vers-version 27-10_0852
Classeur1-vers-vers-versions 27-10_0853
Comment éviter l'affichage de "vers" à chaque fois?
mon code actuel
en cas d'erreur de ma part...)
Sub EnregistrerAvecVersion()
ChDir "C:\Documents and Settings\ab\Bureau\Copie de ESSAI"
Nomfile = ActiveWorkbook.Name
If Nomfile Like "*Version*" Then
NomCourt = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 18)
Else
NomCourt = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4)
End If
FileSVG = Application.GetSaveAsFilename(InitialFileName:=NomCourt & _
"-Version " & Format(Now, "dd-mm_hhmm"), _
fileFilter:="Fichiers Excel (*.xls), *.xls", Title:="Enregistrement")
ActiveWorkbook.SaveAs Filename:=FileSVG, FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub