Discussion :

[Paloma]

Pour ceux qui me connaissent, j'ai un fichier .csv qui contient maintenant le nom complet de mes fichiers.

j'utilise deux tableaux qui contiennent respectivement les noms de fichiers de travail IN et OUT.

comment utiliser File copy dans ma boucle .... je n'y arrive pas.

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
 
 
'===========================================================================
    ' lecture du fichier
    Dim L As String
    Dim i As Long
    Dim Datas() As String
    'anciens nom de fichiers
    Dim tableauNEW() As String
    'nouveaux nom de fichiers
    Dim tableauOLD() As String
    i = 0
 
    Open txtPathExcelFile.text For Input As #1
 
    While Not EOF(1)
    Line Input #1, L
    Datas = Split(L, ";")
    'tableauOLD(i) = Datas(0)
    MsgBox Datas(0)
    'tableauNEW(i) = Datas(1)
    MsgBox Datas(1)
    i = i + 1
    ' copie les fichiers sur le disque local
    For i = 0 To Datas(0)
    FileCopy strPathJobIN & i, strPathTempIN
    Next i
    Wend
    Close #1
 
    Exit Sub
 
ErrorFile:

Merci pour votre aide.
Paloma

Pour rappel
http://www.developpez.net/forums/sho...d.php?t=230327

Pour info voici comment je traite les noms de fichier en "pre-traitement" :
Merci à developpez.com et ces adhérants et administrateurs
voir fichier excel zippé ci-joint.

[Delbeke]

D'après ce que j'ai compris, j'aurais bien vu quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Open txtPathExcelFile.text For Input As #1
 
      While Not EOF(1)
        Line Input #1, L
        Datas = Split(L, ";")
        FileCopy strPathJobIN & Datas(0), strPathTempIN & Datas(1)
      Wend
    Close #1

Pourquoi faire simple , si on peut faire compliqué

[Paloma]

Merci Delbeke

c'est vraiement trop chouette

@ bientôt
Paloma