Bonjour tout le monde,

Je tente de créer un mail a partir d'excel en reprend des données saisies dans une feuille.
J'ai tenté ce code mais ca ne fonctionne pas. Une messa me dit quer "erreur de compilation sur CALL "
Pourriez vous m'aider ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
31
32
33
34
35
Sub MAIL()
 
Dim dossier As String
Dim nom As String
Dim guichet As String
Dim compte As String
Dim typologie As String
Dim montant As String
Dim devise As String
Dim nature As String
 
dossier = Range("C16").Value
nom = Range("C17").Value
guichet = Range("C18").Value
compte = Range("C19").Value
typologie = Range("C20").Value
montant = Range("C21").Value
devise = Range("C22").Value
nature = Range("C23").Value
 
objet = raison & " // Demande Produits & Services"
body = "Bonjour," & vbCrLf & vbCrLf & "Nous vous informons que votre demande, dont les caractéristiques sont reprises ci-dessous, sera prise en charge par " & agent & "." _
        & vbCrLf & "Numéro de dossier : " & dossier _
        & vbCrLf & "Nom client : " & nom _
        & vbCrLf & "Guichet : " & guichet _
        & vbCrLf & "Compte  : " & compte _
        & vbCrLf & "Type de recherche : " & typologie _
        & vbCrLf & "Montant : " & montant _
        & vbCrLf & "Devise : " & devise _
        & vbCrLf & "Commentaire/précision : " & nature _
        & vbCrLf & vbCrLf & "Bien cordialement," & vbCrLf & vbCrLf
 
Call EnvoyerMail(listeDestTo, objet, body, listeDestCC)
 
End Sub