Discussion :

[Sephy]

Bonjour,

Au sein de mon application j'utilise une fonction shell

Code :

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

1
2
3
4
5
on error goto erreur
Shell("Datafile.exe C:\Prograrm Files", vbNormalFocus)
exit sub
erreur:
blabla

La détéction d'une erreur ne marche pas, dans ce sas là.

Je passe volontairement un nom de dossier à mon executable. Lorsque le dossier n'existe pas cela plante (run time error 76) et l'erreur n'est pas interceptée.

Savez vous comment résoudre ce problème ?

Balises [Code] ajoutées par zazaraignée. Pensez-y! c'est le bouton #.

[zazaraignée]

Salut

Et si tu ne mets pas le nom de dossier, juste pour voir comment ça réagit...

[ProgElecT]

Bonjour

avec ce petit code pour essais

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
Option Explicit
Dim Progr
Dim Msg$
 
Private Sub Command1_Click()
On Error GoTo GestErr
Progr = Shell("C:\PersoFrancis\New Lecteur de fontes\LectFontes.exe", vbNormalFocus)
'Progr = Shell("C:\PersoFrancis\New Lecteur de fontes\ LectFontes.exe", vbNormalFocus)
'Progr = Shell("C:\PersoFrancis\New Lecteur de fontes LectFontes.exe", vbNormalFocus)
'Progr = Shell("LectFontes.exe C:\PersoFrancis\New Lecteur de fontes\", vbNormalFocus)
'Progr = Shell("LectFontes.exe C:\PersoFrancis\New Lecteur de fontes", vbNormalFocus)
Exit Sub
 
GestErr:
On Error GoTo 0
Msg$ = Err.Description
MsgBox "Le lancement du programme à échoué" & Msg$, , "Erreur lancement de programme"
 
End Sub

Seule la premiere ligne Shell ne provoque pas d'erreur, les autres étant fausses provoquent une erreur, elles sont gerables par On Error GoTo GestErr si dans OUTILS > OPTIONS > ONGLET GENERAL, Récupération des erreurs
Arrêt sur les erreurs non géreées et selectionné.

Sous VB6, dans OUTILS > OPTIONS > ONGLET GENERAL, Récupération des erreurs
selectionner : Arrêt sur les erreurs non géreées
Pour une gestion par le prog, selectionner : Arrêt sur les erreurs non géreées

Si la selection est : Arrêt sur toutes les erreurs, la routine de gestion d'erreur dans le prog n'est pas utilisé et la fenêtre
'Microsoft Visual Basic' apparait.

ProgElecT