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 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Lionel,
change ""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 "", "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 ?
change ""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 "", "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 ?
