Discussion :

[guismo30]

Bonjour à tous,
j'ai une question qui va certainement vous sembler bete, mais je ne connais pas du tout la VBA mais me débrouille en cherchant sur le forum
J'ai un bouton ActiveX auquel je souhaite ajouter deux macro (une pour sauvegarder et une pour envoyer par email)... impossible de trouver le moyer de les combiner toutes les deux
aurriez vous la possibilité de me faire cela ?

je vous remercie tous
Guismo30

voici les deux macro:

la première

Code :

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

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()
Dim mFileName As String
mFileName = Range("B5").Value
ActiveWorkbook.SaveAs (mFileName)
End Sub

et voici la deuxieme

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
 
Private Sub CommandButton1_Click()
Dim xOutlookObj As Object
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Dear MDM Team" & vbNewLine & vbNewLine & _
              "Please make sure attached product is created" & vbNewLine & _
              "Regards"
                  On Error Resume Next
    With xOutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = Range("H1")
        .Body = xMailBody
        .Attachments.Add ActiveWorkbook.FullName
        .Display  
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

[Lulah]

Bonjour,

Est-ce que Call la 2ème macro (en lui donnant un nom à part) sur la 1ère macro ne résoudrai pas le problème? il suffirait juste d'appeler la 1ère macro sur le bouton pour lancer les deux dans l'ordre?

Comme ça par exemple

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton1_Click()
Dim mFileName As String
mFileName = Range("B5").Value
ActiveWorkbook.SaveAs (mFileName)
 
Call NomDeLaMacro2 ' nouveau nom ici
 
End Sub

Cordialement,

[guismo30]

genial ! super merci a vous, tout est ok maintenant