envoyer une feuille par courrier electronique

[papounet31]

bonjour
je désiré envoyer une feuille uniquement et pas tout le fichier par mail.
comment puis je faire?
d'autre part cette feuille contient des liens ( jpeg et pdf) que je ne veux pas envoyer . comment faire ?
merci pour votre aide
Pierre

 

[camarchepas]

Re : envoyer une feuille par courrier electronique

Bonjour ,

Un petit fichier dessensibiliser, reprennant la structure de cette feuille serait judicieuse ,

D'autre part la piéce jointe serait en quel format ? Xlsx ou pdf

et pour finir quelle version d'Excel utilises tu ?

Cordialement

 

[papounet31]

Re : envoyer une feuille par courrier electronique

j'utilise excel 2007
il s'agit d'un fichier de comptes .la feuille que je désire envoyer comporte des calculs et des références a d'autres feuilles du classeur, ainsi que des commentaires avec copie de factures .

je désire envoyer seulement les résultats sous forme de feuille excel ou pourquoi pas de pdf

 

[camarchepas]

Re : envoyer une feuille par courrier electronique

Mis dans un module standard

Sub Pilotage_Outlook()
Dim OutApp As Object, OutMail As Object
Dim Nom_Pdf As String, Chemin As String
Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)
With OutMail
    .To = "vv@pigeon.fr"           'A
   ' .From = "xxx.yyyy@zzzz.fr"      'De
    '.CC = "adresse mail complémentaire si besoin"
    .Subject = "Ton Objet"
    .Body = "Ton Corps de texte"
    'Spécifie le chemin de stockage des pdf
     Chemin = "C:\temp\"
    'Ajoute les fichiers en pièces jointes
      'Composition du nom du fichier PDF  'Prenom_Nom_Num_mois
       Nom_Pdf = "Tempo.pdf"
      'Création du fichier Pdf avec la méthode Export disponible depuis Excel 2007
       Worksheets("Onglet à envoyer").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Nom_Pdf _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
      'Ajoute piece jointe
      .Attachments.Add Chemin & Nom_Pdf
      'Si necessaire effacement de la piéce jointe aprés envoi
      Kill Chemin & Nom_Pdf
 
     .Display 'pour voir et modifier ou envoyer
     '.Send 'Pour envoyer directement
  End With
  MsgBox "Mail envoyé"
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[papounet31]

Re : envoyer une feuille par courrier electronique

wahow ! !!!! j'ai affaire à un pro ! merci camarchepas.
j'ai juste oublié une précision : je suis une quiche en macro et tu es une ceinture noire !

je ne saurais jamais mettre ça en œuvre .
je croyais qu'il y avait une commande simple juste en cliquant sur une option . la c'est de la haute voltige!

j'ai bien trouvé une solution à mon niveau : j'ai bêtement fait un copier-collé de la feuille en gardant juste les valeurs et je l'ai transférée dans un nouveau classeur mono feuille .

c'est loin d’être aussi élégant mais ça je sais le faire .
merci encore d'avoir pris le temps de me donner une solution de "pro"

a bientôt
Pierre