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.