Paramètre de date en lancement de fichier Excel

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 SEM As String = "semaine" 'paramètre ligne de commande de la semaine
Const AN As String = "an"       'paramètre ligne de commande de l'année

Private Sub Workbook_Open()
Dim A$
Dim Cmd&
Dim Semaine
Dim Annee
Cmd& = GetCommandLine()
A$ = Space$(lstrlen(ByVal Cmd&))
lstrcpy ByVal A$, ByVal Cmd&
If Len(A$) > 0 Then
  A$ = Mid(A$, InStr(1, A$, SEM) + Len(SEM))
  Semaine = Mid(A$, 1, InStr(1, A$, "/") - 1)
  A$ = Mid(A$, InStr(1, A$, AN) + Len(AN))
  Annee = Trim(Mid(A$, 1, InStr(1, A$, Chr(32)) - 1))
  If IsNumeric(Semaine) And IsNumeric(Annee) Then
  
      '°°° votre traitement à partir d'ici °°°
    MsgBox "Semaine : " & Semaine & vbCrLf & "Année : " & Annee 'pseudo traitement
      '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
    
  End If
End If
End Sub

Private Sub Workbook_Open()
Dim semaine&
Dim annee&
Do Until semaine& > 0
  semaine& = Application.InputBox(prompt:="Veuillez entrer le N° de la semaine recherchée.", Type:=1)
Loop
Do Until annee& > 1900 And annee& < 2050
  annee& = Application.InputBox(prompt:="Veuillez entrer l'année recherchée.", Type:=1)
Loop

  '°°° votre traitement °°°
MsgBox "Semaine : " & semaine& & vbCrLf & "Année : " & annee&

End Sub