Bonjour,
Je ne comprend pas pour quelle raison ce programme ne marche pas.
J'ai beau le reviser je ne trouve pas l'erreur.

Quand je fais F5 (exécuter) le truc ne roule pas et une fenêtre me demande de choisir la macro à exécuter mais cette macro-ci n'est pas dans la liste des choix.

Il y un truc de base (à niveau d'arguments) qui cloche et je n'arrive pas à déceler

Merci d'avance pour voir le code avec un nouveau regard



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
Sub EnvoiMailMethodeOLE(Adresse As String, Objet As String, Corps As String, PJ As Objet)
 
Dim MonAppliOutlook As New Outlook.Application
Dim MonMail As Outlook.MailItem
Dim PJ As Outlook.Attachments
 
 
Set MonMail = MonAppliOutlook.CreateItem(olMailItem)
Set PJ = MonMail.Attachments
 
PJ.Add Woorksheet, olByValue
 
Adresse = Range("I3").Value
Corps = "Mme/Mr Le Président" & Chr(13) & "Mme/Mr Le Trésorier," & Chr(13) & "BLA BLA BLA"
Objet = Range("E2").Value
 
With MonMail
        .Display
        .To = Adresse
        .Subject = Objet
        .Body = Corps
        .Send
End With
 
 
 
 
MonAppliOutlook.Quit
 
Set MonMail = Nothing
Set PJ = Nothing
 
 
End Sub