Discussion :

[totoletoto13]

Bonjour,
Je cherche comment savoir qui a lancé un fichier xlsm dans un code vba.
Explication : je ne veux pas que certaine macro démarre quand le fichier est lancé depuis l’explorateur Windows (par un utilisateur). Mais elles doivent être exécutées quand mon Schedule lance le fichier Excel.
merci pour vos idée

[Jean-Philippe André]

Salut,
Plusieurs pistes :
- il est possible de lancer un code à l'ouverture du fichier Excel, tu peux y exécuter une batterie de test concernant les conditions d'ouverture
- en utilisant le scheduler windows, et en exécutant une commande batch, il est possible de passer des paramètres à Excel

Sont-ce des solutions envisageables dans ton cas de figure ?

[totoletoto]

Merci pour la réponse rapide .Je viens modifier 4 lignes que je mets à disposition pour ceux qui auront le même problème. Dans mon cas le Schuler lance Excel avec le paramètre « /automation »
Le code et a coller dans ThisWorkbook

ps :le code n'est pas de moi.
-------------------------------

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
30
31
32
33
Option Explicit
 
'delclaration des api
Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (lpString As Any) As Long 'met des espaces dans un string
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any) As Long 'copie un string
'fonction proposée par Tony Proctor sur le forum public de Microsoft : microsoft.public.vb.winapi
 
Private Function GetCmd() As String
   Dim lpCmd As Long
   lpCmd = GetCommandLine()
   GetCmd = Space$(lstrlen(ByVal lpCmd))
   lstrcpy ByVal GetCmd, ByVal lpCmd
End Function
 
Private Sub Workbook_Open()
	Dim monparam As Variant 'déclare une variable
	On Error GoTo Err 
    monparam = GetCmd() 'affecte la valeur de la ligne de commande
 
    If Not IsNull(monparam) Then 'si la variable est nulle
        If Len(monparam) > 0 Then 'on s'assure qu'il y a eu une ligne de commande passée
            If (InStr(1, monparam, "/e", vbTextCompare)) Then
            'code de traitement(excel ouvert depuis l'explorateur)
               MsgBox monparam
            End If
        End If
    End If
Exit Sub
	Err:
	MsgBox ("la macro " & Err.Source & "bug car :" & vbCrLf & Err.Description & vbCrLf & "le numero à chercher dans l'aide est le : " & Err.Number), vbCritical, "Bug Macro : " & Err.Source
 
End Sub