Discussion :

[goninph]

Bonjour,

Dans mon job, je remplis quotidiennement des commandes sur excel, que j'envoie à mon magasinier sous forme de mail avec un fichier excel attaché.

Dans mon tableau j'ai un bouton qui envoie un mail automatiquement lorsque je clique dessus, voici le code actuel:

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
Private Sub CommandButton1_Click()
Dim return_receipt As Boolean
Dim strRecipients As String, strSubject As String
 
'Copie la feuille active qui va être envoyée par mail
ActiveSheet.Select
'Adresse mail du magasinier
strRecipients = Range("E1")
'Concerne du mail
strSubject = "Nouvelle commande de pièces" & Range("F4") & Range("G4") & Range("E2")
return_receipt = True
 
Application.Dialogs(xlDialogSendMail).Show _
    strRecipients, _
    strSubject, _
    return_receipt
 
End Sub

J'aimerai ajouter dans le concerne strSubject, en plus des informations déjà reprises le mot inscrit dans les colonne A C et E de la première ligne filtrée.

Colonne A est le nom du monteur
Colonne C est le nom du chantier
Colonne E est le nom de la pièce commandée

Autre point: Mon classeur comporte plusieurs feuilles:
Commande
Pièces
Planning
J'aimerai juste envoyer la feuille de commande sans toutes les autres feuilles

Merci de votre aide. Je suis un novice en VBA

[Daniel.C]

Bonjour,

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 return_receipt As Boolean
Dim strRecipients As String, strSubject As String, Plage As Range
Dim A As String, C As String, E As String
 
'Copie la feuille active qui va être envoyée par mail
ActiveSheet.Select
With ActiveSheet.AutoFilter
    Set Plage = .Range.Resize(, 1).Offset(1).Resize(.Range.Rows.Count - 1, 1)
    If Application.Subtotal(103, Plage) > 0 Then
        Set Plage = Plage.SpecialCells(xlCellTypeVisible)
        A = Plage(1, 1)
        Var = Plage.Resize(1).Offset(, 4).Address
        C = Plage.Resize(1).Offset(, 2)
        E = Plage.Resize(1).Offset(, 4)
        strRecipients = Range("E1")
        strSubject = "Nouvelle commande de pièces" & Range("F4") & Range("G4") & Range("E2")
        strSubject = strSubject & A & C & E
        return_receipt = True
        Sheets("Commande").Copy
        Application.Dialogs(xlDialogSendMail).Show _
        strRecipients, _
        strSubject, _
        return_receipt
    Else
        MsgBox "Aucune ligne filtrée"
    End If
End With
'Supprime le classeur envoyé
'ActiveWorkbook.Close False
End Sub

[goninph]

Merveilleux fantastique mille mercis

Y a quand même des surdoués sur cette planette

[goninph]

Bonjour Daniel.C, bonjour à tous,

Voici le fichier corrigé que j'utilise actuellement, j'aimerai aller plus loin, c'est à dire garder les fonctions actuelles en ajoutant toutes les lignes filtrées dans le corps du message, de manière à ce que le magasinier puisse directement imprimer le mail avec toutes les lignes et colonnes filtrées.

Le fichier resterait attaché comme actuellement afin de garder l'historique des précédentes commandes.

Est-ce réalisable?

Merci d'avance pour votre aide

Meilleures salutations est bon week-end.

[Daniel.C]

Bonjour,

Non, hélas, avec cette méthode, on ne peut pas modifier le corps du message (sinon manuellement).
Si ton client messagerie est Outlook, c'est alors possible. Est-ce le cas ?

[goninph]

Hello,

Malheureusement non, c'est Lotus Notes.
Mais on pourrait imaginer plusieurs lignes dans l'objet du mail ?

[Daniel.C]

Même pas... Mais tu peux poser une nouvelle question en spécifiant dans le titre qu'il s'agit de Notes. Car c'est possible de le faire. Je l'ai fait quand j'utilisais Notes.