Je souhaiterais que lors de l'ouverture du fichier ce dernier sauvegarde l'heure et le jour de l'ouverture dans A1 et envoie ce fichier obtenu par mail.
C'est possible ?
Private Sub Workbook_Open() Range("A1") = Now Mail_workbook_1 End Sub
Sub Mail_workbook_1() Dim wb As Workbook Dim I As Long Set wb = ActiveWorkbook On Error Resume Next For I = 1 To 3 wb.SendMail "", "This is the Subject line" If Err.Number = 0 Then Exit For Next I On Error GoTo 0 End Sub
isabelle
Le 2013-09-03 18:53, Lionel M a écrit :
bonjour a tous !!
Je souhaiterais que lors de l'ouverture du fichier ce dernier sauvegarde l'heure et le jour de l'ouverture dans A1 et envoie ce fichier obtenu par mail. C'est possible ?
Merci de votre aide
bonjour Lionel,
change "ron@debruin.nl"pour l'adresse de ton choix
et "This is the Subject line" pour le sujet de ton choix
http://www.rondebruin.nl/win/s1/div/mail1.htm
'à copier sur ThisWorkbook
Private Sub Workbook_Open()
Range("A1") = Now
Mail_workbook_1
End Sub
Sub Mail_workbook_1()
Dim wb As Workbook
Dim I As Long
Set wb = ActiveWorkbook
On Error Resume Next
For I = 1 To 3
wb.SendMail "ron@debruin.nl", "This is the Subject line"
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
End Sub
isabelle
Le 2013-09-03 18:53, Lionel M a écrit :
bonjour a tous !!
Je souhaiterais que lors de l'ouverture du fichier ce dernier sauvegarde l'heure et le jour de l'ouverture dans A1 et envoie ce fichier obtenu par mail.
C'est possible ?
Private Sub Workbook_Open() Range("A1") = Now Mail_workbook_1 End Sub
Sub Mail_workbook_1() Dim wb As Workbook Dim I As Long Set wb = ActiveWorkbook On Error Resume Next For I = 1 To 3 wb.SendMail "", "This is the Subject line" If Err.Number = 0 Then Exit For Next I On Error GoTo 0 End Sub
isabelle
Le 2013-09-03 18:53, Lionel M a écrit :
bonjour a tous !!
Je souhaiterais que lors de l'ouverture du fichier ce dernier sauvegarde l'heure et le jour de l'ouverture dans A1 et envoie ce fichier obtenu par mail. C'est possible ?
