Probleme en compilant le code avec C2.EXE ?!?!?

Version imprimable

Bonjour.

J,aimerais savoir a quoi sert le fichier executable C2.exe dans VB ? Car a chaque fois que j'essaie de compiler du code C2.exe plante et le % du CPU pour cette commande monte a 99 %....

Quelqu'un aurait une idée du probleme ?

Voici du code que j'ai fait....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub Form_Load()
    Dim info1, info2, info3, info4 As String
    params = Split(Command, " ")
 
    If (UBound(params) = -1) Then
 
        MsgBox "Aucun paramètre pour l'impression des PDF.", vbCritical, "Erreur de parametres dans ImpressPDF.EXE"
 
    Else
        j = 1
        For i = 0 To UBound(params)
            If i = 0 Then
                info1 = params(i)
            ElseIf i = 1 Then
                info2 = params(i)
            ElseIf i = 2 Then
                info3 = params(i)
            ElseIf i = 3 Then
                info4 = params(i)
            End If
        Next
 
    End If
 
    If info4 = "Choix1" Then
        Call mdlImpression.creerPDF_Choix1(info1, info2, info3)
    ElseIf info4 = "Choix2" Then
        Call mdlImpression.creerPDF(info1, info2, info3)
    End If
End Sub

Voici la definition de la fonction creerPDF_Choix1 en VB...

Code:

1
2
3
4
5
6
 
Public Sub creerPDF_Choix1(ByVal noProposition As String, ByVal formulaireID, ByVal marchand As String)
.....
.....
.....
.....

J'essaie de voir ce qui se passe, ou serait le probleme, mais je ne vois pas....

Merci de m'eclairer :)

AngelEvil!

17/11/2005, 10h56
AlainTech

Tu peux essayer en supprimant certaines lignes de ton code.

Essaye d'abord avec un code simple, genre:

Code:

MsgBox "hello"

Si tu as encore le problème, c'est ton installation qui est en cause (hard ou soft).
Si non, l'erreur est dans ton code.

Bonne chance.
17/11/2005, 10h57
AlainTech

Je n'ai pas fait l'essai de compiler ton code car je n'ai pas tous les éléments.

Une petite remarque. Dans tes lignes si i = 0, = 1 et = 2 sont faux, ton programme aura malgré tout vérifié toutes ces valeurs

Si tu fais

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        For i = 0 To UBound(params) 
            select case i
                 Case 0
                      info1 = params(i) 
                 Case 1
                      info2 = params(i) 
                 Case 2
                      info3 = params(i) 
                  Case 3
                      info4 = params(i) 
                  Case else
                       msgbox "y'a un problème pas prévu"
            end select
        Next

tu n'auras qu'un test et en outre, tu peux tester un valeur inattendue :wink:

Juste en passant

A+

17/11/2005, 16h13
angelevil

Merci pour l'idée du code FOR ca simplifie pas mal :)

De plus j'ai ecrit le code MSGBOX "HELLO!" et enlever les modules dans le projet et ca créée le .EXE.

Donc le probleme semble venir des modules.... bizarres car ces memes modules sont utilisés dans d'autres programmes et fonctionnent tres bien lors de la creation du .EXE.

Je vais regarder ca de plus pret.

Merci a tous :)

AngelEvil!