Controle de programme

Version imprimable

Bonjour

Je souhaite à l’aide d’une ou plusieurs macros avec un bouton lancer un contrôle qui m’indiquera si un programme est ouvert et s’il est utilisé.
La macro suivante m'informe de l’ouverture du programme mais comment faire pour savoir si le programme est utilisé.

Merci pour votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub controle()
    Dim objProcess
    objProcess = "Non du programme" 
    For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process") 'Scan chaque processus actif
   If Process.Name = objProcess Then 'Si un processus nommé existe
Dim Colonne As Integer
Dim Mavaleur As Long
    Colonne = 1
  If Cells(2, Colonne) = "" Then 'La cellule est vide
  Cells(2, Colonne).Select
  Else
 Cells(Rows.Count, Colonne).End(xlUp).Offset(1, 0).Select
  End If
'Affiche les infos dans les cellules
ActiveCell = objProcess
ActiveCell.Offset(0, 1) = Process.ProcessID
ActiveCell.Offset(0, 2) = Application.UserName
ActiveCell.Offset(0, 3) = Format(Date, "DDDD DD MMMM YYYY")
ActiveCell.Offset(0, 4) = Format(Time)
Worksheets("Feuil1").Range("A:F").Columns.AutoFit 'Ajuste la taille des cellules
End If
Next
End Sub

10/10/2014, 12h13
Nico Chg

Bonjour,

je ne saisis pas la différence entre "utilisé" et "ouvert". Que veux tu dire par là ?
11/10/2014, 17h03
lach12

Ouvert : le programme est démarré, mais personne ni un système ne le fait pas fonctionner.
Utilisé : le programme est actif, une personne ou un autre système le fait fonctionner.
Exemple : On peut ouvrir Excel le laisser ouvert sur son PC est ne pas s’en servir.
Le programme est ouvert, mais pas utilisé.
11/10/2014, 18h08
Marc-L

Bonjour,

voir du côté de la propriété Ready
ou tout simplement réserver une cellule indiquant l'état du programme
ou encore une variable publique dans le module du classeur (ThisWorkbook) …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
11/10/2014, 20h59
lach12

OK, mais où l’intégré dans la macro