XL 2016 message Outlook

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2023

• #2

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.

 

Vote positif 0 Vote négatif

Y

YOUYOU25

XLDnaute Junior

• 28 Août 2023

• #3

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 28 Août 2023

• #4

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2023

• #5

Re, bonjour Phil,

YOUYOU25 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Y

YOUYOU25

XLDnaute Junior

• 28 Août 2023

• #6

Si impossible je prends pour la macro à l'ouverture

merci Sylvanu pour votre aide

sylvanu à dit:

Re, bonjour Phil,

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

sylvanu à dit:

Re, bonjour Phil,

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

Cliquez pour agrandir...

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Y

YOUYOU25

XLDnaute Junior

• 28 Août 2023

• #7

Sylvanu,

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

Merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2023

• #8

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.

VB:

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.

 

Pièces jointes

• MacroOpen.xlsm

  12.1 KB · Affichages: 1

Vote positif 0 Vote négatif

Y

YOUYOU25

XLDnaute Junior

• 29 Août 2023

• #9

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

 

Pièces jointes

• ESSAI MSGBOX.xlsm

  18.4 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 29 Août 2023

• #10

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

VB:

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"

 

Vote positif 1 Vote négatif

Y

YOUYOU25

XLDnaute Junior

• 30 Août 2023

• #11

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

Merci et bonne soirée

 

Vote positif 0 Vote négatif