Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel sendkeys sous xp

sendkeys sous xp

15 réponses
Avatar
patrick.lyon
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
lSteph
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



Avatar
patrick.lyon
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


Avatar
lSteph
...C'est ce qui marche chez moi sous XP!

"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





Avatar
lSteph
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:

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





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





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





Avatar
patrick.lyon
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

Avatar
patrick.lyon
la procédure suivante fonctionne:
Sub test()
Shell "mspaint", 1 'lancement de paint
Application.Wait (Now + TimeValue("00:00:2"))
SendKeys "%+FO", True 'ouverture d'un fichier sous paint
End Sub

c'était un bete pb de tempo que je n'avais pas avant

jps a pensé très fort :
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




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




Avatar
jps
hum...merci pour celui qui a mis le doigt dessus
jps

"patrick.lyon" a écrit dans le message de news:


c'était un bete pb de tempo que je n'avais pas avant

jps a pensé très fort :
bonjour patrick




1 2