Code VBA : Envois d'un mail (avec citation de cellules dans le corps)
Bonjour,
Après une multitude de recherche sur le net je fait de nouveau appel à vous...
Voici mon problème :
Dans mon fichier excel, j'ai mis en place un bouton de commande qui, j'aimerais envois un mail automatiquement via outlook avec dans le corps du mail, du texte et des citations de cellules.
Exemple de corps de message :
Bonjour,
Merci de préparer la référence du "Cellule A1" ("Cellule A2") vers le "Cellule A3" ("Cellule A4") pour la ligne "Cellule A5"
Bonne journée.Voici le code qu' j'ai pour le moment :
Private Sub CommandButton1_Click()
If MsgBox("Envoyer une demande de référence couleur ?", 36, "Confirmation") = vbYes Then
Set MyApp = CreateObject("Outlook.Application")
Set MyItem = MyApp.CreateItem(0)
With MyItem
.To = "mon@adresse.com"
.Subject = "Demande de référence couleur"
.ReadReceiptRequested = False
.HTMLBody = "Bonjour,<br><br>Merci de préparer la référence du "Cellule A1" ("Cellule A2") vers le "Cellule A3" ("Cellule A4") pour la ligne "Cellule A5"<br><br>Bonne journee !"
End With
MyItem.Send
MsgBox "Demande envoyée" & vbCrLf & "Merci et bonne journee !"
End If
End SubL'envois de mail avec du texte brut marche parfaitement avec ce code mais c'est une autre histoire pour citer des cellules...
Merci d'avance pour votre aide, et je reste à votre disposition si besoin de plus d'information !
edit : je ne sais pas si cela a son utilisé mais les cellules en question contiennent des formules, j'aimerais que ce soit le résultat de la formule qui soit afficher
Bonjour,
Je n'ai pas très bien compris votre problème. Qu'est ce que vous voulez concrètement ?
Citer des cellules ?
Bonjour à tous,
Après une multitude de recherche sur le net
Il y a plein de liens sur internet qui traitent de ce sujet sur le net...
Voici un essai :
sbody = "<html><body>Bonjour,<br><br>Merci de préparer la référence du " & range("A1") & " (" & range("A2") & ") vers le " & [A3] & " (" & [A4] & ") pour la ligne " & [A5] & "<br><br>Bonne journee !</body></html>"
'plus bas
.htmlbody = sbodyCdlt,
sbody = "Bonjour,
Merci de préparer la référence du " & range("A1") & " (" & range("A2") & ") vers le " & [A3] & " (" & [A4] & ") pour la ligne " & [A5] & "
Bonne journee !"'plus bas
.htmlbody = sbody
Merci cela fonctionne parfaitement !!!
Il y a plein de liens sur internet qui traitent de ce sujet sur le net...
J'ai effectivement trouvé pas mal de code, mais aucun de fonctionnel, je revenais souvent à une erreur "end sub manquant" ou alors un blocage complet...
Bonjour,
Je n'ai pas très bien compris votre problème. Qu'est ce que vous voulez concrètement ?
Citer des cellules ?
3GB a bien compris ma demande et résolu mon problème, merci quand même du coup de main !
Je clos le sujet et le passe en résolu, merci beaucoup ça fait quelques jours que je planche dessus !