Bonjour le forum,
Je vous sollicite encore une fois car je me trouve devant un probleme:
Je possède actuellement une macro qui me permet lorsque j'entre des données dans des cellules, d'ouvrir automatiquement un mail outlook reprenant les infos de la derniere ligne complété.
J'aimerais l'améliorer en ajoutant un message type avant qu'ils introduisent les infos des cellules complétés:
Pour exemple: j'aimerais ajouter ajouter un message du genre "Bonjour..." puis copier les données de mes cellules et finir par un "Cordialement"
Je joins la macro pour infos:
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 et D
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
Merci d'avance pour votre temps et votre aide
Amicalement
Je vous sollicite encore une fois car je me trouve devant un probleme:
Je possède actuellement une macro qui me permet lorsque j'entre des données dans des cellules, d'ouvrir automatiquement un mail outlook reprenant les infos de la derniere ligne complété.
J'aimerais l'améliorer en ajoutant un message type avant qu'ils introduisent les infos des cellules complétés:
Pour exemple: j'aimerais ajouter ajouter un message du genre "Bonjour..." puis copier les données de mes cellules et finir par un "Cordialement"
Je joins la macro pour infos:
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 et D
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
Merci d'avance pour votre temps et votre aide
Amicalement