Discussion :

[apnw7931]

Bonjour tout le monde,

j'aimerai pouvoir envoyer le contenu d'une feuille par email en VBA.
Manuellement, j'ouvre mon Classeur.
Je me place sur la feuille que je souhaite envoyer.
Je vais dans FILE > SENT TO > MAIL RECIPIENT > SENT THE CURRENT SHEET AS THE BODY MESSAGE
et il m'envoi le contenu de ma feuille dans le corps du texte.

Comment faire cela avec une macro ?
J'ai essayer d'enregistrer mes actions, mais rien..

Edit: Sinon, avec cette ligne, je peux copier ma selection dans une image.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(Sheet1).Range("A1:N10").CopyPicture xlScreen, xlBitmap

Mais je n'arrive pas le faire coller dans Outlook

Merci pour votre aide

[fring]

Bonjour,

Jette un oeil dans la FAQ, plus précisément ICI, tu devrais y trouver ton bonheur

[apnw7931]

Merci pour ce lien.
J'ai en effet trouvé mon "bonheur".

Je vais de ce pas, parcourir l'ensemble de la FAQ, à la recherche de sujet interessant.

Merci pour votre (vos) aide(s).

[apnw7931]

Bonjour, je réouvre le sujet car je suis confronté à un autre problème.

Voici le code que j'ai trouvé dans la FAQ que j'utilise.

Comment insérer une plage de cellules dans le corps du message ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub envoiPlageCellules_Excel2002()
ActiveSheet.Range("A1:B5").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ci joint les données ..."
    .Item.To = "destinataire@dvp.fr"
    .Item.Subject = "le sujet"
    .Item.Send
End With
End Sub

Celui fonctionne à merveille.
Maintenant, j'aimerai pouvoir écrire dans la partie Introduction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Introduction = "bonjour , ci joint les données ..."

un texte avec un codage HTML, du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Introduction = "<A href='C:\Documents and Settings\USER\Desktop\test.xls'>Cliquer ici</A>"

J'espère pouvoir avoir une aide de votre part, merci d'avance.