VBA Macro envoi Mail tableau selectionné

Question

Bonjour, 

Tout d'abord, je tiens à vous dire que je suis débutante sur VBA et que je vous remercie par avance de répondre à ma question.

J'aimerais créer une macro qui me permette:
-d'envoyer un mail via outlook avec une adresse de destinataire définie, où le corps du message soit un tableau selectionné (dans une feuille excel) et avec un titre de message que je puisse définir à l'aide de cases excel.

Je ne sais pas si je suis claire.

En gros, j'aimerais selectionner le tableau (dans ma feuille excel) et cliquer sur un bouton pour l'envoyer à un destinataire défini.

Merci d'avance.

Marina

Configuration: Windows Vista / Internet Explorer 9.0

Patrice33740 · Answer

Essaies ce code (en mettant à jour les adresses mail) :
Private Sub MonMessage()
Dim Objet As String
Dim Texte As String
  
  'Objet en B1
  Objet = ActiveSheet.Range("B1").Value
  'Texte : 5 lignes de B2 à B6
  Texte = Join(Application.Transpose(ActiveSheet.Range("B2:B6").Value), vbLf)
  
  Call EnvoiEmailOutlook(Objet, Texte)
         
End Sub
 
Private Sub EnvoiEmailOutlook(ByVal Objet As String, ByVal Texte As String)
Dim App As Object
Dim Itm As Object
Dim Envoyer_à As String
Dim Copie_à As String
 
  Envoyer_à = "adresse_destinaire@domaine.fr"
  Copie_à = "adresse_copie@domaine.fr"
  Set App = CreateObject("Outlook.Application")
  Set Itm = App.CreateItem(0)
  With Itm
    .Subject = Objet
    .To = Envoyer_à
    .CC = Copie_à
    .Body = Texte
    .send
  End With
  Set App = Nothing
  Set Itm = Nothing
 
End Sub

MarinaV · Answer

Merci beaucoup pour ton message. C'est super sympa!!
Alors, j'ai supprimé private dans sub monmessage pour pouvoir assigner la macro à un bouton.

J'ai juste une petite modification : dans ta formule tu indiques un texte avec des lignes fixes : 'Texte : 5 lignes de B2 à B6
Je souhaiterais avoir comme texte, les cellules que je sélectionne et garder la mise en forme qui va avec.

Quelle macro utilisais??

Merci d'avance.

Marina.

Patrice33740 · Answer

« Je souhaiterais avoir comme texte, les cellules que je sélectionne »
Modifier la procédure comme suit :
Private Sub MonMessage()
Dim Objet As String
Dim Texte As String
Dim rng As Range
  
  ActiveCell.Activate      ' pour désélectionner un éventuel objet
  Set rng = Selection
  If rng.Columns.Count > 1 Then
    MsgBox "Le texte doit se trouver dans un seule colonne", vbCritical
    Exit Sub
  End If
  'Objet sur la première cellule sélectionnée
  Objet = rng.Cells(1, 1).Value
  'Texte : autres cellules sélectionnées
  Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)
  Texte = Join(Application.Transpose(rng.Value), vbLf)
  Call EnvoiEmailOutlook(Objet, Texte)
         
End Sub
Par contre, « et garder la mise en forme qui va avec. », désolé mais ce n'est pas possible avec cette méthode.

VBA Macro envoi Mail tableau selectionné

3 réponses

Discussions similaires

Newsletters