Bonjour
Je cherche a ouvrir un Usf Excel "AlerteEchéance" a l'ouverture de Windows
sans l'application Excel Visible
Via le tuto "Excel Batch passage de paramétres" j'ai essayé de faire une tache planifiée
mais ça fonctionne pas voici ce que j'ai fait
Dans tâches planifiée j'ai mis cette ligne
et ce code dans Workbook_Open
Code : Sélectionner tout - Visualiser dans une fenêtre à part "C:\Program Files\Microsoft Office\Office10\EXCEL.EXE" /cmd/AlerteEchéance "C:\Facture Gestion StockV42.xls"
Par contre si je met dans tâches planifiées cette ligne ,la ça fonctionne
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") VBA.UserForms.Add(Mid(monparam(1), 2, Len(monparam(1)) - 3)).Show End If End If End If End Sub
Ou ai-je fais une erreur????,,
Code : Sélectionner tout - Visualiser dans une fenêtre à part "F:\Mes Documents Cat\Formation logiciels\Classeur en Cours\Relevé Facture en Cours\Facture Gestion StockV42.xls"
Merci de votre aide
Cordialement
Partager