modification macro génération email outlook

  • Initiateur de la discussion Initiateur de la discussion ironangel
  • 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 !

ironangel

XLDnaute Occasionnel
Bonjour le forum,

j'ai récupéré une macro sur le forum et j'aimerais la modifier à ma sauce.
Voici la macro:

Private Sub CommandButton1_Click()
'Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("a4")
Subj = Range("a2")
Msg = Msg & Range("a3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub

J'aimerais la modifier pour qu'elle réponde à mes besoins (définis dans le fichier ci-joint)

Merci d'avance pour votre aide et votre temps

seb
 

Pièces jointes

Re : modification macro génération email outlook

Bonjour Ironangel, bonjour le forum,

je te propose la macro événementielle Change ci-dessous :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Byte 'déclare la variable x
Dim Msg As String
Dim Subj As String
Dim URLto As String
 
If Target.Column <> 4 Then Exit Sub 'condition si l'édition a lieu ailleurs que dans la colonne D, sort de la procédure
'oblige à renseigner les colonnes A, B et C
For x = 1 To 3 'boucles sur les colonnes A, B et C
    If Cells(Target.Row, x) = "" Then Exit Sub 'si la cellule est vide, sort de la procédure
Next x
 
Subj = Cells(Target.Row, 1)
Msg = Cells(Target.Row, 1) & " " & Cells(Target.Row, 3) & " " & Cells(Target.Row, 4)

URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
 
Dernière édition:
Re : modification macro génération email outlook

Bonsoir IronAngel, bonsoir le forum,

Non désolé j'ai testé chez moi ça marche... As-tu bien placé le code dans le composant WorkSheet (l'onglet) approprié (par exemple Feuil1(Feuil1)) ? Car comme c'est une marco événementielle elle ne doit pas être placée dans un module...
 
Re : modification macro génération email outlook

Merci robert,

effectivement, je l'avais placé dans un module, c'est pour cela que ça ne marchait pas.
Dit moi j'aimerais pouvoir faire de même pour la colonne G et J, c'est à dire ouverture d'un mail si je remplit E F puis G et également ouverture d'un mail si je remplit H I puis J, est ce possible?:
objet du mail = colonne A dans tout les cas

Merci de ton aide, ça me permet d'avancer ;-)
 
Re : modification macro génération email outlook

Hello,

Ironangel, moi je t'en donnes de l'aide... Sois un peu plus respectueux et tu en auras plus de l'aide !!!

Me concernant, il y a au moins deux postes dans les dix premières pages du Forum, dans lesquels tu n'as pas daigné, d'une part, revenir ou pour confirmer que l'aide qu'on a pu t'apporter était bonne, ou pour un simple merci.

Tu insiste, et insiste pour que les gens t'aident et après aucune reconnaissance... pas la bonne méthode !

Perso, je te mets dans ma liste noire et je te le fais savoir.

Cdt, Hulk.
 
Re : modification macro génération email outlook

Oulala dsl de t'avoir vexé, ce n'était pas le but et si j'ai vexé qqun d'autres j'en suis fort déçu. J'essaye pourtant d'être reconnaissant mais il est vrai que dans certains posts, il m'est peut être arrivé de ne pas donner suite mais dans la majeur partie des cas ce n'est pas le cas.
Je ne suis en aucun cas non reconnaissant mais je ferais plus attention par la suite.
Cependant, je ne pense pas que ce soit la manière la plus judicieuse de s'adresser au gens car en aucun cas je ne t'ai manqué de respect.

Merci aux personnes qui m'aident en me donnant de leur temps, j'en ferais de même si je le pouvais 🙂
 
Re : modification macro génération email outlook

Hello,

Ah dans l'histoire en plus c'est moi qui ne suis pas judicieux... Bien sûr.

Ok pas de prob.

Une autre chose, il m'en faut un peu plus que ça pour me vexer, je dis ce que je pense, c'est tout.

Par contre déçu oui je le suis.

Cdt, Hulk.
 
- 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

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
917
Réponses
4
Affichages
680
Réponses
10
Affichages
660
Réponses
2
Affichages
931
  • Question Question
Microsoft 365 Macro VBA
Réponses
2
Affichages
578
Retour