XL/Outlook : Creation mail avec import donnée
Résolu/Fermé
7808622H
Messages postés
292
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
19 mai 2018
-
Modifié par 7808622H le 23/03/2010 à 21:29
7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018 - 28 mars 2010 à 17:59
7808622H Messages postés 292 Date d'inscription samedi 23 février 2008 Statut Membre Dernière intervention 19 mai 2018 - 28 mars 2010 à 17:59
A voir également:
- XL/Outlook : Creation mail avec import donnée
- Compte outlook gratuit - Guide
- Nouveau outlook - Guide
- Outlook mot de passe oublié - Guide
- Réponse automatique outlook - Guide
- Synchroniser agenda outlook et gmail - Guide
6 réponses
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
Modifié par eriiic le 28/03/2010 à 17:14
Modifié par eriiic le 28/03/2010 à 17:14
nouvelle version mail : http://www.cijoint.fr/cjlink.php?file=cj201003/cijkwUak7y.xls
Tu peux ajuster le contenu du mail dans le code lors de la définition de corps1 et corps2.
eric
Tu peux ajuster le contenu du mail dans le code lors de la définition de corps1 et corps2.
eric
7808622H
Messages postés
292
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
19 mai 2018
4
25 mars 2010 à 00:03
25 mars 2010 à 00:03
bonsoir
Toujorus à la recherche d'un pro du Vba qui pourra m'aider
bonne soirée à toutes et à tous
Toujorus à la recherche d'un pro du Vba qui pourra m'aider
bonne soirée à toutes et à tous
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
Modifié par eriiic le 26/03/2010 à 06:59
Modifié par eriiic le 26/03/2010 à 06:59
Bonsoir,
Après pas mal de difficultés (les méthodes CDO me généraient toujours des erreurs) voici une proposition.
J'utilise des cellules intermédiaires pour la sélection d'adresse et le corps du message
Sélectionner le destinataire dans la liste déroulante à coté du bouton.
Penser à décaler la fenetre outlook avant l'envoi car on ne peut plus déplacer les fenetres et contrôler ce que l'on envoie.
780862H_2.xls
eric
Après pas mal de difficultés (les méthodes CDO me généraient toujours des erreurs) voici une proposition.
J'utilise des cellules intermédiaires pour la sélection d'adresse et le corps du message
Sélectionner le destinataire dans la liste déroulante à coté du bouton.
Penser à décaler la fenetre outlook avant l'envoi car on ne peut plus déplacer les fenetres et contrôler ce que l'on envoie.
780862H_2.xls
eric
7808622H
Messages postés
292
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
19 mai 2018
4
26 mars 2010 à 15:34
26 mars 2010 à 15:34
bonjour Eriic
apres test je n'arrive pas a activer l'envoi de mail le bouton n agit pas ou alors je n'ai pas procédé comme il fallait
de plus apparemment le fait de faire des teste, ( mettre une date a la place de refus, ou de tenter de recréer une ligne bug tout le code de coloration
ai je cafouillé quelque part dans les manip ?
et par contre je suis preneur pour savoir ce que sont les methodes CDO
En tout cas je vois que je te cause bcp de tracas , j espère que tu pourras quand même m'aider, car franchement je vois bie nque c'est un casse tête sans nom
Encore merci à toi
apres test je n'arrive pas a activer l'envoi de mail le bouton n agit pas ou alors je n'ai pas procédé comme il fallait
de plus apparemment le fait de faire des teste, ( mettre une date a la place de refus, ou de tenter de recréer une ligne bug tout le code de coloration
ai je cafouillé quelque part dans les manip ?
et par contre je suis preneur pour savoir ce que sont les methodes CDO
En tout cas je vois que je te cause bcp de tracas , j espère que tu pourras quand même m'aider, car franchement je vois bie nque c'est un casse tête sans nom
Encore merci à toi
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
26 mars 2010 à 17:42
26 mars 2010 à 17:42
Moi j'ai 2 moitiés de fichier car le second que tu as envoyé était allégé, difficile de répondre...
Théoriquement la nouvelle macro n'a aucun impact sur celle de mise en forme.
Part donc du classeur avec mise en forme qui marche et ajoute la macro + les formules en BD3:BD4 + la liste déroulante avec ses propriétés.
Et s'il y a toujours un pb que tu n'arrives pas à résoudre c'est ce fichier compilé qu'il faudrait uploader
Théoriquement la nouvelle macro n'a aucun impact sur celle de mise en forme.
Part donc du classeur avec mise en forme qui marche et ajoute la macro + les formules en BD3:BD4 + la liste déroulante avec ses propriétés.
Et s'il y a toujours un pb que tu n'arrives pas à résoudre c'est ce fichier compilé qu'il faudrait uploader
7808622H
Messages postés
292
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
19 mai 2018
4
26 mars 2010 à 18:41
26 mars 2010 à 18:41
ok j attaque ca
depusi tout a l heure j essaye defaire des manip pour tenter de trouver mais sans grand succes,
je test sinon je t'envoi le fichier qui marche sans les modfifs et egalemetn le fichiers ou j'aurai ajouté les infos que tu m'as communiqué sur le nouveau fichier
depusi tout a l heure j essaye defaire des manip pour tenter de trouver mais sans grand succes,
je test sinon je t'envoi le fichier qui marche sans les modfifs et egalemetn le fichiers ou j'aurai ajouté les infos que tu m'as communiqué sur le nouveau fichier
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
7808622H
Messages postés
292
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
19 mai 2018
4
26 mars 2010 à 19:18
26 mars 2010 à 19:18
Re bonsoir Eriic
je pense avoir fait toutes les copies et les placements nécessaires mais ca ne marche pas
a moins d'avoir oublié quelque chose
je te joint le fichier sans les dernières modifs, celui déjà utilisé et qui fonctionne pour la coloration
En gros si la cellule de la colonne G contient 401 c'est bon, si elle contient un autre nombre il faut que la date Réacq° incrémente automatiquement la date de Suppr° sinon ca ne passe pas en vert et dans le cas ou le contenu de la cellule n'est pas 401, nous ne saisissons pas dans Date Réacq°
Par contre sauf erreur de ma part si j'ai réussi a décrypter ton code, le mail ne s'envoie que si REFUS est mentionné, hors on devrait avoir la possibilité d'envoyer le mail pour les deux cas, le REFUS ( qui est mentionné dans l'objet du mail suivi de la BU et de la pièce) ou un ACCORD si la cellule contient une date
Je te joins donc 2 fichiers :
- le fichier uniquement avec couleur qui fonctionne à l'heure actuelle : https://www.cjoint.com/?dAtooA8EhY
- le meme fichier dans lequel j'ai ajouté tes modifs, mais ca plante : https://www.cjoint.com/?dAtiREVFop
j ai rajouté le code envoiMail sur le bouton MAIL RETOUR car il n'y avait rien de présent sous ce bouton
NB : si tu peux jeter un coup d'oeil dans la cellule N5 du fichier modifié , j'ai intègré une formule conditionnelle pour tester mais ca serait bien de pouvoir l'intégrer en code , c'est un souci que j'ai repéré ce matin au bureau
Merci
Céd
je pense avoir fait toutes les copies et les placements nécessaires mais ca ne marche pas
a moins d'avoir oublié quelque chose
je te joint le fichier sans les dernières modifs, celui déjà utilisé et qui fonctionne pour la coloration
En gros si la cellule de la colonne G contient 401 c'est bon, si elle contient un autre nombre il faut que la date Réacq° incrémente automatiquement la date de Suppr° sinon ca ne passe pas en vert et dans le cas ou le contenu de la cellule n'est pas 401, nous ne saisissons pas dans Date Réacq°
Par contre sauf erreur de ma part si j'ai réussi a décrypter ton code, le mail ne s'envoie que si REFUS est mentionné, hors on devrait avoir la possibilité d'envoyer le mail pour les deux cas, le REFUS ( qui est mentionné dans l'objet du mail suivi de la BU et de la pièce) ou un ACCORD si la cellule contient une date
Je te joins donc 2 fichiers :
- le fichier uniquement avec couleur qui fonctionne à l'heure actuelle : https://www.cjoint.com/?dAtooA8EhY
- le meme fichier dans lequel j'ai ajouté tes modifs, mais ca plante : https://www.cjoint.com/?dAtiREVFop
j ai rajouté le code envoiMail sur le bouton MAIL RETOUR car il n'y avait rien de présent sous ce bouton
NB : si tu peux jeter un coup d'oeil dans la cellule N5 du fichier modifié , j'ai intègré une formule conditionnelle pour tester mais ca serait bien de pouvoir l'intégrer en code , c'est un souci que j'ai repéré ce matin au bureau
Merci
Céd
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
Modifié par eriiic le 26/03/2010 à 19:34
Modifié par eriiic le 26/03/2010 à 19:34
Tu peux recontrôler le fonctionnement du 1er classeur ?
Avant même de tester je me demande où est passée la feuille 'Listes' où la macro récupère le code couleur....
Et si tu pouvais me rappeler un cas de figure où c'est mauvais. Je ne me rappelle pas tout...
EDIT: en plus il y a un mot de passe....
Avant même de tester je me demande où est passée la feuille 'Listes' où la macro récupère le code couleur....
Et si tu pouvais me rappeler un cas de figure où c'est mauvais. Je ne me rappelle pas tout...
EDIT: en plus il y a un mot de passe....
7808622H
Messages postés
292
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
19 mai 2018
4
26 mars 2010 à 20:30
26 mars 2010 à 20:30
vraissemblablement impossible de poster mon explicatif
est ce qu'un tout petit message passera ???? si oui je te met un cjoint pour avoir l'explicatif complet car la le site plante et je n'arrive pas a poster le poste ( peut etre trop gros)
https://www.cjoint.com/?dAuD2RhKxJ
Merci Mister
est ce qu'un tout petit message passera ???? si oui je te met un cjoint pour avoir l'explicatif complet car la le site plante et je n'arrive pas a poster le poste ( peut etre trop gros)
https://www.cjoint.com/?dAuD2RhKxJ
Merci Mister
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
Modifié par eriiic le 26/03/2010 à 23:04
Modifié par eriiic le 26/03/2010 à 23:04
J'avoue que j'ai un peu de mal à te suivre...
Je ne vois pas de différence de fonctionnement entre les 2 fichiers, donc l'ajout du mail ne change rien.
Les 100 : La coloration actuelle fonctionne donc c'est bon aussi non ?
Les 300 : tu ajoutes un nouveau critère motif = ou <> 401
J'ai modifié, contrôle si c'est le fonctionnement désiré.
J'ai donc ajouté la colonne 7 aux colonne à surveiller.
Si il y a d'autres anomalies du même type précise le n° de colonne concernée en plus du libellé, C'est plus simple pour que je m'y retrouve
Pour le format du mail je me suis basé basé sur l'image. J'ai ajouté des retours à la ligne mais pas sûr que ce soit au bon endroit. Tu peux ajuster en ajoutant '& vbcrlf ' au bout des lignes corps1=.... et corps2=....
Pour ajouter une ligne continue je ne sais pas faire, si "-----------" peut faire l'affaire il faudra l'insérer au bon endroit.
http://www.cijoint.fr/cjlink.php?file=cj201003/cijkclUgI4.xls
eric
Je ne vois pas de différence de fonctionnement entre les 2 fichiers, donc l'ajout du mail ne change rien.
Les 100 : La coloration actuelle fonctionne donc c'est bon aussi non ?
Les 300 : tu ajoutes un nouveau critère motif = ou <> 401
J'ai modifié, contrôle si c'est le fonctionnement désiré.
J'ai donc ajouté la colonne 7 aux colonne à surveiller.
Si il y a d'autres anomalies du même type précise le n° de colonne concernée en plus du libellé, C'est plus simple pour que je m'y retrouve
Pour le format du mail je me suis basé basé sur l'image. J'ai ajouté des retours à la ligne mais pas sûr que ce soit au bon endroit. Tu peux ajuster en ajoutant '& vbcrlf ' au bout des lignes corps1=.... et corps2=....
Pour ajouter une ligne continue je ne sais pas faire, si "-----------" peut faire l'affaire il faudra l'insérer au bon endroit.
http://www.cijoint.fr/cjlink.php?file=cj201003/cijkclUgI4.xls
eric
7808622H
Messages postés
292
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
19 mai 2018
4
26 mars 2010 à 23:39
26 mars 2010 à 23:39
alors c'est bon pour le 300 c'etait le seul oublie que javais fait dans la mise en forme des colorations
concernant le 100 oui il fonctionne en coloration, les explications etaient pour l'envoi de mail
la je viens de faire le test sur le fichier
j'ai saisi une ligne avec date un nom de comptable un 100 avec une date dans ma colonne 12 et un test egalement avec REFUS
j'ai selectionné le nom dans la liste déroulante du haut
j'ai cliqué sur le bouton
et la ca plante au niveau de " ActiveWorkbook.EnvelopeVisible = True" dans le code
le message Vba qui apparait au clique du bouton est
erreur d'execution '1004':
La methode 'envelipevisible de l'objet'_workbook' a échoué
est ce la bonne methode que j'ai faite ? ou y a t il une manipe differente a faire ?
concernant le 100 oui il fonctionne en coloration, les explications etaient pour l'envoi de mail
la je viens de faire le test sur le fichier
j'ai saisi une ligne avec date un nom de comptable un 100 avec une date dans ma colonne 12 et un test egalement avec REFUS
j'ai selectionné le nom dans la liste déroulante du haut
j'ai cliqué sur le bouton
et la ca plante au niveau de " ActiveWorkbook.EnvelopeVisible = True" dans le code
le message Vba qui apparait au clique du bouton est
erreur d'execution '1004':
La methode 'envelipevisible de l'objet'_workbook' a échoué
est ce la bonne methode que j'ai faite ? ou y a t il une manipe differente a faire ?
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
26 mars 2010 à 23:56
26 mars 2010 à 23:56
non, rien d'autre à faire.
Moi ça tourne avec excel 2003 et outlook 2003. Qu'elle est ta config ?
De toute façon qu'elle soit identique ou non je ne vois pas bien ce que je pourrais faire.
Tente au boulot si ça fait pareil...
Une chose que j'ai oublié de te dire c'est d'élargir BH pour éviter les retours à la ligne intempestifs dans le mail
Moi ça tourne avec excel 2003 et outlook 2003. Qu'elle est ta config ?
De toute façon qu'elle soit identique ou non je ne vois pas bien ce que je pourrais faire.
Tente au boulot si ça fait pareil...
Une chose que j'ai oublié de te dire c'est d'élargir BH pour éviter les retours à la ligne intempestifs dans le mail
7808622H
Messages postés
292
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
19 mai 2018
4
27 mars 2010 à 00:04
27 mars 2010 à 00:04
ah bah peut etre que ca joue chez moi suis en outlook 2007 et excel 2003
mais au bureau tout est en 2003
le probleme plante peut etre a partir de la ,
ok je fait le test debut de semaine et dans tout lescas je te met un tit message pour te dire si ca marche sans probleme
Merci pour tes efforts de patience c 'est vraiment sympa
Passe un bon week end
mais au bureau tout est en 2003
le probleme plante peut etre a partir de la ,
ok je fait le test debut de semaine et dans tout lescas je te met un tit message pour te dire si ca marche sans probleme
Merci pour tes efforts de patience c 'est vraiment sympa
Passe un bon week end
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
27 mars 2010 à 12:29
27 mars 2010 à 12:29
J'ai trouvé une nouvelle façon pour les mails.
D'ici dimanche soir, selon ma dispo, il y aura sans doute un autre fichier à tester.
eric
D'ici dimanche soir, selon ma dispo, il y aura sans doute un autre fichier à tester.
eric
7808622H
Messages postés
292
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
19 mai 2018
4
28 mars 2010 à 14:36
28 mars 2010 à 14:36
bonjour Eriic
en continuant a bidouiller dans les recherches qui pourraient aiguiller j'ai trouver ceci
Peut etre que cela pourra te servir pour l'envoi du mail, le truc que je ne gère pas du tout c'est la version de selection des infos dans la ligne concernée et les placée dans le mail aux endroits respectifs qui vont bien
L'idée serait
Avec un module IF ... THEN ....
pour l'adresse mail ca reprendrai la cellule cocnernee en BD4
et selon si la cellule ACCORD RETOUR a une date, le sujet pourrait être "ACCORD RETOUR FOUR P" et si la cellule contient REFUS , le sujet pourrait être "REFUS RETOUR FOUR P"
( dans l'idée du dessous je garderai le .display pour validation visuelle) des données
Envoi d'un mail pour prevenir d'une modification
Dans l'exemple adresse mail en A1 et A2. Ensuite tu affectes la macro ci-dessous à un bouton :
Sub EnvoiMail_Outlook()
'Creation de l'objet e-mail
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailItem)
'Caractéristiques de l'e-mail
With olmail
.To = Range("Feuil1!A1").Value & ";" & Range("Feuil1!A2").Value
'Affiche le nom comme objet du message
.Subject = ActiveWorkbook.FullName
.Body = "je vous informe que des modifcations ont été réalisées sur cette feuille ..."
'Pièces jointes si il y a lieu
.Attachments.Add "C:\PGI\Résultats.xls"
'Remplacez .Display par .send pour envoyer directement l'e-mail sans l'afficher dans Outlook
.Display
End With
End Sub
Qu'en pense tu ?
en continuant a bidouiller dans les recherches qui pourraient aiguiller j'ai trouver ceci
Peut etre que cela pourra te servir pour l'envoi du mail, le truc que je ne gère pas du tout c'est la version de selection des infos dans la ligne concernée et les placée dans le mail aux endroits respectifs qui vont bien
L'idée serait
Avec un module IF ... THEN ....
pour l'adresse mail ca reprendrai la cellule cocnernee en BD4
et selon si la cellule ACCORD RETOUR a une date, le sujet pourrait être "ACCORD RETOUR FOUR P" et si la cellule contient REFUS , le sujet pourrait être "REFUS RETOUR FOUR P"
( dans l'idée du dessous je garderai le .display pour validation visuelle) des données
Envoi d'un mail pour prevenir d'une modification
Dans l'exemple adresse mail en A1 et A2. Ensuite tu affectes la macro ci-dessous à un bouton :
Sub EnvoiMail_Outlook()
'Creation de l'objet e-mail
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailItem)
'Caractéristiques de l'e-mail
With olmail
.To = Range("Feuil1!A1").Value & ";" & Range("Feuil1!A2").Value
'Affiche le nom comme objet du message
.Subject = ActiveWorkbook.FullName
.Body = "je vous informe que des modifcations ont été réalisées sur cette feuille ..."
'Pièces jointes si il y a lieu
.Attachments.Add "C:\PGI\Résultats.xls"
'Remplacez .Display par .send pour envoyer directement l'e-mail sans l'afficher dans Outlook
.Display
End With
End Sub
Qu'en pense tu ?
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
28 mars 2010 à 15:33
28 mars 2010 à 15:33
Bonjour,
C'est à-peu près la proc que j'avais récupérée.
J'avais testé en isolé, c'est ok.
Il faut juste que je trouve un peu de temps pour adapter à ton fichier, ce soir ça devrait être bon.
eric
C'est à-peu près la proc que j'avais récupérée.
J'avais testé en isolé, c'est ok.
Il faut juste que je trouve un peu de temps pour adapter à ton fichier, ce soir ça devrait être bon.
eric
28 mars 2010 à 17:59
C'est exactement ce dont j'avais besoin et ca marche au poil
en ENOOOOOOOOOORME merci beaucoup beaucoup
et en prime j'arrive a saisir le sens du code donc j'ai pu modifier les données du corps de message
Merci pour ce super taf