XL 2016 message Outlook

[YOUYOU25]

Bonjour à tous ,

Toujours en phase d’apprentissage VBA et je ne trouve pas de solution et fais appel à vous pour svp m’aider à ajouter deux fonctions VBA dans mon tableau de suivi de formation pour mon travail.

Je m’explique

si dans une cellule de la colonne r est mentionné, à prévoir en majuscule et que si la date dans une cellule de la colonne t est égale à la date actuelle moins 65 jours

un message soit envoyé sur ma boite outlook à mon travail en mentionnant, relance à faire

en plus que si dans une cellule de la colonne w est mentionné, approuvé en majuscule et que le nombre dans une cellule de la colonne z est égale à 180, créer une nouvelle ligne

un message soit envoyé sur ma même boite outlook en mentionnant, créer une nouvelle ligne

la feuille du fichier s’appelle source en majuscule

cela me permettrait de suivre facilement le recyclage des personnels et cela me semble tellement complexe et je vous remercie de prêter attention à ma demande

merci à vous

 

[sylvanu]

Bonjour Youyou,
Si j'ai bien compris ...
Je ne vois vraiment pas l'intérêt de la manip car le mail d'avertissement ne pourra être envoyé que lorsque le fichier est ouvert.
A mon avis, je penserais plus à une macro qui calcule ces avertissement à l'ouverture et lance un message d'alerte, plus une MFC pour mettre en rouge les lignes concernées.

 

[YOUYOU25]

Bonsoir Sylvanu,

les MCF sont déjà en place à l'ouverture mais je pensais qu'il y avait un moyen d'alerter sans ouvrir, effectivement je ne l'avais pas mentionné. n'y a t-il pas possibilité sans ouvrir ?

Merci

 

[Phil69970]

Bonjour @YOUYOU25 et Sylvain

Une piste

XL 2016 - envoi de mail en automatique en fonction de plusieurs menus deroulants

Bonjour, Je souhaiterais modifier le code ci dessous afin de pouvoir envoyer un mail en automatique au personnes concernées lorsque les initiales sont renseignées en colonne J, M, P, U Recevoir une reponse lorsque le sujet est traité pour chaque etape lorsque les colonnes K, N, Q, V sont...

excel-downloads.com

 

[sylvanu]

Re, bonjour Phil,

n'y a t-il pas possibilité sans ouvrir ?

Avec XL, non c'est impossible. Le fichier doit être ouvert pour exécuter ses macros.

 

[YOUYOU25]

Si impossible je prends pour la macro à l'ouverture

merci Sylvanu pour votre aide

Re, bonjour Phil,

Avec XL, non c'est impossible. Le fichier doit être ouvert pour exécuter ses macro

Re, bonjour Phil,

Avec XL, non c'est impossible. Le fichier doit être ouvert pour exécuter ses macros.

 

[YOUYOU25]

Sylvanu,

alors si vous voulez bien je veux bien votre aide pour l'alerte à l'ouverture

Merci

 

[sylvanu]

Youyou,
Une macro Workbook_Open placé dans Thisworkbook s'éxécutera automatiquement à l'ouverture du fichier.
Il vous suffit d'y mettre le calcul des alertes et de mettre un Msgbox pour l'afficher.

Private Sub Workbook_Open()
     Mettre ici votre Code Macro
End Sub

Mais sans fichier test, difficile d'en faire plus. mais cette PJ vous donnera un exemple.

 

[YOUYOU25]

bonsoir sylvanu,

j'ai revue ma copie et choisi votre option celle de la MSGBOX en revanche j'ai juste besoin de vous pour un pb sur la condition 1 que si la date actuelle est égale à la date de la cellule T soit 65 jours avant, la MSGBOX apparaissent car dans ma fonction elle apparait systématiquement, erreur fonction.

Pour la condition 2 elle fonctionne

Merci Sylvanu et bonne soirée

 

[sylvanu]

Bonsoir,
Un peu au hasard, ne serait ce pas :

daysDifference = DateDiff("d", currentDate, cellT.Value)

car daysDifference = DateDiff("d", cellT.Value, currentDate) donne un résultat négatif et donc toujours pris en compte par "If daysDifference <= 65 Then"

 

[YOUYOU25]

Bonjour Sylvanu, votre réponse est une fois de plus parfaite et fonctionne très bien dans mon fichier.

Merci et bonne soirée