Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Copie tableau

Copie tableau

4 réponses
Avatar
Milo
Bonjour à tous
Dans mon classeur j'ai plusieurs feuilles avec tableaux interactifs, et je
voudrais pouvoir envoyer en PJ une d'entre elles sans envoyer le reste qui
ne regarde pas le destinataire,
je vous remercie par avance si vous pouviez me communiquer l'astuce.
Cordialement

--

Milo
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

http://cjoint.com/?dEjiBTPQcx

Sub envoi_Feuille()
répertoireAppli = ActiveWorkbook.Path ' Penser à
Outils/Références Outlook
Sheets("résultats").Cells.Copy
Sheets.Add
Cells.Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues ' enlève les
formules
ActiveSheet.Name = "Envoi"
'--
Sheets("Envoi").Copy ' crée un classeur avec la feuille
Envoi Application.DisplayAlerts = False
ActiveWorkbook.SaveAs répertoireAppli & "envoi.xls"
ActiveWindow.Close
Sheets("envoi").Delete
'--- Envoi par mail
Dim olapp As Outlook.Application
Sheets("destinataires").Select
Range("A11").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = Range("A2").Value
msg.Body = Range("A5").Value & Chr(13) & Chr(13) &
Range("A8").Value & Chr(13) & Chr(13)
msg.Attachments.Add Source:=répertoireAppli & "envoi.xls"
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cordialement JB
Avatar
Jacky
Bonjour

Clique droit sur l'onglet de la feuille en question.
Clique sur déplacer ou copier.
Dans la fenêtre "Dans le classeur" choisir: (nouveau classeur)
Ok
et envoyer ce classeur.

Salutations
JJ

"Milo" a écrit dans le message de
news:
Bonjour à tous
Dans mon classeur j'ai plusieurs feuilles avec tableaux interactifs, et je
voudrais pouvoir envoyer en PJ une d'entre elles sans envoyer le reste qui
ne regarde pas le destinataire,
je vous remercie par avance si vous pouviez me communiquer l'astuce.
Cordialement

--

Milo



Avatar
Milo
Bonjour JB
Je te remercie de ta réponse, je suis d'abord admiratif de ton savoir, est
il possible de faire l'operation avec Outlook Express? je ne suis pas assez
calé pour suivre ton explication, mais je peux m'y atteler, si tu pouvais
simplifier un peu, je te serais très reconnaissant, mon anglais étant...
Je te remercie quelque soit ta réponse.
Cordialement

--

Milo





JB wrote:
Bonjour,

http://cjoint.com/?dEjiBTPQcx

Sub envoi_Feuille()
répertoireAppli = ActiveWorkbook.Path ' Penser à
Outils/Références Outlook
Sheets("résultats").Cells.Copy
Sheets.Add
Cells.Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues ' enlève les
formules
ActiveSheet.Name = "Envoi"
'--
Sheets("Envoi").Copy ' crée un classeur avec la feuille
Envoi Application.DisplayAlerts = False
ActiveWorkbook.SaveAs répertoireAppli & "envoi.xls"
ActiveWindow.Close
Sheets("envoi").Delete
'--- Envoi par mail
Dim olapp As Outlook.Application
Sheets("destinataires").Select
Range("A11").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = Range("A2").Value
msg.Body = Range("A5").Value & Chr(13) & Chr(13) &
Range("A8").Value & Chr(13) & Chr(13)
msg.Attachments.Add Source:=répertoireAppli & "envoi.xls"
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cordialement JB


Avatar
Milo
Jacky wrote:
Bonjour

Clique droit sur l'onglet de la feuille en question.
Clique sur déplacer ou copier.
Dans la fenêtre "Dans le classeur" choisir: (nouveau classeur)
Ok
et envoyer ce classeur.

Salutations
JJ
Bonjour Jacky

Chapeau! merci aussi à JB de sa réponse, maheureusement trop technique pour
moi.
Cordialement

--

Milo