Discussion :

[eric8787]

Bonsoir,

J'ai un classeur à plusieurs onglets et plusieurs zones pas onglet.

Est il possible d'envoyer une zone ( type zone d'impression ) par email ?
si oui comment ?

merci

eric

[eric8787]

Bonjour,

les réponses ne se bousculant pas, j'en deduis que ma demande ne doit pas être réalisable.
J'ai donc avancé un peu d'une autre façon.

Avec le code suivant, je copie une plage de la feuille active vers une autre feuille ( masquée). Puis enregistre cette feuille dans un nouveau classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub ENREGISTRE_SYNTHESE()
'copie des infos
Sheets("synthese").Range("D6:M75").Value = ActiveSheet.Range("D6:M75").Value
 
'enregistrement dans nouveau classeur
Dim Nom As String
Nom = [E8]
Sheets("synthese").Copy
ActiveWorkbook.SaveAs "Synthese du" & Nom
End Sub

J'aimerai maintenant envoyer ce nouveau classeur par mail/outlook à une liste de diffusion outlook. Tout en gardant le 1er classeur activé, puis fermer le nouveau classeur.

merci de votre aide

eric