excel pointage

Le
Lionel M
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
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #25632842
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

Publicité
Poster une réponse
Anonyme