xtor
XLDnaute Nouveau
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
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