Envoi de mail avec pj via macro

Bonjour,

j'ai un module vba qui me permet d'envoyer via Outlook mon fichier test_V1.csv à l'adresse mail: service.ext@natx.com.

Dans le module, le chemin et le nom du fichier sont définis en dur dans "A1".

Sub Mail_Workbook_()
'fonctionne dans Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.

    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 = "service.ext@natx.com"
        .CC = ""
        .BCC = ""
        .Subject = "Objet du mail"
        .Body = "contenu du mail!"
        .Attachments.Add Worksheets("Parametres").Range("A1").Value 'oubien  .Attachments.Add ("G:\ISO\A_Audits\test_V1.csv")
        'Excemple: ("A1").Value = "G:\ISO\A_Audits\test_V1.csv"
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Etant donné que le dossier peut contenir plusieurs fihiers, comment je peux faire pour prendre mon fichier le plus récent ?

Si cette démarche semble compliquée d'autres propositions sont les bienvenus comme par exemple parcourir les fichiers pour aller chercher le .csv à envoyer.

Merci d'avance.

Bonjour,

une proposition

Sub Mail_Workbook_()
'fonctionne dans Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    rep = "G:\iso\A_audits\"
    f = Dir(rep & "*.csv")
    While f <> ""
    If FileDateTime(rep & f) > dateref Then fref = rep & f: dateref = FileDateTime(fref)
    f = Dir()
    Wend

    With OutMail
        .To = "service.ext@natx.com"
        .CC = ""
        .BCC = ""
        .Subject = "Objet du mail"
        .Body = "contenu du mail!"
        .Attachments.Add fref
        .display

   On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

re h2so4 ,

ta proposition marche super bien. J'ai juste omis de fermer mon bloc with et le .Send

    With OutMail
        .To = "service.ext@natx.com"
        .CC = ""
        .BCC = ""
        .Subject = "Objet du mail"
        .Body = "contenu du mail!"
        .Attachments.Add fref
        .Display
        .Send
    End With

Merci bcp.