Microsoft 365 VBA mail automatique date échéance

[Geldo]

Bonjour à tous,

Après plusieurs jours à fouiller sur le net je ne trouve pas ce que je cherche (malgré le nombre élevés de forum ouvert avec ce titre - - ' ). Pourtant j'avais déjà réussi à faire une ébauche il y a quelques mois mais impossible de remettre la main dessus...
J'ai une charge de travail assez élevée donc je cherche à gagner du temps sur quelques sujet répétitifs mais important.

Je cherche à automatiser l'envoi de mail via Outlook à partir de mon fichier Excel que j'ouvrirai une fois par semaine. Mes connaissances en VBA sont très très basses...

Dans mon fichier (je vais essayer d'être suffisamment précise mais n'hésitez pas à me dire s'il manque des info), j'ai des dates de fin de validité de formation (à partir de la colonne F ligne 3 jusqu'à la colonne AN ligne 100). J'aimerai qu'à chaque ouverture du fichier (une fois par semaine), le code balaye mon tableau et m'envoie un mail pour me dire qu'une date arrive à échéance dans moins de 45 jours et si cela est possible avec le nom de la personne concernée (colonne C de la ligne 3 à 100).

Je vous remercie tous par avance pour l'aide que vous voudrez bien m'apporter.

Hâte de vous lire

 

[don_pets]

Hello,
Créer des envois automatiques d'émail via vba, rien de bien méchant, mais sans ton fichier on va essayer d'imaginer une solution.

Tout d'abord pour toper les mails à définir comme target, le plus simple (à mon sens) est d'incorporer à ton tableau une colonne dans la quelle tu définis si la ligne est une cible on non (avec genre une formule si( datedif(date_départ;aujourd'hui;"d")>45)

Ensuite pour le code

Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
    With myitem
.Subject = "Tralala"
.Recipients.Add "Ton mail"
'.Attachments.Add "ToncheMin\test.txt"
.Body = "bla bla bla"

'myitem.Display
myitem.send
    End With

Ju

 

[Geldo]

Hello,
Créer des envois automatiques d'émail via vba, rien de bien méchant, mais sans ton fichier on va essayer d'imaginer une solution.

Tout d'abord pour toper les mails à définir comme target, le plus simple (à mon sens) est d'incorporer à ton tableau une colonne dans la quelle tu définis si la ligne est une cible on non (avec genre une formule si( datedif(date_départ;aujourd'hui;"d")>45)

Ensuite pour le code

Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
    With myitem
.Subject = "Tralala"
.Recipients.Add "Ton mail"
'.Attachments.Add "ToncheMin\test.txt"
.Body = "bla bla bla"

'myitem.Display
myitem.send
    End With

Ju

Bonjour Ju et merci pour ton retour.

Je te joins ici un extrait de mon fichier. Toutes les colonnes y sont. Il y a bien entendu plus de ligne et un onglet supplémentaire que j'ai supprimé pour cette version partagée.

Pour le code, peux-tu mettre en vert à quoi cela correspond que je puisse apprendre en même temps et surtout comprendre comment le code fonctionne stp ?

 

[don_pets]

hello Geldo,

j'étais en mode sortie all day long hier, je regarde ton fichier

 

[Geldo]

hello Geldo,

j'étais en mode sortie all day long hier, je regarde ton fichier

Faut bien profiter! Merci pour ton aide

 

[don_pets]

Dis moi j'ai une question à la con :

Te faut-il recevoir autant de mails que de dates qui arrivent à échéance ? Ou bien un seul mail qui recense toutes les dates arrivant à échéance ?

 

[Geldo]

Ce qu'il y a de plus simple et que je pourrais maitriser par la suite (le code).

Sinon un mail par ligne si c'est possible ? Comme cela je saurais qui est concerné par l'échéance.

 

[don_pets]

Bon entre deux réunions, voici un premier draft pour savoir déjà si nous partons dans la bonne direction.

J'ai inséré une nouvelle colonne après la colonne E. But du jeu : on regarde la première ligne, et si la différence entre la date de la colonne E et celle du jour est inf ou égale à 45 alors cela te génère un mail avec en objet le titre ta colonne E et dans le corps du texte le nom et prénom (qu'on adapte évidemment à tes envies mais cela te montre le champ des possibilités)

Regarde le code sur le module Test et modifie l'email pour mettre le tiens

 

[Geldo]

Ju,

Je me suis trompée. Cela fonctionne c'est top! Un grand merci.
Je te joins un fichier de ce que j'ai compris du code car c'est important que je comprenne. Peux-tu y jeter un oeil stp ?

Maintenant comment étendre cela à tout mon tableau? Je dois insérer la colonne "PLOUF" à côté de toutes les fin de validité pour compter les jours restants j'imagine ?

 

[Geldo]

Autre question Ju,

Une fois qu'un mail et parti, il ne le renvoie pas ? Une fois que c'est écrit PLOUF cela signifie qu'un mail est parti ?

 

[don_pets]

Hello,

Alors c'est comme on veut. Je pense qu'on doit pouvoir simplifier méchamment le process, mais comme tu me semblais du genre à vouloir comprendre et maîtriser pour le faire évoluer, cela me semblait être une voie intéressante.

Alors oui on peut dupliquer en insérant autant de colonnes que l'on veut et en ajoutant ces lignes à la boucle que nous avons créé. Et puis à la fin une fois que les mails sont partis, c'est comme tu veux dans ton process à toi, soit on laisse les colonnes comme elles le sont, puisque tu as reçu le mail, ou alors à la fin de la proc, on efface ce que l'on a fait de manière à relancer les mails à la prochaine exécution de la macro. As you wish. Je t'ai simplement montré certaines possibilités, maintenant on adapte à tes envies.

Je vais jeter un coup d'œil au fichier que tu viens de renvoyer

Ju

 

[don_pets]

Tiens en bleu mes commentaires pour les explications

 

[Geldo]

OK super! Donc au moins j'ai compris le code. Maintenant comment je fais pour répéter sur autant de lignes de que personnes et sur X colonnes ?
Ton aide m'est précieuse. Encore merci
PS : j'ai commencé à bouquiner EXCEL VBA Guide pour débutant de Jason JAY.

 

[don_pets]

je regarde ça après dej pour te faire un exemple avec plusieurs colonnes, de manière à ce que tu puisses l'adapter (et donc assimiler )

 

[don_pets]

what do you think about that ?