Bonjour à tous,
Je viens demander de l'aide sur ce morceau de code qui doit ouvrir une image avec Paint et la redimensionner puis la sauvegarder.
Mon code ouvre bien mon image et mais n’exécute pas le reste des actions via les Sendkeys ...

Qui peut voir pourquoi les SendKeys ne fonctionnent pas ?

Merci d'avance pour tout conseil.

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
Sub OuvrePaint()
 
    Dim AppliPAINT
    AppliPAINT = Shell("c:\windows\system32\MSPAINT.EXE C:\Users\Francois\Downloads\Image.jpg", 1)
 
    '...Provoque une attente de x secondes
    Application.Wait (Now + TimeValue("00:00:02"))
 
    AppActivate ("Image - Paint"), True
    DoEvents
 
    '...Ouvre la boite de dialogue Redimensionner
        Application.SendKeys ("^w"), True
    '...Selectionne l'option Pixels
        Application.SendKeys "{RIGHT}", True
    '...Selectionne la valeur Horizontal
        SendKeys ("{TAB}"), True
    '..Modification de la valeur Horizontale
        SendKeys ("1000"), True
    '...Entrer
        SendKeys "~", True
End Sub