Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

envoi d'un feuille (ou plusieurs) d'un classeur par email

  • Initiateur de la discussion roulies
  • Date de début
R

roulies

Guest
BOnjour,

J'a iessayé de trouver par la fonction faire une recherche la réponse à ma question car je pense que ce n'est pas la premiere fois que quelqu'un à besoin de cela.

Donc j'aimerais savoir si il y'a un moyen d'envoyer une feuille ou plusieurs d'un classeur par email sans avoir à faire xx manip.

Merci d'avance de votre aide
 
C

Carole

Guest
Bonjour Roulies,

Et bien, a priori, si tu vas dans fichier/envoyer vers destinataire ou sous forme pièce jointe, il n'y a pas de raison que cela ne marche pas.

C'est ça que tu souhaitais, ou bien??

++
Carole
 
R

roulies

Guest
Mon soucis c'est que cela envoi le classeur entier alors que j'ai necessité d'envoyée que les feuilles selectionnées.

Sinon ta soluce fonctionne bien pour un classeur entier.

Merci
 
R

roulies

Guest
Arnaud tu as raison et pourtant j'ai essayé de jouer avec les and ...

Et rien ....

Désolé ...


Sinon

@thierry avait donnée le code suivant :

Sub SendMail()
Dim NewBook As Workbook
Dim fname As Variant
ActiveSheet.Copy

Set NewBook = ActiveWorkbook
Do
fname = Application.GetSaveAsFilename
Loop Until fname <> False
NewBook.SaveAs Filename:=fname & ".xls"
NewBook.SendMail "Toto@Toto.com", "Test", True
End Sub


Cette macro est bien mais y'a t'il moyen de faire que cela
envoi les feuilles selectionnées et que cela demande l'email à qui l'envoyé.
(si possible que cela propose ceux d'outlook).

merci
 
R

roulies

Guest
J'ai trouvé pour qu'excel m'ouvre la fenetre mais il me reste mon probleme
de mes feuille selectionnées.

Voici le code

Sub SendMail()
Dim NewBook As Workbook
Dim fname As Variant
ActiveSheet.Copy

Set NewBook = ActiveWorkbook
Do
fname = Application.GetSaveAsFilename
Loop Until fname <> False
NewBook.SaveAs Filename:=fname & ".xls"
NewBook.SendMail "", "texte", True
End Sub

Auriez vous une idée car mes recherches sur le net sont pas tres concluante.

Merci
 
A

Arnaud

Guest
re,

ce que je ne comprend pas trop c ce que tu veux dire par 'mes feuille selectionnées'.
tu les sélectionne ou ces feuilles ???
comment sais t'on quelle feuilles il faut envoyer ??
 
R

roulies

Guest
Arnaud

Je clique sur Feuille 1 et control + clique sur feuille3

Donc j'aimerais que c'es deux feuilles soit envoyées ...

une autre fois ce serait feuille 1 et feuille 2 ect ....

j(espere que tu m'aura comprise
 
A

Arnaud

Guest
re,

a ok c'été tout bête mais bon je devais avoir la tête ailleur.
Par contre pour c que tu veux, moi je ne serais pas comment faire autrement que de faire une petite interface qui demande quelle feuille prendre.
 
R

roulies

Guest
pas mal du tout le seul hic c'est qu'il faut connaitre l'email complet de ton destinataire alors qu'avec sendmail cela ouvra la fenetre d'outlook ...

et donc de recuperer son carnet d'adresse...

Moralité il me faudrait un mixte des deux ......

A moins que quelqu'un ai une idee pour rajouté dans ma macro...

Ceci dit ton exemple va me servir dans mes tableau qui ont plein de feuilles
c'est génial ce truc ...

Merci
 
A

Arnaud

Guest
re,

je ne compras pas trop ton problème ( encore une fois , j'ai vraimant du mal aujourd'hui ).

tu voudrai que ça fasse quoi ?? te propose la liste de tout les destinataire de ton carnet d'adresse (ça je sais pas trop comment faire)?? j uste un mail vide et tu choisi q qui tu veux l'envoyer ( au passage, c ce que cela fais actuellement si tu ne remplis pas de destinataire )
 
R

roulies

Guest
oupss autant pour moi je n'avait pas essayé en ne mettant rien dans la case.... Et quand je met rien pil poil la fenetre d'outlook ...


En fait ton systeme est parfait sauf que je ne sais pas comment on fait
pour faire le lien à ton systeme par rapport à un bouton dans la zone des boutons ....

Car le but etant que cela fonctionne avec n'importe quel fichier ...

Peut tu m'aider ...
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…