Bonjour à vous,
j'ai passé pas mal de temps sur ce forum pour trouver la reponse à mon probleme et je ne l'ai pas trouvé...
Je cherche à afficher dans la colonne AM d'une feuille un lien vers un mail contenant des données de la feuille.
Le code ci dessous marche tres bien avec Excel 2000 mais depuis que je suis passé en Excel 2003, il me donne une erreur d'execution "1004".
Voicie le code, si quelqu'un a une idée je suis preneur ...
Sub MailFitTracker()
Dim j As Variant
Dim ActiveRow As Variant
Dim Adresse As Variant
Dim Sujet As Variant
Dim Message As Variant
Dim LastLine As Variant
LastLine = Sheets("FIT").Range("A3").CurrentRegion.End(xlDown).Row
For j = 3 To LastLine
ActiveRow = j
Adresse = Cells(ActiveRow, "AL")
Sujet = "[MCO-HF]: " & Range("F" & ActiveRow)
Message = "Ceci est un mail de suivi de la FIT : " & Range("F" & ActiveRow) & vbCrLf & _
"Statut de la FIT (ou PEP) : " & Range("AK" & ActiveRow) & vbCrLf & _
" " & vbCrLf
Message = Application.WorksheetFunction.Substitute(Message, vbCrLf, "%0D%0A")
Message = Application.WorksheetFunction.Substitute(Message, "&", "et")
ActiveSheet.Hyperlinks.Add Anchor:=Cells(ActiveRow, "AM"), _
Address:="mailto:" & Adresse & _
"?subject=" & Sujet & _
"&body=" & Message, _
ScreenTip:="Emission d'un mail de suivi", _
TextToDisplay:="envoyer mail"
Next
End Sub
merci de votre aide
j'ai passé pas mal de temps sur ce forum pour trouver la reponse à mon probleme et je ne l'ai pas trouvé...
Je cherche à afficher dans la colonne AM d'une feuille un lien vers un mail contenant des données de la feuille.
Le code ci dessous marche tres bien avec Excel 2000 mais depuis que je suis passé en Excel 2003, il me donne une erreur d'execution "1004".
Voicie le code, si quelqu'un a une idée je suis preneur ...
Sub MailFitTracker()
Dim j As Variant
Dim ActiveRow As Variant
Dim Adresse As Variant
Dim Sujet As Variant
Dim Message As Variant
Dim LastLine As Variant
LastLine = Sheets("FIT").Range("A3").CurrentRegion.End(xlDown).Row
For j = 3 To LastLine
ActiveRow = j
Adresse = Cells(ActiveRow, "AL")
Sujet = "[MCO-HF]: " & Range("F" & ActiveRow)
Message = "Ceci est un mail de suivi de la FIT : " & Range("F" & ActiveRow) & vbCrLf & _
"Statut de la FIT (ou PEP) : " & Range("AK" & ActiveRow) & vbCrLf & _
" " & vbCrLf
Message = Application.WorksheetFunction.Substitute(Message, vbCrLf, "%0D%0A")
Message = Application.WorksheetFunction.Substitute(Message, "&", "et")
ActiveSheet.Hyperlinks.Add Anchor:=Cells(ActiveRow, "AM"), _
Address:="mailto:" & Adresse & _
"?subject=" & Sujet & _
"&body=" & Message, _
ScreenTip:="Emission d'un mail de suivi", _
TextToDisplay:="envoyer mail"
Next
End Sub
merci de votre aide