[VBA][Word]Savoir comment word à été démarré [A Faire]

[DotNET74]

Bonjour,

Voilà mon problème,

Lorsqu'un utilisateur de ma société lance Word depuis le raccouri du menu démarrer Word charge un fichier complément qui contient une Macro AutoExec qui effectue certaines opérations de mise à jour si besoin.

Tout fonctionne bien sauf lorsque l'utilisateur ouvre un fichier word depuis l'explorateur Windows il se passe 2 cas de figure:

1. Pas de mise à jour à faire par le fichier complément donc le document s'ouvre.

2. Le fichier complément doit mettre à jour et là le fichier ne s'ouvre pas.

Après avoir longuement cherché, je n'ai aucune solution !

Je voulais savoir si on avait la possibilité de récupérer le chemin d'accès du fichier que l'utilisateur veut ouvrir afin de pouvoir l'ouvrir une fois la mise à jour effectué.

Ou alors, peut on déterminer via le code la manière dont Word à été démarré ?

Merci pour votre participation

[Lou Pitchoun]

Salut,

Peut être des solutions :
http://access.developpez.com/faq/?pa...tion#close_exe
http://access.developpez.com/faq/?pa...n#tuer_process

[DotNET74]

Merci mais le néopjite que je suis ne comprends pas comment utiliser ces fonctions !

[Lou Pitchoun]

Je t'ai orienté vers une piste un peu difficile.
Il y a plus simple.

Je me suis inspiré de cette Q/R de la VB que j'ai modifié comme suit :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function ExecProcess(ByVal ProcessName As String) As Boolean
 
    Dim svc As Object
    Dim sQuery As String
    Dim oproc
    Set svc = GetObject("winmgmts:root\cimv2")
    sQuery = "select * from win32_process where name='" & ProcessName & "'"
    For Each oproc In svc.execquery(sQuery)
        ExecProcess = True
    Next
    Set svc = Nothing
 
End Function
 
Sub test()
 
    If ExecProcess("word.exe") Then
        MsgBox "Excel lancé"
        Else
            MsgBox "Excel pas lancé"
    End If
 
End Sub

[DotNET74]

Merci beaucoup mais je vois pas à quoi ça me sert par rapport à mon problème qui est de savoir comment à été lancé Word.

[Lou Pitchoun]

Désolé j'ai vraiment mal compris ce que tu souhaites faire.

je relis calmement.

[DotNET74]

Aucun problème

Merci beaucoup pour ton aide en tout les cas

[Heureux-oli]

C'est un peu compliqué ce que tu veux faire.

Il faudrait faire une sorte de logbook avec toutes les opération que Word fait.
Ensuite retire ce qui t'intéresse.

[DotNET74]

Ok mais dans VBA il y a les fonctions suivantes:

VBA.Interaction.Command
VBA.Interaction.Command$

qui sont censés renvoyer les arguments passés à word si je ne me trompes.

Cependant, je ne reçoit que des chaines vides !!!

Si dans le fichier Normal.dot et dans la procédure suivante

Code :

1
2
3
4
Private Sub Document_Open()
 Debug.Print Command$
 Stop
End Sub

et qu'on double click sur un fichier word depuis l'explorateur windows on devrait récupérer le chemin d'accès de ce fichier en argument

mais là rien !

[Heureux-oli]

Document_Open ne s'exécute que lorsqu'un document est ouvert.

Code :

1
2
3
4
Sub AutoOpen()
MsgBox ActiveDocument.Name
 
End Sub

Essaie pour voir si c'est mieux !

[DotNET74]

Idem

Je passe bien dans le code mais VBA.Interaction.Command est égale à ""

[Heureux-oli]

Je pense que c'est normal, l'interraction n'a pas lieu dans Word, mais dans Windows.

[DotNET74]

Pourtant l'aide de VBA donne ceci !

Command, fonction


Renvoie la partie argument de la ligne de commande utilisée pour lancer Microsoft Visual Basic ou un programme exécutable développé avec Visual Basic.

chui pas dans la mer...

[DotNET74]

Bon en cherchant un peu dans les Dlls j'ai trouvé cette classe

Faut créer une référence dans le projet VBA sur Microsoft WMI Scripting ...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Document_Open()  
   Set MyWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
   Set MyProcesses = MyWMIService.ExecQuery("Select * from Win32_Process " & "Where Name = 'winword.exe'")
   For Each objProcess In MyProcesses
      Dim MyWMIProperties As WbemScripting.SWbemPropertySet
      Dim MyWMIProperty As WbemScripting.SWbemProperty
      Set MyWMIProperties = objProcess.Properties_
      For Each MyWMIProperty In MyWMIProperties
         If MyWMIProperty.Name = "CommandLine" Then
            Debug.Print MyWMIProperty.Value
            Stop
         End If
      Next
   Next
End Sub

donc si on fait un double click sur un fichier word dans l'explorateur Windows on obtient ce résultat:

"C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE" /n /dde

Et là ben toujours pas de chemin d'accès !!!

En revanche, si on démarre word à l'aide d'un raccourci ayant le lien comme ceci:

Cible = "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE" "G:\EDPs\Modèles\edp.doc"

On obtient:

"C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE" "G:\EDPs\Modèles\edp.doc"

Et là, il y a bien le chemin du fichier comme argument.
ça vous parle un peu plus ?

[DotNET74]

Alors !!!!

Je vous ai posé une colle là hein !!!