Discussion :

[vaucluseimmo]

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

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"

et ce code dans Workbook_Open

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

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

"F:\Mes Documents Cat\Formation logiciels\Classeur en Cours\Relevé Facture en Cours\Facture Gestion StockV42.xls"

Ou ai-je fais une erreur????,,
Merci de votre aide
Cordialement

[PMO2017]

Bonjour,

Changez le code de Workbook_Open

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Declare Function GetCommandLine& Lib "kernel32" Alias "GetCommandLineA" ()
Private Declare Function lstrlen& Lib "kernel32" Alias "lstrlenA" (lpString As Any)
Private Declare Function lstrcpy& Lib "kernel32" Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any)
 
Private Sub Workbook_Open()
Dim A$
Dim Cmd&
Cmd& = GetCommandLine()
A$ = Space$(lstrlen(ByVal Cmd&))
lstrcpy ByVal A$, ByVal Cmd&
If Len(A$) > 0 Then MsgBox A$
End Sub

Cordialement.

PMO
Patrick Morange

[vaucluseimmo]

Bonsoir

Merci de votre réponse
Mais ça ne fonctionne pas
Excel s'ouvre mais pas mon usf "AlerteEchéance"


a++++++++++++++
Cordialement

[PMO2017]

Bonjour,

Il faut travailler la chaîne A$ comme dans l'exemple ci-dessous

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
Private Declare Function GetCommandLine& Lib "kernel32" Alias "GetCommandLineA" ()
Private Declare Function lstrlen& Lib "kernel32" Alias "lstrlenA" (lpString As Any)
Private Declare Function lstrcpy& Lib "kernel32" Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any)
 
Const PARAM1 As String = "AlerteEchéance" 'paramètre ligne de commande
 
Private Sub Workbook_Open()
Dim A$
Dim Cmd&
Dim Parametre
Cmd& = GetCommandLine()
A$ = Space$(lstrlen(ByVal Cmd&))
lstrcpy ByVal A$, ByVal Cmd&
If Len(A$) > 0 Then
  A$ = Mid(A$, InStr(1, A$, PARAM1) + Len(PARAM1))
  Parametre = Trim(Mid(A$, 1, InStr(1, A$, " ") - 1))
 
  If Parametre <> "" Then
    If Parametre = "ouzqehfgulzrq" Then
      'faire ceci
    ElseIf Parametre = "omùqkfds" Then
      'faire cela
    ElseIf Parametre = "AlerteEchéance" Then
      'mon_userform.Show
    End If
  End If
 
End If
End Sub

Cordialement.

PMO
Patrick Morange

[vaucluseimmo]

Bonjour
Merci de votre aide

J'ai tardé a répondre cause plus de courant EDF depuis vendredi dernier

J'ai essayé mais j'arrive pas a faire fonctionner votre code comprends pas vraiment ce code
suis désolé

Cordialement

[Jean-Philippe André]

salut,
je mets en lien le tutoriel en question : http://jpcheck.developpez.com/tutori...ge-parametres/
Il faut bien faire la distinction entre la tâche planifiée et le batch lancée par la tâche planifiée
le code

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"

est bon, mais il doit être dans un fichier .bat.
La tâche planifiée exécutera ce fichier .bat