Discussion :

[zoumzoum59]

Bonjour a tous

Suite a une réinstallation de PC de mon excell 2002 sous w8, je me retrouve avec une erreur a l'exécution de mon code vba suivant:

Code :

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

1
2
3
 
 
 SendKeys "%f", True

Avec une "erreur d'exécution 70 Permission refusé".

Quelqu'un aurait il une idée sur le sujet, à par mettre un autre OS que W8?

Merci d'avance

[parmi]

Bonjour,

Pour précision, à quoi te sert d'envoyer un Alt-F ?

[zoumzoum59]

Bonjour parmi


J'envoie un Alt F parce que je lance un logiciel depuis excell par le biais de vba et je pilote ensuite le logiciel en utilisant Sendkeys pour ouvrir le menu fichier et autre.

Comme dans le code ci dessous:

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
 
 ChDrive "C"
    ChDir "C:\Program Files (x86)\logiciel"
    Shell """C:\Program Files (x86)\logiciel\logiciel.exe"""
    Application.Wait (Now + TimeValue("0:00:01"))
     SendKeys "%f", True
    SendKeys "i", True
    Sleep 10
    SendKeys " ", True
    SendKeys "{tab 3}", True
    SendKeys "~", True
    Sleep 10
    SendKeys NomFichier, True
    SendKeys "~", True
    Sleep 10
    SendKeys "{tab 3}", True
    SendKeys "~", True

[AlainTech]

Bonjour,

Et en pas à pas, ça fonctionne ou pas?

[zoumzoum59]

Bonjour AlainTech


Non en pas a pas cela ne fonctionne pas non plus et ça bloque juste a la ligne du Alt + F

Avec le message d'erreur cité au dessus.

[lowno]

Salut à vous !

Essai :

Code :

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

SendKeys "%f", 1

[zoumzoum59]

Bonjour lowno

je viens de tester, mais cela ne change rien j'ai toujours cette erreur de permission refusé.

le pire c'est que si je le fais manuellement au clavier cela fonctionne sans soucis mais par le code VBA ça bug.

Sous XP et window7 j'ai jamais eu ce soucis.


Avez vous déjà rencontré ce type d'erreur sous d'autre OS et Est ce que quelqu'un pourrait tester sous Windows 8 si il a le même message?

[parmi]

Une possibilité est d'utiliser les APIs pour "by-passer" Sendkeys.
Voir le lien ici

Une autre possibilité, plus simple, est de désactiver le UAC (user account control). Voir le lien ici pour Win 7. Je ne sais pas si cette possibilité existe sous Win 8, par contre (?)

Tu pourrais aussi essayer de rouler ton programme en mode Administrateur.

[lowno]

Re,

Cela viens aussi peut-être du fais qu'il faille "identifier" où doit allez le "sendkeys".

Voici un code avec des sendkeys que j'utilise et qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For n = 1 To nb
f = 1: ok = 1
 
fenetre = "Client - Windows Internet Explorer"
AppActivate fenetre
If ok = 1 Then Exit For
Next n
End If
 
trouvé:
 
If f = 1 Then fenetre = "Client - Windows Internet Explorer"
SendKeys "%fr", 1

J'active mon programme puis j'envoie le sendkeys.

Si cela peu t'aider....

[AlainTech]

Trouvé sur le forum Microsoft anglophone:

Code :

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

1
2
3
4
5
6
'You have to have ms scripting runtime referenced
Dim WshShell As Object
 
Set WshShell = CreateObject("WScript.Shell")
 
WshShell.SendKeys "{Tab}"

[zoumzoum59]

Merci a vous trois

Et en particulier a AlainTech qui a trouvé pour moi la solution la plus simple.

J'allais me pencher sur les API comme conseillé par Parmi, car ce qui était gestion utilisateur et administrateur j'avais déjà fait les test non concluant, mais je n'étais pas sur d'y arriver vu mon niveau qui reste modeste.

J'ai donc refait mon code et la ça passe nickel, par contre l'astuce est donc de passer par un objet "Wscript" qui est mieux reconnu par Windows que le "Sendkeys" en VBA.

C'est bien cela ou je me trompe?

En tout cas encore un grand merci.

Je reviendrai certainement avec d'autre post, car j'ai encore d'autre bug dû au changement de version de Windows.

[Invité]

j'ai crue comprendre que tu utilisais IE; pourquoi ne pas le piloté?

Code :

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

1
2
3
4
Const OLECMDID_SELECTALL = 17
Const OLECMDEXECOPT_DODEFAULT = 0
Const OLECMDID_COPY = 12
IE.ExecWB TouchClavier, OLECMDEXECOPT_DODEFAULT

il faut juste connaitre les codes des touche sur ce forum tu devrais trouvé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const Flags = SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
 
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
keybd_event(&H2C, 1, 0, 0) 'imprime écran

[lowno]

Je profite du post :

AlainTech, l'utilisation de wscript est elle mieux adapté ??

Notamment pour mon poste qui concerne des sendkeys et où je rencontre des problèmes de lenteur et de gestion des envoies parfois un peu trop "aléatoire" des sendkeys :

http://www.developpez.net/forums/d14...ction-cellule/

Parmi, ton lien n'est valable que pour vista ? Désolé, j'ai cherché mais je ne trouve pas : qu'entend tu par by-passer les sendkeys ?


Merci à vous !

[parmi]

Si j'ai bien compris dans les recherches que j'ai faites, SendKeys bogue si on utilise des versions plus anciennes d'Excel (2003 et avant) avec Windows Vista, 7 et 8

Un des liens parle justement d'outrepasser le SendKeys fautif par les API. Par contre, je ne connaissais pas la méthode avec WScript. Si ça fonctionne vraiment, ce sera peut-être plus simple (?)

[zoumzoum59]

Non rdurupt, je n'utilise pas IE.

C'est un logiciel de métier industriel que j'utilise, mais je ne connaissais pas la possibilité de piloté IE comme cela

Ca peut fonctionner pour d'autre logiciel que IE?

Par contre Parmi oui je suis persuadé que c'est plus simple que les API surtout pour moi qui suis relativement novice et pas de soucis ça fonctionne.

Sinon lowno la méthode avec Wscript fonctionne au niveau vitesse exactement comme avec les Sendkeys, car mon pc étant plus rapide que le précèdent j'ai été obligé de modifier mes pauses pour que tous ce coordonne correctement, donc ça reste un peu aléatoire.