Discussion :

[trentks95]

Bonjour à tous,

J'ai vu une discutions similaire que je n'ai pas trop compris car je pense que mon souci est différent, quand je veux exécuter mon programme "calincred" dispo sur developpez, il me dit erreur il manque ce DLL : MSSTDFMT.DLL, je l'ai donc téléchargé et mis dans system 32 mais rien n'y fait il faut savoir que ça le fait que sur certains ordi.

voici mon code complet

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
Private Sub Text1_Change()
 
End Sub
 
Private Sub Calucler_Click()
 
 
 
Dim m As Single
Dim z As Single
Dim t As Single
Dim a As Single
Dim b As Single
Dim v As Single
Dim H As Single
Dim E As Single
Dim F As Single
Dim L As Single
Dim D As Single
Dim K As Single
Dim Q As Single
Dim C As Single
 
If montantprêt.Text = "" Then
                        montantprêt.Text = 0
                  End If
     m = montantprêt
If nbmensualité.Text = "" Then
                        nbmensualité.Text = 0
                  End If
     z = nbmensualité
   If Val(taux.Text) <> 0 Then
   taux.Text = Replace(taux.Text, ".", ",")
     t = (taux / 100)
     a = m * t / 12
     b = 1 - (1 + t / 12) ^ (-z)
     v = Round(a / b, 2)
   If Val(assu1.Text) <> 0 Then
   assu1.Text = Replace(assu1.Text, ".", ",")
     H = (assu1 / 100)
     E = (m * H) / 12
     F = (E * z)
 
 
End If
 
     L = assuf
 
     D = fraisdossier
 mensualité2 = v
 
     K = Round((v) + (L) + (E), 2)
     Q = Round(((K * (z)) + (D) + (F)) - (m), 2)
     C = Round((m) + (Q), 2)
 
mensualitéassu = K
 
couttotal = FormatNumber(Q, 2, True)
 
total = FormatNumber(C, 2, True)
 
 
End If
 
 
End Sub
 
Private Sub effacer_Click()
 
montantprêt = ""
taux = ""
nbmensualité = ""
assu1 = ""
assuf = ""
fraisdossier = ""
mensualité2 = ""
mensualitéassu = ""
couttotal = ""
total = ""
 
End Sub
 
Private Sub montantprêt_Change()
 
Static Nouveau%
If Nouveau% > 0 Then Exit Sub
    Nouveau% = Nouveau% + 1
    I% = montantprêt.SelStart
    Longueur% = Len(montantprêt.Text)
    S$ = Trim$(montantprêt.Text)
 
    S$ = Replace(S$, " ", "")
    If Len(S$) > 3 Then
            montantprêt.Text = Trim$(Format(Val(S$), "### ### ### ###"))
            If Longueur% < Len(montantprêt.Text) Then
                montantprêt.SelStart = I% + 1
            Else
                montantprêt.SelStart = I%
            End If
        Else
            montantprêt.Text = Trim$(S$)
            montantprêt.SelStart = I%
    End If
Nouveau% = 0
End Sub
 
 
Private Sub Quitter_Click()
End
End Sub

Merci
Seb

[DarkVader]

Bonjour,
Bouton Recherche =>
http://www.developpez.net/forums/d29...mt-dll-resolu/

[trentks95]

oui je l'ai vu, mais moi je n'ai pas de "ligne DLL" ?

[Aniki]

Salut trentks95

oui je l'ai vu, mais moi je n'ai pas de "ligne DLL" ?

La référence à "ligne DLL" n'est valable que pour le script d'installation InnoSetup.
Étant donné que tu n'utilises pas d'installeur InnoSetup, ce point précis ne te regarde pas.
Par contre, dans la même discussion, dans le premier post il est dit :

Par la suite je lance mon programme , il me dit que cette DLL est manquante.
j'ai trouve une astuce pour cela marche regsvr32 c:\windows\system32\MSSTDFMT.DLL

En gros, tu dois enregistrer cette DLL dans la base de registre en utilisant la commande regsvr32 c:\windows\system32\MSSTDFMT.DLL.

[trentks95]

Ok, il faut que j'utilise la commande shell ?

[ProgElecT]

Salut trentks95

...........
En gros, tu dois enregistrer cette DLL dans la base de registre en utilisant la commande regsvr32 c:\windows\system32\MSSTDFMT.DLL.

Non, par exemple sous Windows 7, menu Windows ---> Exécuter... ---> quand tu es dans la fenêtre Dos tu écris, regsvr32 c:\windows\system32\MSSTDFMT.DLL
Par contre il serait peut être utile de regarder le chapitre 7 de Problème de compatibilité VB6 (merci DarkVader)

[trentks95]

Ok, je testerais sur les PC concerné.

Est-il possible de l'automatisé avec un script lié à mon programme ?