envoie selection tableau par mail

[Luc Billaux]

Bonjour à toutes et tous,

J'ai encore besoin d'un coup de main!!!! mon problème:


Jai un fichier xls qui contient une feuille de calcul par mois ( planning). mon souhait:
transmettre par mail une selection de l'une des feuilles par mail . Je tiens à ce que cette sélection reste une feuille xls pour le receveur. J'ai pensé faire un copier coller de la selection dans un nouveau classeur et expedier ce nouveau classeur en entier, çà doit marcher mais çà me parait une solution lourde d'autant que je souhaite automatiser le tout par une macro.

Y a t il des solution plus "élégantes"?
Aurais je zappé des fonctions ou commandes qui sont prévues pour?


Merci de votre aide

Amitiés à tous

Luc

 

[EricS]

Bonsoir

comme je fais un petit tour sur le forum, je regarde les posts sans réponse.

Je pense que ton approche n'est pas si lourde et le code suivant devrait pouvoir être adapté

Sub macro2()
Cells.Select
Selection.Copy
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
Range("a1").Select
Application.CutCopyMode = False
SendKeys "%(fym)", -1
ActiveWindow.Close SaveChanges:=False
Range("A1").Select
End Sub

A+
Eric

 

[Luc Billaux]

Merci de ta réponse,

Peux tu me dire à quoi sert la ligne:
SendKeys "%(fym)", -1

je ne la comprends pas.

luc

 

[EricS]

Bonjour

sendkeys te permets d'envoyer des codes clavier (aide vba existe sur cette fonctionalité), notamment pour des commandes sortant du domaine excel.

J'ai regardé sur mon pc la séquence à réaliser (excel97) pour préparer un envoi mail

du point de vue menu cela donne : fichier - envoyer vers - destinataire du message,
avec successivement les lettres f, y, m soulignées

au clavier, en appuyant sur alt et en le maintenant appuyé, il suffit de faire fym pour obtenir ce menu

l'aide vba te montrera que cela se traduit par :
% pout le alt
() pour le maintien enfoncé du alt pendant la séquence
fym pour la séquence elle-même
,-1 par précaution pour attendre que la séquence soit traitée avant de continuer la macro

Tu dois donc adapter la ligne sendkeys à ton appli

Bon sessais et A+

Eric