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

Envoi de mail via excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Adeus33
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Adeus33

XLDnaute Occasionnel
Bonjour tous le monde

Je cherche a envoyé un onglet d'un classeur excel via lotus notes, mais pas en fichier joint , j'aimerai faire un copier coller des cellules (dans mon cas cellules de A1 à H26 de la Feuil3)

J'ai déjà réussi a envoyé un mail à l'aide du code suivant:
Code: 
Sub EnvoiUnMail()
Dim MailAd As String
Dim msg As String
Dim Subj As String
Dim URLto As String
Dim MonMessage As Object

MailAd = Sheets('Feuil2').Range('B3')'emplacement de l'adresse mail
Subj = Sheets('Feuil2').Range('B4')'emplacement du titre du mail
msg = Sheets('Feuil2').Range('B5')'Corp du mail

URLto = 'mailto:' & MailAd & '?subject=' & Subj & '&body=' & msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Mon but est donc de mettre le cellules de A1 à H26 de la Feuil3 en Corp du mail.

Sachant que je n'ai pas réussi, j'ai eu l'idée de transformer l'onglet en question (Feuil3) en format HTML de manière a pouvoir l'incorporer dans le mail mais je n'ai pas réussi et c'est pour cela que je reviens vers vous en esperant qu'une ame charitable m'aide a trouver la solution.

Je me tiens a votre disposition pour tous renseignement supplémentaires.


Adeus33
 
Trier par date Trier par votes
Toujours personne!?

C'est pourtant un bon défis. Je suis surpris que si les as des as d'excel n'y arrive pas.

Enfin je continue a chercher. (mais je désespère un peu)

Bonne journée

Adeus33
 
Vote positif 0 Vote négatif
En farfouillant sur d'autre site j'ai trouver la procedure pour exporter une selection en GIF.

J'ai donc essayé de mettre en commum les deux codes:
Code: 
Sub EnvoiUnMailessai()
    Dim MailAd As String
    Dim msg As Object
    Dim Subj As String
    Dim URLto As String
    Dim MonMessage As Object
    Dim Plage As Range
    
    
    MailAd = Sheets('Donnée mail').Range('B3')   'adresse Email
    Subj = Sheets('Donnée mail').Range('B4')     'Titre du mail
    
    'Exportation de l'onglet au format GIF
    Feuil1.Select
    Set Plage = Application.InputBox(prompt:='Sélectionner votre zone: (Ex. A1:B10) ', _
    Title:='Sélection de zone ', Default:='$A$1', Type:=8)
    Application.ScreenUpdating = False
    Workbooks.Add
    Plage.CopyPicture
    ActiveSheet.Paste
    With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
        .Paste
        .Export 'C:\\Test.gif', 'GIF'
    End With
    

    With ActiveSheet.ChartObjects('Graphique 2')
        .Activate
        .Copy
    End With
    
    'Erreur au niveau de la ligne ci dessous
    msg = ActiveSheet.ChartObjects('Graphique 2')   'Corps du message
    

    URLto = 'mailto:' & MailAd & '?subject=' & Subj & '&body=' & msg
    ActiveWorkbook.FollowHyperlink Address:=URLto
    
    'ActiveWorkbook.Close False
End Sub

J'arrive donc a créer un objet gif dans un autre classeur, j'arrive également a selectionner cet objet mais je n'arrive pas a le coller dans la partie corp du message

J'y suis presque (enfin je pense) pour finir la manip manuellement je n'ai plus qu'a cliquer sur la partie corp de texte puis faire un coller et c'est bon mais j'aimerai que cela se fasse automatiquement.

Je vous join un petit exemple

[file name=mailgif.zip size=14925]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mailgif.zip[/file]

Merci d'avance
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour le forum, Adeus33, ERIC S,

Regardes sur le lien suivant si cette macro écrite par Michelxld le 20-06-04 pour Marc peut te servir.

Lien supprimé
lino
 
Vote positif 0 Vote négatif
Merci LINO60POST de t'interesser a mon probleme

En fait comme dans la plupart des codes que j'ai pu voir dans le forum, celui la permet d'envoyer des doc a l'aide des piece jointe alors que moi je souhaite simplement coller une image gif (qui est deja dans le presse papier )dans le corp du message.
En effet dans tous les codes que j'ai pu voir, le corp du message servait uniquement a mettre une simple phrase.

Voila j'espere que j'ai été assez clair dans mes explications.

En tous cas merci pour ton aide.

Adeus33
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
431
spike29
S
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
809
halecs93
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
536
spike29
S
  • Résolu(e)
XL 2019 Envoi d'Email dans Outlook OU ThunderBird, le tout en VBA.
Réponses
1
Affichages
132
DenisHen
R
  • Résolu(e)
Microsoft 365 Extraction contenu mail outlook vers excel
2
Réponses
18
Affichages
1 K
raf26
R
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
607
Phil69970
L
  • Question Question
Microsoft 365 Insérer une plage Excel en image sous VBA pour envoi mail auto
Réponses
1
Affichages
423
fanch55
A
  • Résolu(e)
XL 2021 Macro de création mail de relance avec référence cellules
Réponses
4
Affichages
722
arnoldbrice19
A
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
312
oguruma
C
  • Résolu(e)
XL 2016 VBA : inversion de Date sur Range.Resize ... = Tableau après Transpose du Tableau
Réponses
2
Affichages
249
crocrocro
C
J
  • Question Question
XL 2019 sélection et mise en page avant envoie mail
Réponses
5
Affichages
572
sylvanu
  • Résolu(e)
XL 2021 Revenir sur Excel
Réponses
6
Affichages
528
Franc58
F
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
255
JJ69
J
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
661
lesoldat9
L
M
  • Résolu(e)
XL 2016 envoi de mail en automatique en fonction de plusieurs menus deroulants
2
Réponses
26
Affichages
2 K
mathieu20
M
C
  • Question Question
XL 2019 Envoi mail : Condition dans un HTMLBODY
Réponses
2
Affichages
743
Cheyenne_2021
C
  • Résolu(e)
Microsoft 365 creation mail av capture ecran plage définie
Réponses
6
Affichages
1 K
looky62
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
1 K
mathieu20
M
K
  • Question Question
Microsoft 365 Macro VBA
Réponses
2
Affichages
554
fanch55
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
447
Maxou69
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…