Erreur d'éxécution avec instruction Shellexecute

Bonjour,

J'ai un Projet "A" qui ne contient que les instructions suivantes:



J'ai un projet B qui affiche une carte de l'Asie et qui permet à l'utilisateur lorsqu'il clique sur un pays d'afficher la carte des villes de ce pays.
Lorsque j'exécute directement, ce projet fonctionne correctement

------------------------------------------------------------------------------------------

Lorsque le projet A lance l'exécution du projet B, la carte de l'Asie s'affiche correctement. Lorsque l'utilisateur clique sur un pays, le programme tombe en erreur:
Erreur exécution 340
L'élément du groupe de contrôles '23' n'existe pas.


Si je place une instruction MSGBOX "***1***" dans la procédure Load d'une Form, cette form s'affiche alors correctement (Toutes les autres tombent en erreur)


Si je place cette instruction MSGBOX dans la procédure principale comme présenté ci-dessous, le programme fonctionne parfaitement.



Impossible de trouver l'erreur. Comment remplacer ce MSGBOX par une autre instruction ????

Par avance Merci

Salut

Puisque tu lances un EXE, ShellExecute ne se justifie pas.
Essaye d'utiliser Shell.


Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Il est fortement déconseillé de mettre un End dans un Form_Load :
Déjà parce que End n'est pas correct (mieux vaut un Unload Me), trop violent.
Ensuite parce que lors du Form_Load, l'affichage de tous les éléments graphiques de ton appli A ne sont pas encore complètement terminé.
Alors oui, ça ne semble pas avoir beaucoup d'importance dans ton cas, mais mieux vaudrait faire comme ceci :
# Tu places un Timer sur ta forme (Timer1)
# En config de ce Timer1, tu mets le Enabled à False et Interval à 200 (mSec)
# Dans le Form_Load, tu démarres le Timer :
Timer1.Enabled = True
# Dans la procédure du Timer (Timer1_Timer()), tu y mets :
- Timer1.Enabled = False, pour que le Timer ne s'exécute qu'une fois
- ta commande Shell
- un DoEvents, histoire que tout ait le temps d'être exécuté avant de sortir
- le Unload Me pour terminer le programme

"Erreur exécution 340
L'élément du groupe de contrôles '23' n'existe pas."
Est-ce que le groupe 23 te dit quelque chose dans ton programme ?
(parce que vu d'ici ...)

Éventuellement, remplace ta MsgBox par un DoEvents.
Est-ce que l'affichage graphique de ton le projet B est terminé au moment où tu cliques sur le pays ?

J'utilisais call Shell.
Pour trouver l'erreur j'ai réduit le projet "A" à sa plus simple expression et j'ai fais un essais avec shellexecute.


J'ai refais un nouvel essais en emplaçant le Msgbox par une similation d'entrée clavier
(Enter) ---> Keybd 13, 0, 0, 0 --> ça marche

C'est mieux que le Msgbox mais j'aimerais bien trouver l'erreur.

Éventuellement, remplace ta MsgBox par un DoEvents.
J'avais essayé ---> ça ne marche pas !

J'ai refais un nouvel essais en remplaçant le Msgbox par une simulation d'entrée clavier
(Enter) ---> Keybd 13, 0, 0, 0 --> ça marche
Je me suis trompé, ça ne marche pas

-----------------------------------------------------------------------------------------

J'ai refais un autre essais qui semble marcher

Keybd 13, 0, 0, 0 ' Pour neutraliser l'affichage du Msgbox
MsgBox " "