Macro enregistrement avec date

[noel33]

Bonjour à tous,

dans excel 2010 j'essaie de faire une macro afin d'avoir un enregistrement auto avec la date qui s'ajoute à la fin du fichier.

J'ai ça:

Sub Enregistrement()
'Utilisation d'Outlook sans référence
Dim olApp As Object
Dim olMail
Dim chemin As String, nom As String, fichier As String

chemin = "C:\Users\Asus\Desktop\Travail\"
nom = "Teste" & " - " & Date

ActiveWorkbook.SaveAs Filename:=chemin & nom & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close True


Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)

fichier = chemin & nom & ".xlsm"
With olMail
.To = "Moi"
.Subject = "TITRE"
.BCC = "Tout le monde"
.Body = "Bonjour à tous"
.Attachments.Add fichier
.Display 'pour visualiser le message
'.Send 'pour envois direct
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub

Mais j'ai message erreur.

Je l'ai mis en PJ

Quelqu'un a une idée svp?

D'avance merci,

N.

 

[noel33]

J'ai déja un peu corrigé:

Sub Enregistrement()
Dim olApp As Object
Dim chemin As String, nom As String, fichier As String

chemin = "C:\Users\Asus\Desktop\Travail\"
nom = "Teste" & " - " & Format(Date, "dd mmmm yyyy")

ActiveWorkbook.SaveAs Filename:=chemin & nom & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close True


End Sub


Mais j'ai une demande de confirmation, et si je dis non ou annuler j'ai un message d'erreur....