Discussion :

[lach12]

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 :

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
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

[Nico Chg]

Bonjour,

je ne saisis pas la différence entre "utilisé" et "ouvert". Que veux tu dire par là ?

[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é.

[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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[lach12]

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