Re : probleme d'automatisation de macro
merci wilfried mais les sendkeys n'ont pas fonctionnés comme je l'attendais. J'ai donc adapté ma macro avec differentes choses que j'ai pioché sur le site. Si ça interesse quelqu'un j'ai contourné le problème de validation d'envoi du mail avec CDO.
Voici le code:
Sub envoiauto()
Application.OnTime "12:46:10", "envoimail", "09:54:00"
End Sub
Sub envoimail()
'copie la feuille dans un nouveau classeur
ThisWorkbook.Sheets("spa").Copy
'Sauve le classeur
ActiveWorkbook.SaveAs "C:\Suivi.xls"
ActiveWorkbook.Close False
Dim iMsg As Object, iConf As Object
'Dim iBP As Object
Const cdoSendUsingPickup = 1
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = "??????????@??????.fr"
.Subject = "test 1"
.HTMLBody = "Ceci est un essai..."
Set iBP = iMsg.AddAttachment("C:\Suivi.xls")
.Send
End With
'Supprime le classeur temp crée
Kill "C:\suivi.xls"
End Sub
Cordialement
Chac-attack