Lancer une macro Excel 2007 depuis un fichier batch

**kedmard** · 28/03/2012, 10h53

Bonjour,

J'ai lu dans ce tutoriel http://jpcheck.developpez.com/tutori...ge-parametres/ comment manipuler Excel 203 via un fichier batch,

Je suis sur Excel 2007 et je souhaité lancer une macro depuis un fichier batch quelqu'un peut-il m'aider?
dans Excel 2003 la commande à taper dans le batch est la suivante:

Code :

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

"C:\Program Files\Microsoft Office\Office11\EXCEL.EXE" /cmd/MaFonction "C:\temp\classeur1.xls"

Merci d'avance de votre aide.

Kedmard

**Jean-Philippe André** · 28/03/2012, 11h04

salut,

la partie de code vba en lien avec le lancement de macro est dans le chapitre suivant:
http://jpcheck.developpez.com/tutori...etres/#LXI-C-2

Si tu parles de la partie batch, il faut juste regarder dans quel répertoire se trouve ton Excel.exe

**kedmard** · 28/03/2012, 13h00

Salut , jpcheck,

merci pour ta réponse,

j'arrive à ouvrir mon fichier mais la macro ne s'exécute pas, j'ai crée cette macro dans "Thisworkbook" et dans un module à part ce code vba :

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
 
Private Sub Workbook_Open()
Dim macmdline As Variant
Dim monparam As Variant 'déclare une variable
 
    macmdline = GetCmd 'affecte la valeur de la ligne de commande
    If Not IsNull(macmdline) Then 'si la variable est nulle
        If Len(macmdline) > 0 Then 'on s'assure qu'il y a eu une ligne de commande passée
            If InStr(macmdline, "/cmd") > 0 Then
                macmdline = Replace(macmdline, ThisWorkbook.FullName, "", , , vbTextCompare)
                monparam = Split(macmdline, "/cmd")
                Application.Run Mid(monparam(1), 2, Len(monparam(1)) - 3)
            End If
        End If
    End If
End Sub

Dans mon batch j'ai ceci:

Code :

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

"C:\Program Files\Microsoft Office\Office12\EXCEL.exe" /cmd/EnvoiEmail "D:\C_Technique\CT_loi\Code\Report\New4.xlsm"

Mon fixhier excel est de type xlsm ma macro s'appellle EnvoiEmail, elle doit envoyer un mail dès qu'on l'éxécute.

Mon batch ouvre excel mais ne déclenche pas l'envoi de l'email.

y at-il des détails choses que j'ai omis?

Merci .

**Jean-Philippe André** · 28/03/2012, 13h35

a tout hasard:

A noter qu'il est nécessaire que la fonction soit dans un module et pas dans une page de code liée à une feuille ou au classeur.

sinon, tu peux simuler le lancement en passant la chaîne de caractères
"toi-même" avec

Code :

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

 macmdline = "mafausselignebatch"

au lieu de

Code :

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

 macmdline = GetCmd 'affecte la valeur de la ligne de commande

**kedmard** · 28/03/2012, 14h05

J'ai saisi ceci

Code :

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

macmdline = "C:\Program Files\Microsoft Office\Office12\EXCEL.exe" / cmd / EnvoiEmail "D:\C_Technique\CT_loi\Code\Report\New4.xlsm"

et c'est cette la ligne même qui génère l'erreur ("Fin d'instrcution attendu" )
à partir de

Code :

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

"D:\C_Technique\CT_loi\Code\Report\New4.xlsm"

**Jean-Philippe André** · 28/03/2012, 14h14

va au plus direct, vu que le code après supprime le contenu "inutile"

Code :

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

macmdline = "/cmd/EnvoiEmail"

et va en mode pas à pas pour voir où ca bloquerait

**kedmard** · 29/03/2012, 13h37

Voici mon (qui se trouve dans "Thisworkbook") :

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
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Explicit
  Sub EnvoiEmail()
'Author       : Ken Puls (www.excelguru.ca)
'Macro Purpose: To send an email through Outlook without worrying about
'               security prompts
 
    Dim objOL As Object
    Dim objMail As Object
    Dim objwShell As Object
    Dim strEmail As String
 
    'Set your email address here
    strEmail = "papaye@gmail.com;toto@yahoo.fr"
 
    'Turn on error handling
    On Error GoTo Cleanup
 
    'Activate ClickYes
    Set objwShell = CreateObject("wscript.shell")
    objwShell.Run ("""C:\Program Files\Express ClickYes\ClickYes.exe"" -activate")
 
    'Bind to Outlook
    Set objOL = CreateObject("Outlook.Application")
 
    'Create a new email and send it
    Set objMail = objOL.CreateItem(0)    '0=olmailitem
    With objMail
        .To = strEmail
        .Subject = "Volumétrie Appels et dossiers ARS mois dernier"
        .Body = "Bonjour M , " & _
vbCrLf & vbCrLf & _
"Ci-joint le fichier contenant  d'incidents sur le  mois dernier " & _
vbCrLf & vbCrLf & _
"Je reste bien entendu à votre disposition pour tout renseignement complémentaire." & _
vbCrLf & vbCrLf & _
"Cordialement." & _
vbCrLf & vbCrLf & _
"Thiery ." & _
vbCrLf & vbCrLf
 
 
        .Attachments.Add ActiveWorkbook.FullName
        .Send
    End With
 
    'Stop Clickyes
    objwShell.Run ("""C:\Program Files\Express ClickYes\ClickYes.exe"" -stop")
 
Cleanup:
    'Release all objects
    Set objMail = Nothing
    Set objOL = Nothing
    Set objwShell = Nothing
    On Error GoTo 0
End Sub

Ci-joint le ZIP.