Écriture VBA windows vers mac

Version imprimable

Bonjour,
Merci à tous pour vos contributions.
J'ai crée un code sur Excel avec la version Windows et j'aimerais traduire ce code pour qu'il fonctionne sur MAC.
Il s'agit d'une préparation et d'un envoi automatisé de mail à différents prestataire selectionnés.
Est-ce que vous pensez pouvoir m'aider?
je vous remercie.
Cordialement,
Samuel

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
 
Private Sub CommandButton1_Click()
 
Dim LeMail As Variant
Dim ligne As Integer
Dim CC As String
 
Set LeMail = CreateObject("Outlook.Application") 'création d'un objet outlouk
 
For ligne = 31 To 36
 
If Range("d" & ligne) <> "" Then
 
With LeMail.CreateItem(olMailItem) ' informe le programme que nous voulons envoyer un mail.
.Subject = "CONSULTATION - " & Range("B14") & Range("b" & ligne) 'le sujet + le nom
.To = Range("E" & ligne) 'placer l'adresse mail de la ligne
.CC = Range("J9") & _
Range("J8") & _
Range("J10")
.Body = "Consultation à destination de la société " & Range("d" & ligne) & " " _
& Range("B77")
.Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
End With
 
End If
 
Next ligne
 
End Sub

05/03/2020, 07h38
Transitoire

1 pièce(s) jointe(s)

bonjour, j'ai essayé votre code, il y a déjà un problème de déclaration, voir ci-dessous:

Pièce jointe 543201

ensuite, votre code fait référence à Outlook. Avez vous OutLook ? sinon, il vous faudra passer avec "Mail". Il est possible que vous soyez obligé de passer par Automator? :weird:
Je vous avoue toutefois mon incompétence dans ces choses. Je ne pourrais malheureusement pas jouer autre chose que "l'idiot utile", voire inutile :aie:

Cordialement 8-)
05/03/2020, 08h39
otiest

Merci

Bonjour,
J'ai bien outlook ! Merci.
05/03/2020, 12h42
joe.levrai

Bonjour,

je n'ai pas MAC, mais essaye de remplacer la constante OlMailItem par sa valeur numérique : 0