envoi mail - joindre fichier excelRésolu

Question

Bonjour à tous,

voila je me lance dans le VB pour le boulot, j'ai réussi jusqu'à présent à me débrouiller sur quelques fonctions simples, mais là ça se complique et je sèche complètement, je n'y arrive plus ... 

Je voudrais à partir d'un bouton de commande : envoyer la feuille excel par mail mais aussi attacher d'autres fichiers (j'ai créé un bouton de commande séparemment qui va rechercher les fichiers mais je n'arrive pas à insérer ces fichiers dans le mail). Je pense qu'il faut que je modifie mon code mais je ne sais pas où 

Private Sub bouton_click()
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
 
    Set Sourcewb = ActiveWorkbook
 
    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook
 
     With Destwb
        If Val(Application.Version) < 12 Then
            'You use Excel 97-2003            FileExtStr ".xls": FileFormatNum -4143
        Else
                     If Sourcewb.Name = .Name Then
                With Application
                    .ScreenUpdating = True
                    .EnableEvents = True
                End With
                MsgBox "Your answer is NO in the security dialog"
                Exit Sub
            Else
                Select Case Sourcewb.FileFormat                Case 51: FileExtStr ".xlsx": FileFormatNum 51
                Case 52:
                    If .HasVBProject Then                        FileExtStr ".xlsm": FileFormatNum 52
                    Else                        FileExtStr ".xlsx": FileFormatNum 51
                    End If                Case 56: FileExtStr ".xls": FileFormatNum 56                Case Else: FileExtStr ".xlsb": FileFormatNum 50
                End Select
            End If
        End If
    End With
 
    '      TempFilePath = Environ$("temp") & ""
    TempFileName = Sourcewb.Name
 
    With Destwb
    
    .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        On Error Resume Next
        
        .SendMail "[mailto:aaa@aaa.com aaa@aaa.com]", _
                  "object" 
               
        On Error GoTo 0
        .Close SaveChanges:=False
    End With
    
 
    'Delete the file you have send
    Kill TempFilePath & TempFileName & FileExtStr
 
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub



help me please !!! 
j'espère que ces infos suffisent

Merci

PCPT · Accepted Answer

Vous êtes ici : [infomsg.aspx Thèmes] / [infomsgf_VB-NET-VB-2005_40.aspx VB.NET et VB 2005] / [infomsgt_DIVERS_221.aspx Divers] / [infomsgt_DEBUTANTS_227.aspx Débutants] / envoi mail - joindre fichier excel

déplacé vers VBA

cs_MPi · Answer

Si tu utilises Outlook (pas Express...) tu pourrais utiliser l'Automation en créant des objets Outlook

Tu pourrais faire une recherche sur Outlook.Application si ça te paraît être une solution. Avec Attachments, tu pourrais insérer les fichiers que tu souhaites.
Voir aussi MailItem

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cs_liouliou · Answer

Merci pour l'aide,
je vais voir comment je peux faire ...

Envoi mail - joindre fichier excel

3 réponses

Votre réponse

Discussions similaires