Bonjour à tous ...
J'y suis presque arrivé ... J'ai maintenant un tarif personnalisé, mais lors de m'envoi vers excel, par moment ca va ... par moment pas !
j'obtiens cette erreur sur la ligne .SEND
RUN TIME ERROR 287 - Application defined - Or object defined error
je fais alors DEBUG F8 puis run ... et c'est bon jusqu'au client suivant ... même cinéma.
Auriez vous une idée ??
Set outlookDossier = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set outlookMessage = outlookDossier.Items.Add
SendKeys "w"
With outlookMessage
.Subject = vObjet
.Recipients.Add vMail
.Attachments.Add vPj
.Body = vMessage
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
ActiveCell.Offset(0, 4) = "x"
Set outlookMessage = Nothing
Set outlookDossier = Nothing
ActiveCell.Offset(1, 0).Select
Loop
D'avance merci !!
Michaël