Discussion :

[Lord_Chesseling]

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

[Daniel.C]

Bonjour,

Tu ne peux pas trouver une macro avec des arguments dans la liste des macros, puisque tu ne peux pas l'exécuter directement. Il faut ajouter une macro qui appelle la tienne en lui passant les paramètres.

[Lord_Chesseling]

OK
j'ai compris
Je dois traiter cette Macro comme une Fonction .
Puis définir les paramètres ailleurs, pas dans la Fonction elle même.

J'ai mal conçu le truc.

Merci Daniel