Vba excel bouton email
Résolu
cedric0715
Messages postés
210
Date d'inscription
Statut
Membre
Dernière intervention
-
cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention -
cedric0715 Messages postés 210 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Vba excel bouton email
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment creer un compte email - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
2 réponses
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.
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.
Bonsoir,
Essayez donc avec cette procédure :
Salutations.
Le Pingou
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