Bonjour aux lecteurs de ce sujet,
Je suis nouveau ici, j'espère respecter tous les critères afin d'être aidé dans mes requêtes...
Je dispose en effet d'un fichier Excel, comprenant lui-même 3 onglets.
J'ai récemment intégré un bouton lié à une macro que voici:
Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = "toto@toto.fr"
Sujet = "Mon cumul affaires Janvier 2013"
AccuseReception = False
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("Cumul affaires").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub
Celle-ci me permet d'envoyer automatiquement la feuille "Cumul affaires" à l'adresse spécifiée dans la macro.
Ceci dit, je souhaiterais savoir comment :
- créer une référence dans cette macro afin d'aller chercher l'adresse du destinataire au sein d'une cellule
- envoyer non pas seulement la feuille, mais TOUT le classeur
Merci beaucoup de votre aide 🙂
Je suis nouveau ici, j'espère respecter tous les critères afin d'être aidé dans mes requêtes...
Je dispose en effet d'un fichier Excel, comprenant lui-même 3 onglets.
J'ai récemment intégré un bouton lié à une macro que voici:
Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = "toto@toto.fr"
Sujet = "Mon cumul affaires Janvier 2013"
AccuseReception = False
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("Cumul affaires").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub
Celle-ci me permet d'envoyer automatiquement la feuille "Cumul affaires" à l'adresse spécifiée dans la macro.
Ceci dit, je souhaiterais savoir comment :
- créer une référence dans cette macro afin d'aller chercher l'adresse du destinataire au sein d'une cellule
- envoyer non pas seulement la feuille, mais TOUT le classeur
Merci beaucoup de votre aide 🙂