j'en ai marre!!!! je comprend rien a ce qui se passe !!!!!Résolu

Question

Il se passe un truc de dingue!
enfin du moins que franchement j'arrive pas a comprendre et du coup pas a resoudre!
en fait quand j'execute ca (j'ai vir&#233; unbout du code ou il n'y a pas de pb), il n'arrive pas a passer d'un fichier a l'autre dans la boucle do ....loop
si j'enleve la ligne ou je lance la fonction traitement_import, tout se passe bien.
hors cette fonction ne change rien et le pire c'est que dans mes message box : elle n'a effectivement rien chang&#233;!!!!
avant ou apres la fonction : il a toujours les bonnes valeurs pour File_Is et Fichier_Juste!!!
je comprend pas ce qu'il se passe...
mais alors pas du tout!

Sub Bt_parcourir_QuandClic()
   
    Dim CHEMIN As String
    Dim File_Is As String
    Dim Fichier_a_Ouvrir As String
    Dim Fichier_juste As String
    Dim Type_OK As Boolean
    Dim x As New clsDIR
    Dim sPath As String


    
    Init_Var_TDB
    Type_OK = False
    Fichier_a_Ouvrir = ""
    sPath = ""
    ActiveSheet.Range("A1").Select
    'D&#233;sactive le rafraichissement de l'&#233;cran
    Application.ScreenUpdating = False
    TDB.Sheets(Feuille_Balance).Activate
    
    'appel de la fonction du choix du chemin
    GetDirectory
    CHEMIN = Dossier
    
    'Cherche les fichiers TXT
    File_Is = Dir(CHEMIN & "*.TXT")
    Do Until File_Is = ""
            Fichier_juste = CHEMIN & File_Is
        If VarType(File_Is) = vbBoolean Then
        Else
             'traitement li&#233; au fichier de correspondance
            Type_OK = Traitement_Import(CasBalance, Fichier_juste)
             MsgBox "le fichier temporaire est " & Fichier_juste
            MsgBox "le fichier est " & File_Is
        End If
        MsgBox "le fichier temporaire est " & Fichier_juste
        MsgBox "le fichier est " & File_Is
        File_Is = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

crenaud76 · Accepted Answer

Voici une option :
Faire une 1ere boucle avec ton Dir, pour stocker le nom de tous les fichiers &#224; traiter dasn un tableau.
Refaire ensuite une boucle sur les &#233;l&#233;ments de ce tableaudans le corps de laquelle tu appeleras Traitement_import(). bien sur Traitement_Import ne doit ni supprimer ni ajouter de fichier potentiellement traitable : Ce serait de toute fa&#231;on totalement incoh&#233;rent !!
Christophe R

cs_Jack · Answer

Salut
-1- Ton test   If VarType(File_Is) = vbBoolean   ne sert &#224; rien puisque File_Is est une String, c'est toi m&#234;me qui la dimensionne !
-2- Qu'y a t-il dans ta fonction/sub Traitement_Import ?
Comment tes param&#232;tres sont d&#233;finis ? ByVal ByRef ?
Si dedans tu refais un DIR, cela r&#233;initialise la s&#233;quence et le Do-Loop ne veut plus rien dire

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

1gazelle · Answer

ok pour le premier point : tu as tout a fait raison.
(en fait je recupere le code d'une autre personne donc bon...j'ai pas fais gaffe a l'utilite de ce point...
pour le second point, la fonction traitement_import fait appel a tout un tas de fonction reparti sur 11 modules... donc sans doute que il y a un dir dans tout ca!(mais je vais regarder meme si ca risque de prendre du temps lol) 
mais si je ne peux pas enlever les dir qu'il ya dans la fonction traitemant_import, comment faire pour parcourir les fichiers contenu dans mon dossier sans utiliser un dir? ou en l'utilisant en local...? est ce possible...?
en tout cas, merci pour tout : j'ai une bonne piste l&#224;!

J'en ai marre!!!! je comprend rien a ce qui se passe !!!!!

3 réponses

Discussions similaires