Bonjour,

Mon souci : j'ai un formulaire qui est complété par des personnes et dès que les personnes le complétent , j'aimerai que ces personnes puissent l'envoyer par mail à une autre personne définie dans la macro et que cette autre personne le reçoive COMPLETE.

Avec le code ci-dessous il est reçu mais vide. Pourquoi ?
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
Sub Mail_workbook_Outlook_1()
'Working in 2000-2010
'This example send the last saved version of the Activeworkbook
    Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = "Toto@test.fr;"
        .CC = ""
        .BCC = ""
        .Subject = "Ouverture d'une nouvelle Fiche d'Action de Progrès"
        .Body = "Bonjour," & Chr(13) & "Vous trouverez ci-joint la Fiche d'Action de Progrès." & Chr(13) & "Cordialement"
        .Attachments.Add ActiveWorkbook.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        .Display   'or use .Send
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub