envoie d'un classeur par mail

[alain]

Bonsoir le forum

je voudrais savoir si il est possible d'envoyer par email, un classeur fermer et enregistrer sur le disque dur chaque jour a une heure précise sans aucune comande.

je m'explique, chaque jour j'enregistre un classeur sur le disque dur et je voudrais que le lendemain matin à 6h30, excel étant fermé, celui-ci parte par email sans rien faire, est ce possible et si oui comment procédé.


d'avance un grand merci

 

[Ronan]

Bonsoir,

Tout d'abord, il faut utiliser le logiciel OUTLOOk (Je suis désolé, mais c'est celui que j'utilises.) et que la référence Microsoft Outlook 9.0 object library soit cochée dans le menu OUTIL - - REFERENCES de VBA

Ecrire dans le module ThisWorkbook du classeur concerné le code suivant :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
EnvoiParMail
End Sub

Ce qui permettra de sauvegarder le classeur et de lancer la procédure EnvoiParMail.

Puis, dans un module :

Sub EnvoiParMail()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = "Ronan@zik.mu"
.Subject = ActiveWorkbook.FullName
.Body = "Voici la MAJ du classeur cite en objet"
.Attachments.Add ActiveWorkbook.FullName
.DeferredDeliveryTime = Date + 1 + #6:30:00 AM#
.Send
End With
End Sub

Et voilà !!!

@+

Ronan