macro envoyer vers/destinataire vba

Version imprimable

28/09/2007, 09h40
criskéké

macro envoyer vers/destinataire vba

/Bonjour,

Actuellement en licence professionnelle, je dois créer des fichiers qui permettraient au service logistique de gagner du temps.J'utilise essentiellement visual basic avec excel 2000, j'ai réussi à créer de nombreuses macros grâce à votre site mais la je suis bloqué sur une macro et je ne trouve pas de solution.

Voici mon problème:

Je souaiterais créer un bouton avec une macro derrière qui me permettrait d'envoyer la feuille active dans le corps du message, une fonction qui ferait pareil que fichier/envoyer vers/destinataire.
J'arrive à le faire en pièce jointe mais pas en tant que texte.
L'adresse e mail et le sujet sera toujours le même.
Ceci permettra à mon tuteur d'envoyer des fax à ses sous-traitant.
Je vous remercie d'avance et si possible j'aimerais avoir un code précis.

Au passage allez lyon!!!!!!!!
28/09/2007, 09h54
ouskel'n'or

Citation:

Envoyé par criskéké

Au passage allez lyon!!!!!!!!

Ça, c'est la phrase de trop ! Imagine qu'un marseillais ait la réponse à ton pb !!! :mouarf:
A propos de...
As-tu pensé à convertir ta feuille en PDF. Ainsi tu as ton texte. Quant à joindre le pdf à un mail, il y a de nombreuses réponse sur ce forum (à un fax je ne sais pas) Une recherche avec Mail ou joindre devrait répondre à ta demande. Un exemple ici avec Mail comme mot clé de la recherche.
Bonne chance pour FAX

PS - Bienvenue sur le forum
28/09/2007, 10h09
criskéké

re

Désolé pour lyon c'était instinctif
La solution que tu m'as donné me permet d'envoyer ma feuille en pièce jointe et ça j'arrive à le programmer.
J'ai peut être mal formuler.
En fait je voudrais que ma feuille soit au niveau du "body".
Merci

pour les corps de message trop long,
j'utilise une image du texte

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
  ActiveWorkbook.Worksheets("test").Activate
'on mémorise si le quadrillage est affiché
  DG = ActiveWindow.DisplayGridlines
'on enlève le quadrillage
  ActiveWindow.DisplayGridlines = False
'Copie, en tant qu'image, les cellules sélectionnées dans la feuille.
  Range("A1:G44").CopyPicture
'on colle
  ActiveSheet.Paste
'on recopie dans le presse papier
  Selection.Copy
'on supprime l'image temporaire
  Selection.Delete
'on rétablie le quadrillage comme à l'origine
  ActiveWindow.DisplayGridlines = DG
 
 
HyperLien = "mailto:" & "adresse1@xxxxx.com" & "?"      
HyperLien = HyperLien & "BCC=adressebcc@xxxxx.com"
HyperLien = HyperLien & "&Subject=" & Sujet  
'HyperLien = HyperLien & "&Body=" & Corps
ActiveWorkbook.FollowHyperlink HyperLien
Attendre 2 ' pause de 2 secondes
'on colle avec shift + insert
SendKeys "+{INSERT}", True

j'ai pas trouvé mieux surtout pour les textes longs.

Je t'ai envoyé un lien en MP pour approfondir la question