Discussion :

[persjussysylvain]

Bonjour,

J'ai ce code qui me permet de faire une copie de ma feuille active "Envoi Repas" et de l'envoyer par mail.
Cela fonctionne

Mais je voudrais ne ps préciser la feuille "Envoi Repas" et que la feuille active soit directement sélectionner
Car je voudrais créer des copie de ma feuille donc le nom de la feuille ne saura plus la même et je veux qu'en cliquant sur le bouton de commande la feuille active soit envoyé par mail et qu'une copie soit enregistré

Pouvez-vous m'aider svp ?

Je vous remercie

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
Private Sub CommandButton1_Click()
  Dim chemin As String, fichier As String
 
    chemin = ThisWorkbook.Path
    fichier = chemin & "\" & "Planning repas de la Semaine " & Range("A2") & ".xls"
 
MsgBox "Les présences repas sont prêts à être envoyés."
 
    ThisWorkbook.Sheets("Envoi Repas").Copy
    ActiveWorkbook.SaveAs Filename:=fichier
 
    Dim MonOutlook As Object
    Dim MonMessage As Object
 
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItem(0)
 
        MonMessage.To = "fhpersycat@adimc74.org"
        MonMessage.Cc = "accueilpersycat@adimc74.org"
        MonMessage.Subject = "Repas semaine" & Range("A2")
        MonMessage.body = "Bonjour," & _
                    Chr(13) & Chr(13) & "Veuillez trouver, ci-joint, le planning des repas de la semaine " & Range("A2") & _
                    Chr(13) & Chr(13) & "Bonne réception."
 
        MonMessage.Attachments.Add ActiveWorkbook.FullName
        MonMessage.display
 
    ActiveWorkbook.Close
 
    Set MonOutlook = Nothing
End Sub

Cordialement

[Thautheme]

Bonjour Sylvain, bonjour le forum,

Peut-être comme ça (non testé) :

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
Private Sub CommandButton1_Click()
  Dim chemin As String, fichier As String
 
    chemin = ThisWorkbook.Path
    fichier = chemin & "\" & "Planning repas de la Semaine " & Range("A2") & ".xls"
 
MsgBox "Les présences repas sont prêts à être envoyés."
 
    ThisWorkbook.ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=fichier
 
    Dim MonOutlook As Object
    Dim MonMessage As Object
 
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItem(0)
 
        MonMessage.To = "fhpersycat@adimc74.org"
        MonMessage.Cc = "accueilpersycat@adimc74.org"
        MonMessage.Subject = "Repas semaine" & Range("A2")
        MonMessage.body = "Bonjour," & _
                    Chr(13) & Chr(13) & "Veuillez trouver, ci-joint, le planning des repas de la semaine " & Range("A2") & _
                    Chr(13) & Chr(13) & "Bonne réception."
 
        MonMessage.Attachments.Add ActiveWorkbook.FullName
        MonMessage.display
 
    ActiveWorkbook.Close
 
    Set MonOutlook = Nothing
End Sub

[persjussysylvain]

Merci beaucoup

C'est parfait

[MarcelG]

Bonjour,

Si je peux me permettre quelques suggestions dont le seul but est de faciliter la rigueur dans le traitement.

1 - Découper la variable fichier en deux parties
- nom
- répertoire
Trivialement : fichier = nom + répertoire
Ceci afin de pouvoir appeler le nom du classeur lors de lors de sa fermeture, plutôt que le classeur actif

2 - Utiliser le bloc With pour le classseur de traitement et l'item Outlook.
Ceci afin de rendre le code plus lisible

3 - Toujours attacher les objets Range à leur parent.

4 - Libérer aussi, tant qu'à faire, la variable MonMessage

5 - La méthode Send active l'envoi du mail (Mais peut-être cette omission est-elle volontaire)

6 - Pour plus de clarté, affecter le contrôles d'un nom évocateur "Btn_mail" plutôt que laisser affecté un nom automatique (CommandButton)

Voilà.

Bonne continuation.

[patricktoulon]

Bonjour Marcel

Trivialement : fichier = nom + répertoire???????????????

[MarcelG]

Oui, Patrick.

Nom : Patrick.xls
Répertoire : Mes documents
fichier : Répertoire & "\" & Nom

en fin de code

Code :

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

Workbooks(Nom).Close Savechanges:=

Dès lors, je ne comprends pas très bien ces émoticones désobligeants.
Pas grave...

[Menhir]

Code :

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

    ThisWorkbook.ActiveSheet.Copy

Je pense que le ThisWorkbook est inutile.
Il risque même de créer un problème si la feuille active souhaitée ne fait pas partie du classeur contenant la macro.