envoi automatique d'un mail sous excel ou access selon date d'une cellule

[nadya]

Bonjour

Je seche sur un probleme depuis une semaine.

Je cherche un moyen de m'envoyer automatiquement un mail d'avertissement quand une date contenue dans une cellule access ( ou excel) arrive.
( si on peut notifier que l'alerte parte 5 jours avant la date saisie dans la cellule, c'est le paradis )

mais les differents script d'envois de mail que j'ai trouvé ici et experimenté ne remplissent pas cette fonction avec extraction et condition de date.

• Je suis sous office 2007
• Mon navigateur par defaut est mozilla/seamonkey
• sous Windows XP2
• ps: Mon metier c'est webgraphiste je donc suis extreme-neophite en prog

merci de votre attention 🙂

 

[lnovau]

Re : envoi automatique d'un mail sous excel ou access selon date d'une cellule

Bonjour a tous,

J'ai tenté de parcourir sur le forum tous les posts concernant la demande ci-dessus.

Cependant, il semble qu'il faille connaitre un peu la programmation pour arriver à décoder ce jargon. Votre site m'a déjà bien aidé sur d'autres sujets et je vous en félicite.

J'ai crée un fichier de données excel sur lequel sont enregistrées une multitude données concernant des véhicules (plus d'une centaine).

Ces véhicules doivent faire l'objet de trois controles différents avec pour chacun des controles des dates différentes.

Je n'arrive plus à gérer correctement ces dates d'échéance sans regarder chaque jour pendant des heures ce fichier que je partage sur serveur avec un autre collègue.

Je souhaiterais qu'à chaque date pour chaque immatriculation un message m'avertisse environs 10jours avant le type de controle à passer.

Comment puis-je avec votre aide satisfaire mes besoins ?

Merci à vous.

 

[Modeste]

Re : envoi automatique d'un mail sous excel ou access selon date d'une cellule

Bonjour Titia,

Il me semble qu'une soution pourrait être trouvée via les "Mises en formes conditionnelles" ... et donc sans connaître la programmation, mais qui permettrait de ne plus regarder le fichier pendant des heures !
Cependant, pour trouver une solution qui ait un peu de sens, il vaudrait mieux joindre un extrait de ton fichier (sans données confidentielles), avec une explication aussi détaillée que possible des résultats que tu voudrais obtenir.
Si ce n'est déjà fait, jette un oeil (attentif) à: Lien supprimé

... On t'attend! 😉

 

[pascal21]

Re : envoi automatique d'un mail sous excel ou access selon date d'une cellule

Private Sub Worksheet_Activate()
'commentaire vidange machines
Dim Cel As Range
For Each Cel In Range("l4:l40,e121:e144")
With Cel
.ClearComments
If .Value > 0 And .Value <= 50 Then 'ici ligne de condition à changer selon 
With .AddComment
.Text Text:="Attention Prevoir vidange dans " & Cel & " heures"
 .Visible = True
.Shape.TextFrame.AutoSize = True
 End With
ElseIf .Value < 0 Then    'ligne de condition
With .AddComment
 .Text Text:="Attention depassement vidange de  " & Cel & " heures"
 .Visible = True
 With .Shape
 .TextFrame.AutoSize = True
 With .OLEFormat.Object
 With .Font
 .Name = "Arial"
.Size = 10
 .ColorIndex = 3
 .Bold = True
 End With
 End With
 End With
 End With
End If
 End With
Next Cel

bonjour à tous
je suis mois aussi en train de créer une appli pour gérer un petite centaine de véhicules/machines de chantier sur 4 agences
je vous donne quelques codes qui simplifient bien la vie
ici une réponse avec un commentaire automatique que m'a donné je ne sais plus qui (qu'il en soit remercié une fois de plus)
s'affiche sous condition à l'ouverture de la feuille
et puis aller vous m'êtes sympatique voici 2 code qui permettent d'afficher un message déjà formaté et de pouvoir effacer le commentaire automatique

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, 

If Not Intersect([j42:j185], Target) Is Nothing Then
If Target.Comment Is Nothing Then
 SendKeys "%Ia"
SendKeys "RDV pris le  " & CStr(Date) & Chr(10) & " pour le " & " " & "à " & " " & "chez "
   Cancel = True
 End If
 End If
 
 Dim c As Comment 'masquer commentaire
If Intersect(Target, Range("l4:l40,e121:e144")) Is Nothing Then Exit Sub
Set c = Target.Comment
If Not c Is Nothing Then Target.Comment.Visible = Not Target.Comment.Visible
Cancel = True
 
 End Sub

à adapter