Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Lirna

XLDnaute Nouveau
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.
 
C

Compte Supprimé 979

Guest
Bonjour Lirna

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

A+
 

Pièces jointes

  • Lirna_Test.xlsm
    18 KB · Affichages: 16
Dernière modification par un modérateur:

Lirna

XLDnaute Nouveau
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.
 
C

Compte Supprimé 979

Guest
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

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+
 

Pièces jointes

  • Lirna_Test.xlsm
    17.5 KB · Affichages: 12

Lirna

XLDnaute Nouveau
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

XLDnaute Nouveau
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 ?
 

Pièces jointes

  • Suivi prestation Collab EXEMPLE.xlsm
    80.1 KB · Affichages: 14
C

Compte Supprimé 979

Guest
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
VB:
.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+
 

Pièces jointes

  • Lirma_Suivi prestation Collab vBrunoM45.xlsm
    74.9 KB · Affichages: 16
Dernière modification par un modérateur:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…