Vba excel bouton email [Résolu/Fermé]

Signaler
Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018
-
cedric0715
Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018
-
Bonjour,

Bonjour,
Dans un dossier excel j'ai crée 5 FEUILLES, 1 feuille questionnaire, 1 bd réponse , 1introduction,1 résultat 1 liste technicien , est-ce possible d'envoyer ma feuille questionnaire et résultat dans ma boite de messagerie.
j'ai un lien hyper-texte qui me renvoie sur cette messagerie, mon problème est d'intégrer ma feuille questionnaire et résultat en tant que pièce jointe.
je sais qu'il y a des personnes + intelligentes que moi car je doit avoir une erreur dans mon code et ne trouve pas.
En remerçiant à l'avance les bonnes âmes qui me rendront ce service

trouvez mon fichier
http://www.cjoint.com/c/EKuihJBV52r

2 réponses

Messages postés
9517
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
30 décembre 2019
997
Bonjour,
Juste au passage, donc la pièce jointe est un classeur qui contient les 2 feuilles (questionnaire et résultat) oui / non
De plus est-ce que vous insérez aussi un message automatiquement (via le code vba) ou vous l'ajoutez manuellement .... ?
Merci de votre réponse.

Messages postés
9517
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
30 décembre 2019
997
Bonsoir,
Essayez donc avec cette procédure :
 Sub Envoi_jpp()
Dim Dest As String, Sujet As String
' copie des 2 feuilles sur un nouveau classeur temporaire
Sheets(Array("Questionnaire", "Résultat")).Copy
claprov = "cla_ques_resu"
Workbooks(ActiveWorkbook.Name).SaveAs claprov
Dest = "cedric.bredeche@eiffage.com" 'Saisir l'adresse mail
Sujet = "envoie questionaire elec"
Application.DisplayAlerts = False
' attention : si ReturnReceipt  = False ---> envoi direct  si True -->est prêt dans boîte d'envoi
ActiveWorkbook.SendMail Recipients:=Dest, Subject:=Sujet, ReturnReceipt:=True ' voir explication ligne au dessus
' récupérer répertoire et chemin complet du classeur temporaire
claprov = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
ActiveWorkbook.Close ' Fermer le classeur temporaire créé pour le courriel
Kill claprov ' Supprimer le classeur temporaire
Application.DisplayAlerts = True
End Sub




Salutations.
Le Pingou
cedric0715
Messages postés
210
Date d'inscription
mercredi 25 février 2015
Statut
Membre
Dernière intervention
6 mai 2018

MERCI