Discussion :

[arctica]

Bonsoir à tous,

débutant en vba j'ai souhaité utiliser la tache planifiéee de windows pour executer une macro situéee dans un module de personal .xlsb j'ai donc fais des recherches sur le net et trouvé cette macro toutefois je ne sais pas sous quelle forme et ou positionner la ligne de commande Batch en rouge là
Pourriez vous m'aider ?

C:\Program Files\Microsoft Office\Office11\EXCEL.EXE" /cmd/ouverture "C:\temp\PERSONAL.xlsb

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

[Jean-Philippe André]

salut,

je te recommande la lecture du tutoriel suivant : http://jpcheck.developpez.com/tutori...ge-parametres/


ta ligne actuelle va lancer la macro ouverture

[arctica]

bonjour à tous ,

je n'ai toujours pas trouvé comment marche le lancement de ma macro.
J'ai mis cette commande en .bat
"C:\Program Files\Microsoft Office\Office11\EXCEL.EXE" /cmd/MaFonction "C:\temp\classeur1.xls"

mais ou dois-je mettre le code suivant , à la suite du fichier . bat ou dans un module du dossier personal ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

quand je le programme il y a bien à l'heure dite une fenetre Dos qui s'ouvre mais apres il ne se passe rien j'ai du faire une erreur mais ou
Pourriez vous m'aider ?

[Jean-Philippe André]

salut,

déjà vérifions ta version d'Excel.

Excel 2003 est la version 11, Excel 2007 la version 12...

le répertoire est-il bon ?

Le code se met dans ton fichier Excel, dans la partie ThisWorkBook

[arctica]

Salut Jp,

J'ai changé la version excel 11 en 12 cela a declencher l'ouverture d'excel mais je dois trouver le chemin du fichier personal car il ne le trouve pas
on avance merci pour ton aide

[Jean-Philippe André]

le code doit se situer dans le fichier excel que tu comptes ouvrir, on est d'accord ?

je te laisse avancer pour le fichier personal