Discussion :

[isa0144]

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

[Marc-L]

Bonjour,

non car le code est incomplet ‼

Sinon voir la et les tutoriels sans compter les divers exemples sur et dans les discussions de ce forum !

[isa0144]

mais justement ca fait une semaine que je cherche et que je ne trouve pas.
J'ai tenté tellement de code ... et je dois terminé mon projet d'ici 2 semaines.

ce code fonctionne j'ai tenté de l'adapté, mais ca ne marche pas.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub MAIL()
''Déclaration des varaibles
'Dim oApp As New Outlook.Application
'Dim oMail As Outlook.MailItem
'Dim oAtt As Outlook.Attachment
 
Dim listeDestTo As New Collection
Dim listeDestCC As New Collection
Dim objet As String
Dim body As String
Dim raison As String
Dim siren As String
Dim agent As String
Dim support As String
Dim theme As String
Dim nature As String
 
raison = Range("C26").Value
agent = Range("I26").Value
siren = Range("D26").Value
support = Range("J26").Value
theme = Range("K26").Value
nature = Range("L26").Value
 
'oMail.Subject = raison & " // Demande Produits & Services"
'oMail.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 & "Contrepartie : " & raison _
'& vbCrLf & "Siren : " & siren _
'& vbCrLf & "Support de réception : " & support _
'& vbCrLf & "Thème : " & theme _
'& vbCrLf & "Commentaire/précision : " & nature _
'& vbCrLf & vbCrLf & "bien cordialement," & vbCrLf & vbCrLf
'
'oMail.Display
'
'Set oApp = Nothing
'Set oAtt = Nothing
 
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 & "Contrepartie : " & raison _
        & vbCrLf & "Siren : " & siren _
        & vbCrLf & "Support de réception : " & support _
        & vbCrLf & "Thème : " & theme _
        & vbCrLf & "Commentaire/précision : " & nature _
        & vbCrLf & vbCrLf & "bien cordialement," & vbCrLf & vbCrLf
 
Call EnvoyerMail(listeDestTo, objet, body, listeDestCC)
 
End Sub

[Invité]

nous ce que l'on voudrait voir ces le sub EnvoyerMail

[isa0144]

désolée je n'ai pas compris ta réponse, je débute dans la VBA

[Invité]

désolée je n'ai pas compris ta réponse, je débute dans la VBA

dans ton code tu fais appel à une procédure c'est celle là que nous voulons voire!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call EnvoyerMail(listeDestTo, objet, body, listeDestCC) 'EnvoyerMail est une sub

[patricktoulon]

Bonjour
c'est un probleme quand on debute et que l'on s'attaque ades procedure plus ou moins complexes
on a tendence a faire du copier coller sans en comprendre une ligne

mais bon puisque le copier coller semble te convenir je te suggere de regarder ma signature en bas de ma reponse et de cliquer sur mail cdo en vba

ce sera une solution parmi tant d'autre je precise

Au pla