bonjour
je suis passé en XP et depuis mes macros utilisants des sendkeys ne
fonctionnes plus
le but de la macro etant d'ouvrir paint et de piloter paint depuis
excel
et depuis le changement de version, je bloque sur la ligne appactivate
qui était inutile avant
pppaint = Range("o1") 'chemin où se trouve Paint
MyAppID = Shell(pppaint, 1) 'lancement de paint
AppActivate MyAppID 'activation de la fenetre paint
SendKeys "%+FO", True 'ouverture d'un fichier sous paint
je ne comprends pas le fonctionnement
si quelqu'un peux m'expliquer
merci
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
O1 étant le résultat d'une combobox me permettant de choisir 2 "paint" differents en fonction du poste utilisé
j'ai testé ma macro principale avec boucle et compagnie, le simple fait de rajouter un wait suffit a resoudre le pb
jps a utilisé son clavier pour écrire :
heu....vérifie où se trouve ton mspaint.exe, patrick car je vois que chez youky, il n'est pas à la même place que chez moi... un peu comme quand j'étais petit et qu'un jour, alors que je rentrais tardivement de l'école parce que j'avais été puni, ma mère me demande pourquoi ; "parce que je n'ai pas su trouver le ballon de guebwiller" que je lui réponds : "ça t'apprendra à jouer avec les affaires des autres" qu'elle me rétorque, tout en me filant une torgniole.... jps
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
O1 étant le résultat d'une combobox me permettant de choisir 2 "paint"
differents en fonction du poste utilisé
j'ai testé ma macro principale avec boucle et compagnie, le simple fait
de rajouter un wait suffit a resoudre le pb
jps a utilisé son clavier pour écrire :
heu....vérifie où se trouve ton mspaint.exe, patrick car je vois que chez
youky, il n'est pas à la même place que chez moi...
un peu comme quand j'étais petit et qu'un jour, alors que je rentrais
tardivement de l'école parce que j'avais été puni, ma mère me demande
pourquoi ; "parce que je n'ai pas su trouver le ballon de guebwiller" que je
lui réponds : "ça t'apprendra à jouer avec les affaires des autres" qu'elle
me rétorque, tout en me filant une torgniole....
jps
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
O1 étant le résultat d'une combobox me permettant de choisir 2 "paint" differents en fonction du poste utilisé
j'ai testé ma macro principale avec boucle et compagnie, le simple fait de rajouter un wait suffit a resoudre le pb
jps a utilisé son clavier pour écrire :
heu....vérifie où se trouve ton mspaint.exe, patrick car je vois que chez youky, il n'est pas à la même place que chez moi... un peu comme quand j'étais petit et qu'un jour, alors que je rentrais tardivement de l'école parce que j'avais été puni, ma mère me demande pourquoi ; "parce que je n'ai pas su trouver le ballon de guebwiller" que je lui réponds : "ça t'apprendra à jouer avec les affaires des autres" qu'elle me rétorque, tout en me filant une torgniole.... jps
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
lSteph
;o)) Pr: qui a volé le vase de Soisson ? "c'est pas moi Monsieur c'est Jean Paul"! "jps" a écrit dans le message de news:
heu....vérifie où se trouve ton mspaint.exe, patrick car je vois que chez youky, il n'est pas à la même place que chez moi... un peu comme quand j'étais petit et qu'un jour, alors que je rentrais tardivement de l'école parce que j'avais été puni, ma mère me demande pourquoi ; "parce que je n'ai pas su trouver le ballon de guebwiller" que je lui réponds : "ça t'apprendra à jouer avec les affaires des autres" qu'elle me rétorque, tout en me filant une torgniole.... jps
"patrick.lyon" a écrit dans le message de news:
j'ai testé et toujours pas paint reste en arriere plan
il y a une infime différence avec ce que tu as écrit alors teste quand même !
"patrick.lyon" a écrit dans le message de news:
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
;o))
Pr: qui a volé le vase de Soisson ?
"c'est pas moi Monsieur c'est Jean Paul"!
"jps" <vaderetrosp@mas> a écrit dans le message de news:
OMOrDGfQGHA.3672@TK2MSFTNGP14.phx.gbl...
heu....vérifie où se trouve ton mspaint.exe, patrick car je vois que chez
youky, il n'est pas à la même place que chez moi...
un peu comme quand j'étais petit et qu'un jour, alors que je rentrais
tardivement de l'école parce que j'avais été puni, ma mère me demande
pourquoi ; "parce que je n'ai pas su trouver le ballon de guebwiller" que
je lui réponds : "ça t'apprendra à jouer avec les affaires des autres"
qu'elle me rétorque, tout en me filant une torgniole....
jps
"patrick.lyon" <xx@xx.com> a écrit dans le message de news:
mn.3b8a7d632cef285a.0@xx.com...
j'ai testé et toujours pas
paint reste en arriere plan
il y a une infime différence avec ce que tu as écrit alors teste quand
même !
"patrick.lyon" <xx@xx.com> a écrit dans le message de news:
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
;o)) Pr: qui a volé le vase de Soisson ? "c'est pas moi Monsieur c'est Jean Paul"! "jps" a écrit dans le message de news:
heu....vérifie où se trouve ton mspaint.exe, patrick car je vois que chez youky, il n'est pas à la même place que chez moi... un peu comme quand j'étais petit et qu'un jour, alors que je rentrais tardivement de l'école parce que j'avais été puni, ma mère me demande pourquoi ; "parce que je n'ai pas su trouver le ballon de guebwiller" que je lui réponds : "ça t'apprendra à jouer avec les affaires des autres" qu'elle me rétorque, tout en me filant une torgniole.... jps
"patrick.lyon" a écrit dans le message de news:
j'ai testé et toujours pas paint reste en arriere plan
il y a une infime différence avec ce que tu as écrit alors teste quand même !
"patrick.lyon" a écrit dans le message de news:
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
patrick.lyon
et donc merci à JPS qui a trouvé la solution ainsi qu'a lSteph qui a été le premier a répondre, ainsi que Youki
jps a exposé le 07/03/2006 :
bonjour patrick essaie comme ceci :
Sub test() Shell "C:I386mspaint.exe", 1 'lancement de paint Application.Wait (Now + TimeValue("00:00:10")) SendKeys "%+FO", True 'ouverture d'un fichier sous paint End Sub
le Senkeys a dû être créé par Lucky Luke (un autre LL) : il dégaine plus vite que son ombre il faut aussi dire que nous, LSteph et moi-même, écrivons mspaint et non pppaint, comme tu sembles l'écrire.. jps
"patrick.lyon" a écrit dans le message de news:
merci c'est ce que j'utilisais avec windows 2000 depuis le passage en XP ça ne marche plus le sendkey s'execute avec excel aulieu de paint
lSteph a couché sur son écran :
Bonjour,
Sub test() Shell "mspaint", 1 'lancement de paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint End Sub
'lSteph
"patrick.lyon" a écrit dans le message de news:
bonjour je suis passé en XP et depuis mes macros utilisants des sendkeys ne fonctionnes plus
le but de la macro etant d'ouvrir paint et de piloter paint depuis excel et depuis le changement de version, je bloque sur la ligne appactivate qui était inutile avant
pppaint = Range("o1") 'chemin où se trouve Paint MyAppID = Shell(pppaint, 1) 'lancement de paint AppActivate MyAppID 'activation de la fenetre paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint
je ne comprends pas le fonctionnement
si quelqu'un peux m'expliquer
merci
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
et donc merci à JPS qui a trouvé la solution
ainsi qu'a lSteph qui a été le premier a répondre,
ainsi que Youki
jps a exposé le 07/03/2006 :
bonjour patrick
essaie comme ceci :
Sub test()
Shell "C:I386mspaint.exe", 1 'lancement de paint
Application.Wait (Now + TimeValue("00:00:10"))
SendKeys "%+FO", True 'ouverture d'un fichier sous paint
End Sub
le Senkeys a dû être créé par Lucky Luke (un autre LL) : il dégaine plus vite
que son ombre
il faut aussi dire que nous, LSteph et moi-même, écrivons mspaint et non
pppaint, comme tu sembles l'écrire..
jps
"patrick.lyon" <xx@xx.com> a écrit dans le message de news:
mn.3b6d7d63ba543644.0@xx.com...
merci
c'est ce que j'utilisais avec windows 2000
depuis le passage en XP ça ne marche plus
le sendkey s'execute avec excel aulieu de paint
lSteph a couché sur son écran :
Bonjour,
Sub test()
Shell "mspaint", 1 'lancement de paint
SendKeys "%+FO", True 'ouverture d'un fichier sous paint
End Sub
'lSteph
"patrick.lyon" <xx@xx.com> a écrit dans le message de news:
mn.3b557d63abe1a883.0@xx.com...
bonjour
je suis passé en XP et depuis mes macros utilisants des sendkeys ne
fonctionnes plus
le but de la macro etant d'ouvrir paint et de piloter paint depuis excel
et depuis le changement de version, je bloque sur la ligne appactivate
qui était inutile avant
pppaint = Range("o1") 'chemin où se trouve Paint
MyAppID = Shell(pppaint, 1) 'lancement de paint
AppActivate MyAppID 'activation de la fenetre paint
SendKeys "%+FO", True 'ouverture d'un fichier sous paint
je ne comprends pas le fonctionnement
si quelqu'un peux m'expliquer
merci
-- Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
et donc merci à JPS qui a trouvé la solution ainsi qu'a lSteph qui a été le premier a répondre, ainsi que Youki
jps a exposé le 07/03/2006 :
bonjour patrick essaie comme ceci :
Sub test() Shell "C:I386mspaint.exe", 1 'lancement de paint Application.Wait (Now + TimeValue("00:00:10")) SendKeys "%+FO", True 'ouverture d'un fichier sous paint End Sub
le Senkeys a dû être créé par Lucky Luke (un autre LL) : il dégaine plus vite que son ombre il faut aussi dire que nous, LSteph et moi-même, écrivons mspaint et non pppaint, comme tu sembles l'écrire.. jps
"patrick.lyon" a écrit dans le message de news:
merci c'est ce que j'utilisais avec windows 2000 depuis le passage en XP ça ne marche plus le sendkey s'execute avec excel aulieu de paint
lSteph a couché sur son écran :
Bonjour,
Sub test() Shell "mspaint", 1 'lancement de paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint End Sub
'lSteph
"patrick.lyon" a écrit dans le message de news:
bonjour je suis passé en XP et depuis mes macros utilisants des sendkeys ne fonctionnes plus
le but de la macro etant d'ouvrir paint et de piloter paint depuis excel et depuis le changement de version, je bloque sur la ligne appactivate qui était inutile avant
pppaint = Range("o1") 'chemin où se trouve Paint MyAppID = Shell(pppaint, 1) 'lancement de paint AppActivate MyAppID 'activation de la fenetre paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint
je ne comprends pas le fonctionnement
si quelqu'un peux m'expliquer
merci
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
lSteph
Salut Youki,
Désolé je t'assure que je n'ai aucun plantage même si dans la plupart des cas il est hautement recommandé de mettre le chemin complet, mspaint semble implicitement reconnu et trouvé!
lSteph "Youky" a écrit dans le message de news: %
Xp pro, il me faut cela, sinon plantage Shell "C:WindowsSystem32mspaint.exe", 1 'lancement de paint Youky "patrick.lyon" a écrit dans le message de news:
merci c'est ce que j'utilisais avec windows 2000 depuis le passage en XP ça ne marche plus le sendkey s'execute avec excel aulieu de paint
lSteph a couché sur son écran :
Bonjour,
Sub test() Shell "mspaint", 1 'lancement de paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint End Sub
'lSteph
"patrick.lyon" a écrit dans le message de news:
bonjour je suis passé en XP et depuis mes macros utilisants des sendkeys ne fonctionnes plus
le but de la macro etant d'ouvrir paint et de piloter paint depuis excel et depuis le changement de version, je bloque sur la ligne appactivate qui était inutile avant
pppaint = Range("o1") 'chemin où se trouve Paint MyAppID = Shell(pppaint, 1) 'lancement de paint AppActivate MyAppID 'activation de la fenetre paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint
je ne comprends pas le fonctionnement
si quelqu'un peux m'expliquer
merci
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Salut Youki,
Désolé je t'assure que je n'ai aucun plantage
même si dans la plupart des cas il est hautement recommandé
de mettre le chemin complet, mspaint semble implicitement reconnu et trouvé!
lSteph
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%23bccf8eQGHA.3872@TK2MSFTNGP15.phx.gbl...
Xp pro, il me faut cela, sinon plantage
Shell "C:WindowsSystem32mspaint.exe", 1 'lancement de paint
Youky
"patrick.lyon" <xx@xx.com> a écrit dans le message de news:
mn.3b6d7d63ba543644.0@xx.com...
merci
c'est ce que j'utilisais avec windows 2000
depuis le passage en XP ça ne marche plus
le sendkey s'execute avec excel aulieu de paint
lSteph a couché sur son écran :
Bonjour,
Sub test()
Shell "mspaint", 1 'lancement de paint
SendKeys "%+FO", True 'ouverture d'un fichier sous paint
End Sub
'lSteph
"patrick.lyon" <xx@xx.com> a écrit dans le message de news:
mn.3b557d63abe1a883.0@xx.com...
bonjour
je suis passé en XP et depuis mes macros utilisants des sendkeys ne
fonctionnes plus
le but de la macro etant d'ouvrir paint et de piloter paint depuis
excel
et depuis le changement de version, je bloque sur la ligne appactivate
qui était inutile avant
pppaint = Range("o1") 'chemin où se trouve Paint
MyAppID = Shell(pppaint, 1) 'lancement de paint
AppActivate MyAppID 'activation de la fenetre paint
SendKeys "%+FO", True 'ouverture d'un fichier sous paint
je ne comprends pas le fonctionnement
si quelqu'un peux m'expliquer
merci
-- Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Désolé je t'assure que je n'ai aucun plantage même si dans la plupart des cas il est hautement recommandé de mettre le chemin complet, mspaint semble implicitement reconnu et trouvé!
lSteph "Youky" a écrit dans le message de news: %
Xp pro, il me faut cela, sinon plantage Shell "C:WindowsSystem32mspaint.exe", 1 'lancement de paint Youky "patrick.lyon" a écrit dans le message de news:
merci c'est ce que j'utilisais avec windows 2000 depuis le passage en XP ça ne marche plus le sendkey s'execute avec excel aulieu de paint
lSteph a couché sur son écran :
Bonjour,
Sub test() Shell "mspaint", 1 'lancement de paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint End Sub
'lSteph
"patrick.lyon" a écrit dans le message de news:
bonjour je suis passé en XP et depuis mes macros utilisants des sendkeys ne fonctionnes plus
le but de la macro etant d'ouvrir paint et de piloter paint depuis excel et depuis le changement de version, je bloque sur la ligne appactivate qui était inutile avant
pppaint = Range("o1") 'chemin où se trouve Paint MyAppID = Shell(pppaint, 1) 'lancement de paint AppActivate MyAppID 'activation de la fenetre paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint
je ne comprends pas le fonctionnement
si quelqu'un peux m'expliquer
merci
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
lSteph
;o)) "patrick.lyon" a écrit dans le message de news:
et donc merci à JPS qui a trouvé la solution ainsi qu'a lSteph qui a été le premier a répondre, ainsi que Youki
jps a exposé le 07/03/2006 :
bonjour patrick essaie comme ceci :
Sub test() Shell "C:I386mspaint.exe", 1 'lancement de paint Application.Wait (Now + TimeValue("00:00:10")) SendKeys "%+FO", True 'ouverture d'un fichier sous paint End Sub
le Senkeys a dû être créé par Lucky Luke (un autre LL) : il dégaine plus vite que son ombre il faut aussi dire que nous, LSteph et moi-même, écrivons mspaint et non pppaint, comme tu sembles l'écrire.. jps
"patrick.lyon" a écrit dans le message de news:
merci c'est ce que j'utilisais avec windows 2000 depuis le passage en XP ça ne marche plus le sendkey s'execute avec excel aulieu de paint
lSteph a couché sur son écran :
Bonjour,
Sub test() Shell "mspaint", 1 'lancement de paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint End Sub
'lSteph
"patrick.lyon" a écrit dans le message de news:
bonjour je suis passé en XP et depuis mes macros utilisants des sendkeys ne fonctionnes plus
le but de la macro etant d'ouvrir paint et de piloter paint depuis excel et depuis le changement de version, je bloque sur la ligne appactivate qui était inutile avant
pppaint = Range("o1") 'chemin où se trouve Paint MyAppID = Shell(pppaint, 1) 'lancement de paint AppActivate MyAppID 'activation de la fenetre paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint
je ne comprends pas le fonctionnement
si quelqu'un peux m'expliquer
merci
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
;o))
"patrick.lyon" <xx@xx.com> a écrit dans le message de news:
mn.3b9a7d63602dac79.0@xx.com...
et donc merci à JPS qui a trouvé la solution
ainsi qu'a lSteph qui a été le premier a répondre,
ainsi que Youki
jps a exposé le 07/03/2006 :
bonjour patrick
essaie comme ceci :
Sub test()
Shell "C:I386mspaint.exe", 1 'lancement de paint
Application.Wait (Now + TimeValue("00:00:10"))
SendKeys "%+FO", True 'ouverture d'un fichier sous paint
End Sub
le Senkeys a dû être créé par Lucky Luke (un autre LL) : il dégaine plus
vite que son ombre
il faut aussi dire que nous, LSteph et moi-même, écrivons mspaint et non
pppaint, comme tu sembles l'écrire..
jps
"patrick.lyon" <xx@xx.com> a écrit dans le message de news:
mn.3b6d7d63ba543644.0@xx.com...
merci
c'est ce que j'utilisais avec windows 2000
depuis le passage en XP ça ne marche plus
le sendkey s'execute avec excel aulieu de paint
lSteph a couché sur son écran :
Bonjour,
Sub test()
Shell "mspaint", 1 'lancement de paint
SendKeys "%+FO", True 'ouverture d'un fichier sous paint
End Sub
'lSteph
"patrick.lyon" <xx@xx.com> a écrit dans le message de news:
mn.3b557d63abe1a883.0@xx.com...
bonjour
je suis passé en XP et depuis mes macros utilisants des sendkeys ne
fonctionnes plus
le but de la macro etant d'ouvrir paint et de piloter paint depuis
excel
et depuis le changement de version, je bloque sur la ligne appactivate
qui était inutile avant
pppaint = Range("o1") 'chemin où se trouve Paint
MyAppID = Shell(pppaint, 1) 'lancement de paint
AppActivate MyAppID 'activation de la fenetre paint
SendKeys "%+FO", True 'ouverture d'un fichier sous paint
je ne comprends pas le fonctionnement
si quelqu'un peux m'expliquer
merci
-- Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
;o)) "patrick.lyon" a écrit dans le message de news:
et donc merci à JPS qui a trouvé la solution ainsi qu'a lSteph qui a été le premier a répondre, ainsi que Youki
jps a exposé le 07/03/2006 :
bonjour patrick essaie comme ceci :
Sub test() Shell "C:I386mspaint.exe", 1 'lancement de paint Application.Wait (Now + TimeValue("00:00:10")) SendKeys "%+FO", True 'ouverture d'un fichier sous paint End Sub
le Senkeys a dû être créé par Lucky Luke (un autre LL) : il dégaine plus vite que son ombre il faut aussi dire que nous, LSteph et moi-même, écrivons mspaint et non pppaint, comme tu sembles l'écrire.. jps
"patrick.lyon" a écrit dans le message de news:
merci c'est ce que j'utilisais avec windows 2000 depuis le passage en XP ça ne marche plus le sendkey s'execute avec excel aulieu de paint
lSteph a couché sur son écran :
Bonjour,
Sub test() Shell "mspaint", 1 'lancement de paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint End Sub
'lSteph
"patrick.lyon" a écrit dans le message de news:
bonjour je suis passé en XP et depuis mes macros utilisants des sendkeys ne fonctionnes plus
le but de la macro etant d'ouvrir paint et de piloter paint depuis excel et depuis le changement de version, je bloque sur la ligne appactivate qui était inutile avant
pppaint = Range("o1") 'chemin où se trouve Paint MyAppID = Shell(pppaint, 1) 'lancement de paint AppActivate MyAppID 'activation de la fenetre paint SendKeys "%+FO", True 'ouverture d'un fichier sous paint
je ne comprends pas le fonctionnement
si quelqu'un peux m'expliquer
merci
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
