XL 2019 macro vba pour lancer un texte et pj excel pour gmail

[jff74650]

bonjour
J'avais résisté longtemps pour une mise a jour Excel 1997 et je viens de passer en version 2019 pas trop de problèmes que des réglages.
simplement lors de l'envoi par macro vba j'ai un plantage sur la fonction schell urlto
quelqu'un a t il un programme de remplacement pour obtenir
l'adresse mail du destinataire
l'objet du mail
le texte du mail
et une pièce jointe
=====
Sub a_951_EnvoiUnMail_envoi_lettre_internet()
'Application.Run "XXXmoneyshop.xls!a_951_EnvoiUnMail_envoi_lettre_internet"
'Sheets("envoi_int_feuilleJ").Select
'
Dim pj As String 'non actif sous excel 2007
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
'zone adresse
MailAd = Trim(Range("c21").Value)
'zone objet
Subj = URLEncode(Range("c20").Value)
'_______________________
'copy zone texte
Range("B4:K178").Select
' Range("B2:K210").Select
Selection.Copy
'_______________________
'
'URLto = "firefox ""https://mail.google.com/mail/u/1/"
URLto = "firefox ""https://mail.google.com/mail/u/1/?view=cm&fs=1&tf=1&source=mailto&to=" & MailAd & "&su=" & Subj & "&body=" & Msg & """"
'MsgBox "951__aller sur gmail_faire 'ctrl V ' dans la zone texte message__"
Shell URLto
'ActiveWorkbook.FollowHyperlink Address:=URLto
'message pour allez sur gmail
ActiveWindow.View = xlNormalView
MsgBox strtest & "____'ctrl V ' dans la zone texte message_____951"

End Sub
================

Il y a surement un autre moyen de faire cette macro
merci

 

[Roland_M]

Bonsoir,

voir essai avec ce classeur !

 

[jff74650]

bonjour roland
merci de ton retour.
je vais tester dans les prochains jours pour l'adaptation et revoir toutes mes habitudes anciennes à mettre à jour 11 ans avec des fonctions et des emplacements revus.
cordialement