Discussion :

[Stanler]

Bonjour à tous !

Je travaille sur un classeur excel à plusieurs feuilles.
J'ai besoin d'envoyer une seule feuille de mon classeur excel à plusieurs destinataires. Ces destinataires sont déjà listés dans le classeur.
La feuille que j'envoie doit être envoyée avec les macros qui sont présentes dans le classeur que j'utilise.

J'ai déjà lus toute la FAQ disponible à ce sujet : http://excel.developpez.com/faq/inde...age=Messagerie

Pour l'instant, j'en suis ici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
 
Sub EnvoieMail()
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim Temp As String
Dim CdoMessage As Object
Dim Fichier As String
 
    Set Sourcewb = ActiveWorkbook
    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook
 
    Temp = ThisWorkbook.Path & Application.PathSeparator & "Toto.xls"
 
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
 
    Destwb.SaveAs Temp
    Fichier = Destwb.Path & Application.PathSeparator & Destwb.Name
    Destwb.Close
    Application.DisplayAlerts = True
 
    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Exemple"
        .From = "Stanler@domaine.com"
        .To = "Stanler@domaine.com"
        .CC = ""
        .BCC = ""
        .TextBody = "Ceci est un test"
        .AddAttachment Fichier
        .Send
    End With
 
    Application.ScreenUpdating = True
 
    Set CdoMessage = Nothing
    Kill Fichier
End Sub

J'obtiens une erreur sur la ligne .Send et je n'arrive pas à résoudre cette erreur.
Dois-je changer de methode ? Comment faire en sorte que ma pièce jointe prenne aussi les macros ? Puis-je utiliser la liste de mails dans la feuille du classeur comme destinataires ?

[jeanmidudu]

Bonjour,

Quelle erreur obtiens-tu?

Et pour que ta pj accepte les macros, il suffit de l'enregistrer au format ".xlsm" et non pas ".xls"

[Stanler]

Bonjour,

J'obtiens une erreur "La valeur de "SendUsing" est non valide".
J'ai fais des recherches sur cette erreur, apparement c'est une histoire de SMTP et de port à configurer. Je souhaite pouvoir envoyer le mail sans saisir de mot de passe parce que je ne serais pas le seul utilisateur du fichier (environ 5 personnes différentes seront amenés à l'utiliser).

Mon fichier est déjà au format .xlsm ^^

J'ai aussi remarqué ce code qui me plait un peu plus, mais j'aimerai paramétrer la feuille en pièce jointe et non en corps du texte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub EnvoieMailcorps()
Worksheets("Saisie").Select '=la plage de cellules à envoyer
'Rend le mail visible
ActiveWorkbook.EnvelopeVisible = True
'Ajoute ces informations aux mail à envoyer
    With ActiveSheet.MailEnvelope
        .Introduction = "Bonjour, vous trouverez ci dessous le tableau des horaires décalés pour"
        .Item.To = "" 'Destinataire
        .Item.Subject = "Saisie Reporting"
    End With
Application.ScreenUpdating = True
End Sub

[halaster08]

Bonjour, il me semble que lorsque tu copies une feuille les macros ne suivent pas, pour avoir une copie avec les macros il faudrait copier le classeur entier puis supprimé les autres feuilles

et voici le code de mail que j'utilise, il te manque le ".Attachments.Add " pour gérer une pièce jointe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub mail()
 
Dim ObjOutlook As Object
Set ObjOutlook = CreateObject("outlook.application")
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    With oBjMail
        .To = Range("destinataire")
        .CC = Range("destinataire_cc")
       .Subject = Range("titre_mail") ' l'objet du mail
       .Body = Range("Body")
       .Attachments.Add 'le chemin de la pièce jointe
       .Display
        'SendKeys "^{ENTER}" 'pour éviter la confirmation par outlook
 
    End With
 
End Sub

Mon fichier est déjà au format .xlsm ^^

Dans ton code tu le sauve en "Toto.xls"

[Stanler]

Bonjour,

il me semble que lorsque tu copies une feuille les macros ne suivent pas, pour avoir une copie avec les macros il faudrait copier le classeur entier puis supprimé les autres feuilles

Oke, mais je dois donc fermer mon classeur pour en faire une copie ? Je ne peux pas lancer la macro à partir du classeur, si je comprends bien, n'est ce pas ?

Dans ton code, la selection des destinataire est faite avec une plage. Dans mon cas, la plage va évoluer d'une utilisation à l'autre. Dois-je redéfinir la plage par vba juste avant cette procédure ?

Mon fichier est déjà au format .xlsm ^^

Dans ton code tu le sauve en "Toto.xls"

Ah, oui ! Je pensais que l'on parlait du fichier principal. Oke, je l'ai changé, mais les macros ne sont pas venues avec lui.
Puis-je écrire ou copier/coller mon code dans la nouvelle feuille créée ?

Enfin, j'ai du rajouter cette ligne à ton code :

Code :

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

Dim ObjMail As Object

[Stanler]

Oke, mais je dois donc fermer mon classeur pour en faire une copie ? Je ne peux pas lancer la macro à partir du classeur, si je comprends bien, n'est ce pas ?

Non pas du tout, il suffit d'utiliser workbook.saveCopyAs

En effet ! Tu penses vraiment à tout ^^

Dans ton code, la selection des destinataire est faite avec une plage. Dans mon cas, la plage va évoluer d'une utilisation à l'autre. Dois-je redéfinir la plage par vba juste avant cette procédure ?

Qu'entends-tu par là? Si plage est bien structurée (tout dans une seule colonne ou une seule ligne), tu peux la modifier comme tu veux (ajouter, supprimer des mails) sans avoir à changer le code.

Et bien, les adresses mails de destination sont listées dans : Range(Range("D2"), Range("D2").End(xlDown))Range("D1") = "Adresses e-mail".
Parfois, je n'ai aucune adresse e-mail dans ma colonne. Exemple en image :
Est ce que la plage va quand meme rester ? Ou dois-je définir la plage de D2 jusqu'à D1048576 ?

Ah, oui ! Je pensais que l'on parlait du fichier principal. Oke, je l'ai changé, mais les macros ne sont pas venues avec lui.
Puis-je écrire ou copier/coller mon code dans la nouvelle feuille créée ?

Oui c'est faisable, mais totalement inutile dans ton cas puisqu'il y a la méthode workbook.saveCopyAs

Oui, c'est compris !

[halaster08]

Non pas du tout, il suffit d'utiliser workbook.saveCopyAs

C'est bien à ça que je pensait


Je ne comprends pas bien, les destinataires sont fixes ou variables?

[jeanmidudu]

Et bien, les adresses mails de destination sont listées dans : Range(Range("D2"), Range("D2").End(xlDown))
Range("D1") = "Adresses e-mail".
Parfois, je n'ai aucune adresse e-mail dans ma colonne.
Est ce que la plage va quand meme rester ? Ou dois-je définir la plage de D2 jusqu'à D1048576 ?

Si elles sont listées dans la colonne D, il faut utiliser une boucle un peu comme celle-ci de préférence (en vérifiant que la cellule 2 ne soit pas vide):

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim listeMails as string
 
listeMails = ""
If cells(2,4).value <> "" then
     For i = 2 To sheets("LaFeuilleContenantLesMails").Range("D" & Rows.Count).End(xlUp).row
           listeMails = listeMails & cells(i,4).value & " ; "
    NExt i
End If

Puis dans le mail :

Code :

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

.To = listeMails

Faire de même pour les personnes en copie (avec une autre liste bien sûr)

[jeanmidudu]

Halaster a tout dit

Oke, mais je dois donc fermer mon classeur pour en faire une copie ? Je ne peux pas lancer la macro à partir du classeur, si je comprends bien, n'est ce pas ?

Non pas du tout, il suffit d'utiliser workbook.saveCopyAs

Dans ton code, la selection des destinataire est faite avec une plage. Dans mon cas, la plage va évoluer d'une utilisation à l'autre. Dois-je redéfinir la plage par vba juste avant cette procédure ?

Qu'entends-tu par là? Si plage est bien structurée (tout dans une seule colonne ou une seule ligne), tu peux la modifier comme tu veux (ajouter, supprimer des mails) sans avoir à changer le code.

Ah, oui ! Je pensais que l'on parlait du fichier principal. Oke, je l'ai changé, mais les macros ne sont pas venues avec lui.
Puis-je écrire ou copier/coller mon code dans la nouvelle feuille créée ?

Oui c'est faisable, mais totalement inutile dans ton cas puisqu'il y a la méthode workbook.saveCopyAs

[Marc-L]

Bonjour !

il me semble que lorsque tu copies une feuille les macros ne suivent pas

Sauf le code contenu dans le module de classe de la feuille …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[Stanler]

merci pour toutes vos réponses !

Grace a vous, j'ai pu coder ce que je voulais ^^ Je passe le sujet en résolu