Lancer une macro Excel 2007 depuis un fichier batch

Version imprimable

28/03/2012, 10h53
kedmard

Lancer une macro Excel 2007 depuis un fichier batch

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:

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

Merci d'avance de votre aide.

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

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 :)

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:

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:

"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 .

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

a tout hasard:

Citation:

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:

macmdline = "mafausselignebatch"

au lieu de

Code:

macmdline = GetCmd 'affecte la valeur de la ligne de commande
28/03/2012, 14h05
kedmard

J'ai saisi ceci

Code:

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:

"D:\C_Technique\CT_loi\Code\Report\New4.xlsm"
28/03/2012, 14h14
Jean-Philippe André

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

Code:

macmdline = "/cmd/EnvoiEmail"

et va en mode pas à pas pour voir où ca bloquerait :)
28/03/2012, 17h51
kedmard

ça bloque à ce niveau:

Code:

Application.Run Mid(monparam(1), 2, Len(monparam(1)) - 3)
28/03/2012, 17h57
Jean-Philippe André

essaie avec

Code:

Application.Run Mid(monparam(1), 2, Len(monparam(1)) - 1)
28/03/2012, 18h09
kedmard

erreur sur la même ligne, et le message d'erreur est:

Citation:

Impossible d'éxécuter la macro EnvoiEmail il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées

La macro est bien dans un module du classeur et le tout se trouve dans un espace approuvé ce qui active immédiatement toute macro, je ne vois donc pas où se trouve l'erreur... pourtant ça marche pas :cry:
29/03/2012, 09h08
Jean-Philippe André

Procédure ou fonction ?
Public ou Private ?

:koi:
29/03/2012, 09h17
kedmard

La macro contient une procédure publique (public Sub EnvoiEmail).
29/03/2012, 09h26
Jean-Philippe André

hum, peux-tu mettre en PJ ton fichier, je n'arrive pas à reproduire l'erreur :aie:

1 pièce(s) jointe(s)

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

Code:

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.

29/03/2012, 13h58
Jean-Philippe André

Tu as interverti les 2 en fait :

- Workbook_Open doit etre dans l'objet ThisWorkbook.
- EnvoiMail doit etre dans le module Module1.

Citation:

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.
30/03/2012, 16h06
kedmard

ça marrrrrrrrrrrche :ccool:, merci Jpcheck.

Bon weekend.