Envoyer Une feuille par mail

[PatLac]

Bonjour a tous !
J´ai un soucis :😕
Je désire envoyer la plage d´une feuille par mail.
Jusque la pas de soucis.🙂

La plage selectionnée se copie en GIF sur une feuille temporaire, ca aussi c´est bon.🙂

Ce que je voudrais faire, c´est que cette feuille temporaire se ferme automatiquement, qu´elle ne reste pas a l´écran, et c´est la que je solicite votre bienséance.🙄

Je mets ci-dessous un exemple.🙂

D´avance merci.

Cordiales salutations et bonne journée.
😎

 

[PatLac]

Re : Envoyer Une feuille par mail

Hello ! Personne par accéder à ma réquête ?
J'ai bien noté que le sujet est traité plusieurs fois sur le forum, mais c'est juste le code de fermeture automatique qu'il me faudrait, car là, le "gif" reste à l'écran ... (voyez mon exemple)
Je n'ai pas trouvé de post qui règle ce soucis, alors merci dors et déja pour votre aide

 

[phlaurent55]

Re : Envoyer Une feuille par mail

Bonjour Patlac,

essaie ceci:

Private Sub EnvMailProt()

Tabelle1.Unprotect Password:="pipapo"
Dim Plage As Range
Set Plage = Tabelle1.Range("A1:C1")
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Temp\copy.gif", "GIF"
ActiveWorkbook.EnvelopeVisible = False
With ActiveSheet.MailEnvelope
.Introduction = "TEST"
.Item.To = "BLABLA@BLABLA.COM"
.Item.Subject = "TEST"
.Item.Send
End With
End With
' ci-dessous 2 lignes ajoutées --------------------
Application.DisplayAlerts = False
ActiveWorkbook.Close
' -------------------------------------------------
Tabelle1.Protect Password:="pipapo"

End Sub

à+
Philippe

 

[PatLac]

Re : Envoyer Une feuille par mail

FOR-MI-DA-BLE !

Merci !🙂