Macro pour envoyer par outlook des cellules en fonction de la date

[Lirna]

Bonjour,
Dans le cadre de mon travail j'ai beaucoup de mails à faire avec des dates précises.
J'ai développé tout un fichier Excel qui va m’amener à envoyer différents mails à différentes personnes en fonction d'une cellule et de la date du jours.

Ne connaissance rien (il faut l'avouer) à VBA je ne sais pas comment m'y prendre.
Je travail avec outlook.

Dans mon classeur A j'ai :
Cellule A1 : corps du mail
Cellule A2 : date du jour
Cellule A3 : date condition
Cellule A4 : adresse mails concerné
Cellule A5 : objet du mail

Je souhaite que le mail avec pour objet A5 et corps de mail A1 soit envoyé automatiquement (dès l'ouverture de excel) à A4 si A2 = A3 sinon ne rien faire sur le fichier.

Pouvez vous m'aider ?
Merci par avance.

 

[Compte Supprimé 979]

Bonjour Lirna

On doit pouvoir t'aider Voici le fichier avec le code demandé

A+

 

[Lirna]

Super merci pour ta rapidité.
tu es plus rapide que moi qui test pour l'appliquer.

J'ai quelques petites questions sur le fichier :
- Tu as mis un bouton test, c'est en plus que l'exécution automatique du fichier ?
- Lorsque j'ai préparer ma cellule de texte je l'ai préparer sous cette forme :
=CONCATENER(B186&CAR(10)&CAR(10);B187&CAR(10);B188&CAR(10)&CAR(10))
&CAR(10) : qui permet de mettre à la ligne.
Hors la je me retrouve avec dans mon corps de mail tout qui ce retrouve à la suite il prend pas en compte &CAR(10)

Est il possible de faire autrement ou au lieu d'une seul cellule de saisir en avoir plusieurs pour remplacer mes sauts de ligne ?

- Dernier question : est-il possible de garder la mise en page excel dans le mail ?

En tout cas encore merci pour ce que tu fait pour moi.

 

[Compte Supprimé 979]

Re,

Super merci pour ta rapidité.
tu es plus rapide que moi qui test pour l'appliquer.

J'ai quelques petites questions sur le fichier :
- Tu as mis un bouton test, c'est en plus que l'exécution automatique du fichier ?

Oui, tout à fait

- Lorsque j'ai préparer ma cellule de texte je l'ai préparer sous cette forme :
=CONCATENER(B186&CAR(10)&CAR(10);B187&CAR(10);B188&CAR(10)&CAR(10))
&CAR(10) : qui permet de mettre à la ligne.
Hors la je me retrouve avec dans mon corps de mail tout qui ce retrouve à la suite il prend pas en compte &CAR(10)

Tu ne nous avais pas dis qu'il y avait des retours à la ligne

Est il possible de faire autrement ou au lieu d'une seul cellule de saisir en avoir plusieurs pour remplacer mes sauts de ligne ?

Pas besoin, on peut le traiter dans le VBA
Tu sais que tu n'as pas besoin d'utiliser la fonction CONCATENER()

- Dernier question : est-il possible de garder la mise en page excel dans le mail ?

Là, je n'ai pas compris !?

Ci-joint un nouveau fichier test, j'ai remplacé les lignes 186, 187 et 188 par 16,17 et 18 pour plus de commodité

A+

 

[Lirna]

Tu ne nous avais pas dis qu'il y avait des retours à la ligne

Je pensais pas que cela avait son importance ^^

Ci-joint un nouveau fichier test

Super merci.

Pour la mise en page je veux parler de mettre du gras ou de la couleur sur un texte dans une cellule et que sa le garde.

 

[Lirna]

En faite mon dossier de base et ce que je souhaite effectué est plus complexe que sa.
Je vais faire en sorte de supprimé les éléments confidentiel pour vous montrer ce que souhaite exactement faire.
Ce sera plus parlant.
Bonne soirée à tous.

 

[Lirna]

Bonjour BrunoM45,

Suite à ton aide j'ai beaucoup avancé dans mon dossier.
J'ai malgré tout quelques problèmes (sa ne serait pas drôle sinon )

Je souhaiterais car l'ouverture du fichier excel les macros se lance.
Hors la je suis obligé de les lancer manuellement.
Dans le fichier aujourd'hui je devrais avoir normalement 2 mails qui part.

Mon autre incident c'est que le mail ce génère mais ne s'envoie pas.
Pour la macro 5 cela me va bien mais pas pour les autres.

Autre question qui n'a rien a voir avec le VBA : trouvez vous mon fichier complexe ?

 

[Compte Supprimé 979]

Salut Lirma,

Suite à ton aide j'ai beaucoup avancé dans mon dossier.
J'ai malgré tout quelques problèmes (sa ne serait pas drôle sinon )

C'est clair, ce ne serait vraiment pas drôle

Je souhaiterais qu'à l'ouverture du fichier excel les macros se lance.
Hors la je suis obligé de les lancer manuellement.
Dans le fichier aujourd'hui je devrais avoir normalement 2 mails qui part.

Il faut pour cela utiliser l'évènement Workbook_Open dans ThisWorkbook, c'est fait

Mon autre incident c'est que le mail ce génère mais ne s'envoie pas.
Pour la macro 5 cela me va bien mais pas pour les autres.

J'avais décoché exprès le

.Send

qui te permet de lancer le mail

Autre question qui n'a rien a voir avec le VBA : trouvez vous mon fichier complexe ?

Perso non, plutôt bien fait

Sinon explications :
- J'ai nommé les différentes cellules à utiliser comme suit : DateJx, DateLx, MailToLx, MailCcLx, ObjetLx, MailLx
ou "x" représente le numéro du mail à envoyer, comme cela tes cellules peuvent se trouver sur n'importe qu'elle ligne.
- Dans le code je fais une boucle sur chaque mail en testant les dates et je crée le mail si dates différentes

Maintenant, je n'ai pas traité le problème si tu ouvres ton fichier plusieurs fois dans la journée

A+