Envoie d'une feuille active par mail

[Tony44]

Bonjour,

J'ai un problème concernant l'envoi d'une feuille active par mail.


en effet, j'ai 1 fichier excel avec plusieurs feuilles (par ex : feuil1 - feuil2 - feuil3) et il y a l'une d'entre elle (feuil2) que je voudrais envoyés par mail.

Comment puis-je faire par le biais d'une macro.

Merci pour votre aide.

 

[Brigitte]

Re : Envoie d'une feuille active par mail

Bonsoir,

Ah la la, j'ai cru que c'était Robert (notre célèbre xldien sétois) qui avait posté et je me disais : je vais lui faire coucou... (il a le même avatar que toi, c un peu déstabilisant.. comme l'impression que qqun a pris sa place).

Mais peu importe, voici ma contribution, tu choisiras ainsi. C'est une macro que j'ai qui copie/colle (spécial) la feuille choisie (ou active, possible), et crée un nouveau classeur puis l'envoit par outlook... Reste à définir le destinataire... et à affiner l'objet...

Sub MacroMail()
'Autant prendre de bonnes habitudes : en VBA, on déclare toujours les variables utilisées !
Dim AccuseReception As Boolean
Dim Sujet As String
'
Sheets("FICHE COMMUNICATION").Select
Sheets("FICHE COMMUNICATION").Copy Before:=Sheets(8)
Range("A1:AA44").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C11").Select
Sheets("FICHE COMMUNICATION (2)").Select
ActiveWorkbook.Windows(1).SelectedSheets.Copy
AccuseReception = True
Sujet = "Demande de communication de boîte archives auprès ADLA"
ActiveWorkbook.SendMail "", Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub

A adapter bien sûr.

Bonne soirée.

 

[Brigitte]

Re : Envoie d'une feuille active par mail

Ouarf, Jean Marcel, j'ai bien son tour de poitrine (enfin dans le genre)... mais ca se borne à ca... et c'est vraiment aléa entre bornes pour le reste, d'ailleurs, si je puis dire.

J'étais étonnée que notre célèbre crevette (qui m'a si souvent sauvée, aidée, avec des macros miraculeuses) ait besoin de ca.

Bonne soirée.

 

[13GIBE59]

Re : Envoie d'une feuille active par mail

Bonjour tout le monde. Bisous Brigitte. 😉

Brigitte, j'adore ton humour :

et c'est vraiment aléa entre bornes pour le reste, d'ailleurs, si je puis dire.

😀

 

[Brigitte]

Re : Envoie d'une feuille active par mail

Je sais, je sais... ca me dépasse la fréquence avec laquelle mon humour parfois décaler mais non moins exercé avec adresse fait frémir les moustaches.

Il n'en demeure pas moins que mes arrondi généreux sont certainement pour beaucoup dans la bêtise de mes interventions, et dans le max de mes explosions de bonne humeur. Tout ceci me permet d'assumer sans complexe mes #N/A dans tous les domaines, puisqu'ils sont tolérés avec gentillesse par tous mes amis xldiens...

Alors si tu trouve mon humour adorable, sache qu'il me plait néanmoins que tu me le dises... et qu'il fut agréable que je le susse...

A un de ces jour....

 

[Tony44]

Re : Envoie d'une feuille active par mail

Bonjour JeanMarcel,

j'ai essayé le code mais cela ne marche pas, voici la photo de l'erreur qui ressort. a quoi est due cette erreur ??
Merci de votre aide.

Bonsoir
Ci joint une macro qui crée un classeur avec deux onglets et qui l'envoie par mail.
si tu ne veux envoyer qu'un onglet il faut supprimer une ligne dans la macro.
( Workbooks(NomDeCeFichier).Sheets("DeuxièmeOnglet").Copy After:=Workbooks(NomDuNouveauFichier).Sheets("PremierOnglet"))

Pour un bon fonctionnement il faut activer le complement "Microsoft CDO for windows 2000 library"