je n'y arrive pas.... J'ai essayé d'adapter en fonction de ce que j'avais compris de vos remarques mais.... (je ne dois pas être assez calé)
Ci-dessous un extrait de mon code et en dessous un print screen qui montre que les références passent en Microsoft Outlook 16.0 ... dès qu'un utilisateur Windows 10 utilise le fichier. Du coup je dois pour l'instant retirer ces références et selectionner ....14.0 manuellement.
Pouvez-vous me dire ce que je dois changer ...
Public Sub Envoi_Email()
Dim WorksheetToSend As Worksheet, RangeToSend As Range, Destinataires As String, Destinataires2 As String
Dim WorksheetData As Worksheet, worksheetRecepient As Worksheet
Dim WorkbookToSend As Workbook, i As Integer, j As Integer
Dim Answer As VbMsgBoxResult, Answer1 As VbMsgBoxResult, Answer2, Answer4 As VbMsgBoxResult, Message As String, BodyMail As String, SubjectMail As String, Answer3 As VbMsgBoxResult
Dim appOutlook As Outlook.Application
Dim oMail As Outlook.MailItem
Dim MyRange As Range
Set appOutlook = CreateObject("outlook.application")
Set oMail = appOutlook.CreateItem(olMailItem)