Problème shellexecute

Salut,

J'ai le code suivant et je voudrai savoir pourquoi quand je fais en mode pas a pas avec F8 tout se passe bien et pourquoi il saute les shellexecute quand je fais en mode normale F5???

Merci


Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Sub CATMain()
    Dim partie1_gdao as string
    Dim partie2_gdao as string
    If Right(CurDir, 1) <> "\" Then
        partie1_gdao = CurDir & "\gdao.catscript"
    Else
        partie1_gdao = CurDir & "gdao.catscript"
    End If
    ShellExecute vbNull, "open", partie1_gdao, vbNull, vbNull, SW_SHOWNORMAL
    Call attente(3)
    While Dir$("c:\t.txt") = vbNullString
    DoEvents
    Wend
    eol = Chr(10)
    Set doc = CATIA.ActiveDocument
    Set aFileSyst = CATIA.FileSystem
    call fiche_text
    call creation_des_photos_pour_le_montage
    confirmation = MsgBox("Voulez-vous éditer les commentaires?", vbYesNo)
    Call commentaire
    If Right(CurDir, 1) <> "\" Then
        partie2_gdao = CurDir & "\page_montage.catscript"
    Else
        partie2_gdao = CurDir & "page_montage.catscript"
    End If
    ShellExecute vbNull, "open", partie2_gdao, vbNull, vbNull, SW_SHOWNORMAL
    Call aptsource
end sub

Salut
Ne confonds pas vbNull et vbNullString : Vérifie ta commande par rapport avec la déclaration de l'API.
Normalement, le 1er paramètre est le Handle de l'application appelante : je ne sais pas si on peut lui donner "0", au pire, j'aurai mis le handle du DeskTop
Je ne pense pas que cela vienne de là, mais fait quand même les corrections, on ne sait jamais

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)

salut,
pas de problème pour 0&, c'est bien uniquement vbnull qui ne correspond pas
http://www.codyx.org/snippet_ouvrir-document-lancer-executable_25.aspx#1548