A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
1 réponse
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