lien hypertexte vers mail sous excel 2003

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 !

kingrom92

XLDnaute Nouveau
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
 
- 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

Réponses
2
Affichages
809
Réponses
1
Affichages
1 K
Retour