Une boucle dir qui renvoi toujours la même valeur

Résolu

pierrot69 -
borntobealive Messages postés 138 Date d'inscription Statut Membre Dernière intervention - 17 juil. 2014 à 15:43

Salut,

Voici mon problème je veux renommer des fichiers et les envoyer dans un autre dossier.
Jusque là facile je comptais utiliser la fonction Dir mais quand j'ecris mon code et que je vais dans l'outils de debug il ne change jamais la valeur de dec.fichier alors qu'il y a 8076 autres fichiers .csv qui n'attendent que ça ....

merci d'avance pour votre aide

Dec.fichier = Dir(Dec.DOS_SOURCE & "/" & "*csv")            'definition des fichiers csv
If Dec.fichier <> "" Then
    Do
        Application.ScreenUpdating = False
        Application.DisplayStatusBar = False
        Set Dec.wk = Workbooks.Open(Filename:=Dec.DOS_SOURCE & "/" & fichier, local:=True)
        Set Dec.wks = Dec.wk.Worksheets(1)
        Dec.sauver = Left(Dec.fichier, 5) & Left(Right(Dec.fichier, 13), 4) & "-" & Left(Right(Dec.fichier, 18), 2) & "-" & Left(Right(Dec.fichier, 21), 2) & Right(Dec.fichier, 12)
        Dec.wks.SaveAs Filename:=NOUV_DOS & sauver, CreateBackup:=False, local:=True
        Dec.wk.Close
        Application.ScreenUpdating = True
        Application.DisplayStatusBar = True
        Call evolution_fichier
        Dec.fichier = Dir
    Loop While Dec.fichier <> Dec.der_fichier
End If

A voir également:

Une boucle dir qui renvoi toujours la même valeur
Win dir stat - Télécharger - Gestion de fichiers
Renvoi d'appel ooredoo - Forum Mobile
Code Pour Renvoi D'appel Et Mesage - Forum telephonie fixe
Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
Désactiver transfert d appels sur Galaxy s5 new ✓ - Forum Free mobile

11 réponses

Réponse 1 / 11

Utilisateur anonyme

Attention, si tu cherches les dossiers, il faut écrire dir (NOUV_DOS,vbDirectory) ou dir (S,vbDirectory), sinon Dir ne rend que les fichiers "simples" (sans attributs).
Tu as lu l'aide sur la fonction Dir ?

Réponse 2 / 11

Utilisateur anonyme

Bonjour

Pas de Dir dans ta fonction Call evolution_fichier ?

Réponse 3 / 11

pierrot69

merci pour ta réactivité,

non justement j'y avais pensé, parce que dir sans argument prend normalement le dir suivant de la dernière instruction et là bah ... non

Réponse 4 / 11

Utilisateur anonyme

Tu as essayé de supprimer des morceaux de ton code pour voir si ton problème était lié à une action particulière (appel à evolution_fichier, open, SaveAs ...) ?

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 11