Bonjour,
et bonne année!
Je suis complètement débutant dans ce langage.
J'ai une question simple.
J'ai un tableau que mes collègues remplissent.
Je veux leur envoyer un mail quand j'ai cliqué dans une case à cocher de la ligne où ils ont saisi leur donnée.
Leur email se situe dans la première case de la ligne en question.
Je vous joins mon fichier pour que vous compreniez.
Voici mon code, repris du net.
Je n'arrive pas à récupérer EmailAddr correspondant à la chaîne de caractère de la ligne courante située dans la colonne A.
Idem, j'aimerais récupérer la chaine de caractère dans la colonne 2 de la ligne active courante.
Private Sub Saved_Click()
Dim OutlookApp As Outlook.Application Dim MItem As Outlook.MailItem Dim cell As Range Dim Subj As String Dim EmailAddr As String Dim Recipient As String Dim Msg As String
'Create Outlook object Set OutlookApp = New Outlook.Application
' !!!!!!!!!ERREUR!!!!!!!!!!!! 'Get the company name Subj = "Your " Subj = Subj & cell.Offset(0, 2).Value Subj = Subj & "Order"
' !!!!!!!!!ERREUR!!!!!!!!!!!! 'Get the email address EmailAddr = cell.Offset(0, 1).String
'Create Mail Item and view before sending Set MItem = OutlookApp.CreateItem(olMailItem) With MItem .To = EmailAddr .Subject = Subj .Body = Msg .Display End With
n'ont aucun sens.
1) Qu'est (quel objet range ?) Cell puisque tu ne l'as pas défini ?
2) String n'est pas une propriété d'un objet Range ! (d'où l'as-tu donc "sortie", cette "propriété" ?)
La moindre des choses, avant d'ouvrir une discussion, serait d'ouvrir ton aide VBA sur le mot Range, puis de regarder ses propriété parmi les membres de l'objet Range !
Fais-le, s'il te plait.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
