Discussion :

[xadep]

Bonjour,

J'ai un nouveau projet mais un peu différent de ce que je fais d'habitude (c-a-d vraiment lié à excel)

Je souhaite mettre en place une petite macro qui permettrait selon un chiffre encodé d'activer le programme déterminé.

Je m'explique selon le dpartement encodé (nombre à deux chiffres), je souhaiterais que la gestion commerciale 1 s'ouvre ou la deux, je ne cherche pas à aller plus loin mais je souhaite faciliter la prise de commande et éviter les erreurs. Les 2 programmes de gestion commerciale sont allumés dès le matin et je souhaite donc simplement qu'ils soient appelés et activés.

Par ailleurs, je me demandais si il était possible de dissocier cela d'un fichier excel, j'avoue ne pas tout connaitre en visual basic et je vais pas mal à taton, mais toutes les macros que j'ai pu actuellement réalisé le sont via un fichier excel et sont déclenchées via un systeme de bouton sur la page ou à l'ouverture du fichier. Si cela est possible de faire cela directement via un icone sr mon bureau ca m'arrangerait

Merci de m'aider

[Krovax]

Bonjour,
Si tu veux lancer un programme directement je te conseil de te renseigner sur les fichier Batch
essaye sur google quelque chose comme
lancer programme batch

les macro excel utilise forcément excel
Après tu peux faire du VB mais la je te laisse te reporter au forum corespondant

Edit : bon jai relu ton message j'ai du mal a suivre.
Ton projet est vraiment liéé a excel;
Tu ne veux pas lancer excel
tu as besoin d'une valeur encodé (ou?)

bref une solution a partir d'excel pour lancer un executable une petite recherche sur le forum
regarde cette discution (parmis d'autre)

[xadep]

oui c'est vrai c'est pas fort clair

Ce n'est pas un soucis je lancerais la macro via excel.

Par contre le problème est que si je lance l'exe, il risque de me réouvrir (ou de tenter de réouvrir le programme) mais ceux ci (car il s'agit de 2 programmes différents de gestion commerciale) sont déjà ouverts et je ne souhaiterais que de les faire apparaitre a l'écran afin d'encoder directement la commande sur le bon programme sans devoir faire d'opération de recherche manuelle.

voilà j'espère que c'est un peu plus clair

[Krovax]

Bonjour,
Toujopurs pas compris.
Tu veux qu'un programme soit lancé en fonction d'un test sachant que si le programme est déjà lancé il faut juste le mettre en premier plan c'est bien ca?

donc en gros

On effectue le test pour savoir quel programme lancer
on regarde si tu programme est déjà lancé
si le programme est déjà lancé on le passe au premier plan
sinon on lance le programme

C'est ca?

[xadep]

c'est tout a fait ça

[xadep]

re-bonjour,

J'ai essayé avec la ligne de commande proposée dans la discussion proposée mais rien ne se passe, je vous joins le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub listedep_Change()
 
    Shell "CMD /C " & """" & "cd C:\Program Files\Ciel Software\Ciel Commercial\WGB" & """"
 
End Sub

De plus ce que je souhaiterais c'est que la fenetre de ce programme soit activée à l'écran car à priori le programme doit toujours être ouvert.

Merci de m'aider à trouver la solution

[aalex_38]

Bonjour,

un exemple à adapter (ici j'ouvre outlook s'il n'est pas ouvert et une boite de dialogue s'il l'est déjà) :

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
Dim A As Integer
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process")
For Each objprocess In colProcessList
    A = A + 1
    With ThisWorkbook.Worksheets("Feuil1")
    '.Range("A" & A) = Objprocess.Name
    If objprocess.Name = "OUTLOOK.EXE" Then
        MsgBox "outlook est ouvert"
        bouvert = True
        Exit For
    End If
    End With
Next
 
If Not bouvert Then
    Shell "OUTLOOK.EXE" 'ici mettre le chemin complet
End If

Edit : un lien ici

edit 2 : Ce lien pour minimiser une application, a adapter (rien de plus simple remplacer minimize par maximize)

[xadep]

Merci de ta réponse,

Avec ta solution j'approche de ce que je veux faire, mais je me rends compte de mes lacunes en VBA

Là ca me dépasse un peu j'aurais besoin d'un peu d'aide surtout pour maximiser la fenetre car ta solution fonctionne pour ouvrir mais je n'arrive pas à intégrer le code pour maximiser la fenetre

merci

[aalex_38]

un exemple (a adapter ici fenetre notepad) pour maximiser une fenêtre :

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
34
Const WM_SYSCOMMAND As Long = &H112
 
Const SC_MINIMIZE As Long = &HF020&
Const SC_MAXIMIZE As Long = &HF030&
Const SC_RESTORE As Long = &HF120&
 
Private Declare Function PostMessage Lib "User32.dll" Alias "PostMessageA" ( _
ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Declare Function FindWindow1 Lib "User32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As Long, ByVal lpWindowName As String) As Long
 
Sub testmaximise()
Dim AppTitle As String, tmr As Long
 
AppTitle = "Sans titre - Bloc-Notes" 'ici le titre de la fenetre a maximiser
AppActivate AppTitle
tmr = Timer
While ((Timer - tmr) < 2)
Wend
AppMaximize AppTitle
End Sub
 
'essai perso
Function AppMaximize(AppTitle As String) As Boolean
Dim hwnd As Long
hwnd = FindWindow1(0, AppTitle & vbNullChar)
If hwnd <> 0 Then
PostMessage hwnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0
AppMaximize = True
Else
AppMaximize = False ' Fenêtre pas trouvée
End If
End Function

[xadep]

Super un tout grand merci