N
nyco
Guest
Bonjour j'ai une erreur
dans la partie attachments.add(classeur)
si vous pouviez me donner un coup de main merci par avance
Dim classeur As String
classeur = Application.ActiveWorkbook.Path
Dim message As String
Dim nouveau_mail As New Outlook.Application
Dim objet_mail As MailItem
Set nouveau_mail = New Outlook.Application
Set objet_mail = nouveau_mail.CreateItem(olMailItem)
With objet_mail
.To = Sheets("Personnalisation").Cells(3, 2).Value
.Subject = "information"
.Attachments.Add (classeur)
.Display
End With
dans la partie attachments.add(classeur)
si vous pouviez me donner un coup de main merci par avance
Dim classeur As String
classeur = Application.ActiveWorkbook.Path
Dim message As String
Dim nouveau_mail As New Outlook.Application
Dim objet_mail As MailItem
Set nouveau_mail = New Outlook.Application
Set objet_mail = nouveau_mail.CreateItem(olMailItem)
With objet_mail
.To = Sheets("Personnalisation").Cells(3, 2).Value
.Subject = "information"
.Attachments.Add (classeur)
.Display
End With