PARTICIPATION À L'APPRENTISSAGE DES ENTIERS DE 70 À 99 (DERNIÈRE PÉRIODE CP/DÉBU
NISANDSYSTEMS
Messages postés
146
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
13 décembre 2014
-
24 nov. 2010 à 12:16
NISANDSYSTEMS Messages postés 146 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 13 décembre 2014 - 24 nov. 2010 à 12:16
NISANDSYSTEMS Messages postés 146 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 13 décembre 2014 - 24 nov. 2010 à 12:16
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/52508-participation-a-l-apprentissage-des-entiers-de-70-a-99-derniere-periode-cp-debut-ce1-soutien
https://codes-sources.commentcamarche.net/source/52508-participation-a-l-apprentissage-des-entiers-de-70-a-99-derniere-periode-cp-debut-ce1-soutien
24 nov. 2010 à 12:16
L'idée en règle générale est bonne.
Là ou ça coince pas mal c'est le fouillis dans le code.
Aucune indentation au niveau du code.
1ere erreur au lancement du prog =>dans Form_Load= fic = Left(CurDir, 1) + ":\vbtxt\math\num70-99"
C'est pas à nous de placer le fichier à la racine ( mauvais choix)
C'est à toi de créer le placement de ce fichier:
Solution
'//dans un module======================================
Public Function FileExist(sFileN As String) As Boolean
Dim tmpRv As Long
On Error Resume Next
tmpRv = GetAttr(sFileN)
If Err Then
FileExist = False
Else
FileExist = True
End If
End Function
'//dans la feuille principale======================================
Private Sub Form_Load()
On Error Resume Next '//traitement d'erreur sans arret du prog
Dim mvSourceFile$ '//l'origine du fichier
Dim mvDestFile$ '//destination du fichier donc le chemin que tu souhaites dans un nouveau dossier
mvSourceFile = App.Path & "\lficlaslecnb.txt"
mvDestFile = App.Path & "\Datas" & "lficlaslecnb.txt"
If FileExist(mvDestFile) = False Then '//test l'existence du fichier, si existe pas alors on le créé:
'//creation d'un nouveau dossier nommé Datas dans le app.path
MkDir App.Path & "\Datas"
'//copie le chemin d'origine vers le nouveau dossier Datas.
FileCopy mvSourceFile, mvDestFile
End If
fic = mvDestFile
...
...
...
Open fic For Input As #1
Input #1, nser
Do Until n = nser
Input #1, chxs(n), seri(n)
n = n + 1
Loop
Close #1
n = 0
fait = ""
end sub
après verifie les fic dans le prog pour leur reinfecter le bon chemin.