Macro excel envoi email avec piéce jointe

virgile84 Messages postés 21 Statut Membre -  
lichen1 Messages postés 10 Statut Membre -
Bonjour,
Je sais il y a déja un topc qui s'appale comme ça mais il date un peu
voici mon problème j'ai fait cette macro comme dans l'ancien topic mais ça marche pas où est l'erreur ?

Sub EnvoiMail()
Workbooks("Feuil1.xls").SendMail Recipients:="cinquante.et.un@gmail.com", _
Subject:="COMMANDE",_
ReturnReceipt à True

End Sub

merci
Configuration: Mac OS X et win xp(j'ai honte j'ai les 2)
Firefox 3.0.8

3 réponses

  1. cocotehier
     
    Bonjour,

    Sub EnvoiMail()
    Workbooks("UnClasseur").SendMail Recipients:="adresse@mail", _
    Subject:="Test envoi classeur", _
    ReturnReceipt:=True
    End Sub

    Fonctionne pour un classeur, mais pour une feuille c'est sheet non ?
    1
  2. virgile84 Messages postés 21 Statut Membre
     
    bonjour cocotehier
    avec sheet ça marche pas non plus
    Sub EnvoiMail()
    Workbooks("sheet").SendMail Recipients:="virgile84@gmail.com", _
    Subject:="commande", _
    ReturnReceipt:=True
    End Sub
    j'ai pas de solution......
    0
    1. lichen1 Messages postés 10 Statut Membre
       
      je vois que cela fait longtemps, et j'espère que tu as une solution, dans le cas négatif, j'utilise ça qui fonctionne

      '.......................copy feuil1
      Sheets("feuil1").Select
      Sheets("feuil1").Copy
      ActiveWorkbook.SaveAs Filename:= _
      "Y:\xx.xls", _
      FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
      ReadOnlyRecommended:=False, CreateBackup:=False


      '........................ouvre outlook

      '................................................................
      ActiveWorkbook.SendMail Recipients:="nom@cx.fr", _
      Subject:="titre"
      '.........................................................timer


      ActiveWorkbook.Close

      Set fs = CreateObject("Scripting.FileSystemObject")
      Set f = fs.GetFile("Y:xx.xls")

      f.Delete

      j'espère que ça aidera qqn
      bon courage
      0