Sujet Précédent Sujet Suivant

Vba excel bouton email

Résolu/Fermé
cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 20 nov. 2015 à 09:07
cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 22 nov. 2015 à 13:04
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
https://www.cjoint.com/c/EKuihJBV52r
A voir également:

2 réponses

Réponse 1 / 2
Le Pingou Messages postés 12229 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 9 janvier 2025 1 454
20 nov. 2015 à 17:23
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.

0
Réponse 2 / 2
Le Pingou Messages postés 12229 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 9 janvier 2025 1 454
Modifié par Le Pingou le 21/11/2015 à 00:07
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
0
cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
22 nov. 2015 à 13:04
MERCI
0