Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Xav
Bonjour
j'avais trouvé ceci sur le forum
(placer les instructions Private avant la définition de la procédure)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long
Sub Arret()
hWnd = FindWindow("PrgBva_WND", vbNullString) If hWnd Then PostMessage hWnd, &H12, 0, 0
end sub -- Cordialement
@+ Xav "hubert veujoz" a écrit dans le message de news:42dccc0e$0$307$
Bonjours j' ai ca comme code pour ouvrir
Dim Lance Lance = Shell("C:MES PROGRAMMESBVAPrgBva.exe", 1)
Maintenant j aimerai fermer PrgBva.exe quand je ferme la Feuille active de
Excel
Merci de vos conseils.
cordialement hubert
Bonjour
j'avais trouvé ceci sur le forum
(placer les instructions Private avant la définition de la procédure)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Sub Arret()
hWnd = FindWindow("PrgBva_WND", vbNullString)
If hWnd Then PostMessage hWnd, &H12, 0, 0
end sub
--
Cordialement
@+
Xav
"hubert veujoz" <hveujoz@club-internet.fr> a écrit dans le message de
news:42dccc0e$0$307$7a628cd7@news.club-internet.fr...
Bonjours
j' ai ca comme code pour ouvrir
Dim Lance
Lance = Shell("C:MES PROGRAMMESBVAPrgBva.exe", 1)
Maintenant j aimerai fermer PrgBva.exe quand je ferme la Feuille active
de
(placer les instructions Private avant la définition de la procédure)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long
Sub Arret()
hWnd = FindWindow("PrgBva_WND", vbNullString) If hWnd Then PostMessage hWnd, &H12, 0, 0
end sub -- Cordialement
@+ Xav "hubert veujoz" a écrit dans le message de news:42dccc0e$0$307$
Bonjours j' ai ca comme code pour ouvrir
Dim Lance Lance = Shell("C:MES PROGRAMMESBVAPrgBva.exe", 1)
Maintenant j aimerai fermer PrgBva.exe quand je ferme la Feuille active de
Excel
Merci de vos conseils.
cordialement hubert
hubert veujoz
Bonjour Xavier merci de vous donnez un peu de peine J ai essayer le code, cela ne fonctionne pas J'ai toujours PrgBva actif et ouvert
Merci encore
cordialemen hubert
"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le message de news:
Bonjour
j'avais trouvé ceci sur le forum
(placer les instructions Private avant la définition de la procédure)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long
Sub Arret()
hWnd = FindWindow("PrgBva_WND", vbNullString) If hWnd Then PostMessage hWnd, &H12, 0, 0
end sub -- Cordialement
@+ Xav "hubert veujoz" a écrit dans le message de news:42dccc0e$0$307$
Bonjours j' ai ca comme code pour ouvrir
Dim Lance Lance = Shell("C:MES PROGRAMMESBVAPrgBva.exe", 1)
Maintenant j aimerai fermer PrgBva.exe quand je ferme la Feuille active de
Excel
Merci de vos conseils.
cordialement hubert
Bonjour Xavier
merci de vous donnez un peu de peine
J ai essayer le code, cela ne fonctionne pas
J'ai toujours PrgBva actif et ouvert
Merci encore
cordialemen
hubert
"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le
message de news: ukseOfEjFHA.3300@TK2MSFTNGP10.phx.gbl...
Bonjour
j'avais trouvé ceci sur le forum
(placer les instructions Private avant la définition de la procédure)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Sub Arret()
hWnd = FindWindow("PrgBva_WND", vbNullString)
If hWnd Then PostMessage hWnd, &H12, 0, 0
end sub
--
Cordialement
@+
Xav
"hubert veujoz" <hveujoz@club-internet.fr> a écrit dans le message de
news:42dccc0e$0$307$7a628cd7@news.club-internet.fr...
Bonjours
j' ai ca comme code pour ouvrir
Dim Lance
Lance = Shell("C:MES PROGRAMMESBVAPrgBva.exe", 1)
Maintenant j aimerai fermer PrgBva.exe quand je ferme la Feuille active
de
Bonjour Xavier merci de vous donnez un peu de peine J ai essayer le code, cela ne fonctionne pas J'ai toujours PrgBva actif et ouvert
Merci encore
cordialemen hubert
"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le message de news:
Bonjour
j'avais trouvé ceci sur le forum
(placer les instructions Private avant la définition de la procédure)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long
Sub Arret()
hWnd = FindWindow("PrgBva_WND", vbNullString) If hWnd Then PostMessage hWnd, &H12, 0, 0
end sub -- Cordialement
@+ Xav "hubert veujoz" a écrit dans le message de news:42dccc0e$0$307$
Bonjours j' ai ca comme code pour ouvrir
Dim Lance Lance = Shell("C:MES PROGRAMMESBVAPrgBva.exe", 1)
Maintenant j aimerai fermer PrgBva.exe quand je ferme la Feuille active de
