Macro
fred
-
PlacageGranby Messages postés 402 Statut Membre -
PlacageGranby Messages postés 402 Statut Membre -
Bonjour,
J'ai un fichier excel ayant des tableaux résumant les heures de sous-traitants.
J'aimerais faire une macro qui enverrait par courriel, le tableau de chacun des sous-traitants à son adresse perso.
Quelqu'un aurait une idée de la meilleure façon de faire?
merci
fred
J'ai un fichier excel ayant des tableaux résumant les heures de sous-traitants.
J'aimerais faire une macro qui enverrait par courriel, le tableau de chacun des sous-traitants à son adresse perso.
Quelqu'un aurait une idée de la meilleure façon de faire?
merci
fred
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.
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
