Discussion :

[maxim_um]

Salut tout le monde;

cela étant, mon commentaire était laconique mais pas trollesque

Dans ce cas, à l'avenir, fais l'effort d'être un peu plus explicite, parce que tel quel, ce genre de message ne sert strictement à rien.

Mais bon, vous conviendrez tous que la logique voudrait que ça fonctionne ou que ça ne fonctionne pas. Mais certainement pas un genre de "milk shake" avec les deux comme il semble se passer avec Vista. Au passage, merci ProgElect d'avoir testé sur Vista. En ce qui concerne VB6, même s'il présente des similitudes avec VBScript, c'est quand même un langage différent et de surcroit, de programmation. Comme il offre plus de possibilités, il convient d'adopter une démarche plus appropriée par rapport au problème.

Du reste, j'ai émis suffisamment d'alertes pour qu'on n’ait pas à s'attarder sur cette approche VBScript, tellement les solutions existent et sont plus efficaces.

Enfin pour répondre à chris-57, un dernier mot sur le "code" VBA ci-dessus. Et bien, sache que c'est un script interprété (une macro), ainsi tu ne peux pas le compiler.

Cela dit, ce serait quand même indécent de ma part de te laisser en plant. Je te poste une solution simple dans le forum Scripts/Batch

[SfJ5Rpw8]

....

j'ai finalement posté sur le topic Scripts/Batch qui m'a mis sur une piste :

Code :

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

1
2
3
Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal (...)

grâce à ce code et à une contribution à omen999 ( voir ici : DynamicWrapperX Utilisez les API Win32 en VBScript ) , voici une solution VBScript/DynamicWrapperX :

Code :

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

1
2
3
4
5
6
7
8
Set DX = CreateObject("DynamicWrapperX") 
DX.Register "user32", "FindWindow", "i = lS", "r = l"   ' référence la fonction de la dll
DX.Register "user32", "PostMessage", "i = llll", "r = l" 
hwnd=DX.FindWindow ( 0,"Calculatrice")
WM_CLOSE = &H10
If hwnd <> 0 then
  DX.PostMessage hWnd, WM_CLOSE, 0, 0
end if

[omen999]

oops grilled: j'allais poster quasiment le même code
juste une petite remarque pour les plus attentifs qui auront remarqué la syntaxe anormale de FindWindow à savoir

Code :

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

DX.Register "user32", "FindWindow", "i = lS", "r = l"

au lieu de celle conforme à la syntaxe msdn

Code :

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

DX.Register "user32", "FindWindow", "i = SS", "r = l"

mais le code "conforme" déclenche une erreur

Code :

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

hWnd = DX.FindWindow(vbNullString,"Calculatrice")

[chris-57]

effectivement le code m'a généré une erreur.

De toute manière je peux faire avec le code VBA et Excel.