Bonjour à toutes et tous,

J'ai créer un fichier avec une feuilles "Recapitulatif" et une feuille "modèle".
Dans le récapitulatif, j'encode les nom et prénom de personne, ensuite je clique sur mon bouton "ajouter feuilles" et les feuilles sont bien créées.
Ensuite j'aimerais envoyer à chaque personne un mail avec sa feuille en pièce jointe.
pour le mail c'est ok mais pour la pièce jointe je coince.
Pourriez-vous m'aider svp?

Merci

Voici mon code
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
51
52
53
54
55
 
Sub SendMail_CDO()
Dim J As Long
Dim Ws As Worksheet
Dim Cdo_Message As Object
Dim Signature As String
 
Signature = "Raphaël Paquet" & vbCrLf & "La Ferme de Pâques" & vbCrLf & "Les Fossés"  'changer votre nom entre les " "
 
 
Set Cdo_Message = CreateObject("CDO.Message")
Sheets("Recapitulatif").Select
Set Ws = ActiveSheet
    For J = 2 To Cells(Application.Rows.Count, 2).End(xlUp).Row
        If Cells(J, 2) <> "" Then
 
            With Cdo_Message
                .To = Cells(J, 2)
                .From = "bruno.hampert@gmail.com"
                .Subject = "Récapitulatif " & Ws.Range("C" & J) & " " & Ws.Range("D" & J)
                .TextBody = "Bonjour " & Ws.Range("D" & J) & "," & vbCrLf & vbCrLf & "Ci-joint votre récapitulatif." & vbCrLf & vbCrLf & Signature
                '.AddAttachment = ThisWorkbook.Sheets(Ws.Range("C" & J) & " " & Ws.Range("D" & J)).Copy ' C'est ici que ça coince
                        'nom du serveur smtp
                            .Configuration.Fields.Item _
                            ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
                        'port du serveur smtp
                            .Configuration.Fields.Item _
                            ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
 
                            .Configuration.Fields.Item _
                            ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                        'S’authentifier
                            .Configuration.Fields.Item _
                            ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
 
                            .Configuration.Fields.Item _
                            ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
                        'Si autentifié le nom d'utilisateur
                            .Configuration.Fields.Item _
                            ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "bruno.hampert@gmail.com"
                        'Si authentifié le mot de passe
                            .Configuration.Fields.Item _
                            ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"
 
                            .Configuration.Fields.Update
 
                .Send
            End With
        End If
    Next
 
    Set Cdo_Message = Nothing
 
 
End Sub



Gestion paniers vierge(version 1.5).xlsm