Macro
Fermé
fred
-
2 sept. 2015 à 16:00
PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 - 9 sept. 2015 à 17:04
PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 - 9 sept. 2015 à 17:04
A voir également:
- Macro
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Macro souris ✓ - Forum Windows
1 réponse
PlacageGranby
Messages postés
393
Date d'inscription
mercredi 26 mars 2014
Statut
Membre
Dernière intervention
7 mars 2019
26
9 sept. 2015 à 17:04
9 sept. 2015 à 17:04
Bonjour,
Je n'ai pas trouvé comment envoyé seulement l'onglet actif en pièce jointe.
Donc pour contourner le problème, on peut copier l'onglet actif dans un nouveau classeur, on met le classeur en pièce jointe, et on ferme ce classeur temporaire sans sauvegarder.
Dans cet exemple, on assume qu'il y a un onglet par client, et l'adresse courriel du client est en A2. A modifier au besoin.
Je n'ai pas trouvé comment envoyé seulement l'onglet actif en pièce jointe.
Donc pour contourner le problème, on peut copier l'onglet actif dans un nouveau classeur, on met le classeur en pièce jointe, et on ferme ce classeur temporaire sans sauvegarder.
Dans cet exemple, on assume qu'il y a un onglet par client, et l'adresse courriel du client est en A2. A modifier au besoin.
Sub Envoi_Email()
Dim Email_client As String 'Adresse courriel
Email_client = Range("A2").Value 'Dans cet exemple, l'adresse se trouve dans la cellule A2
ActiveSheet.Copy 'On copie l'onglet actif dans un classeur temporaire
Application.Dialogs(xlDialogSendMail).Show arg1:=Email_client 'On envoi en pièce jointe le fichier excel
ActiveWindow.Close SaveChanges:=False 'On ferme le classeur temporaire sans sauvegarder
End Sub
