Discussion :

[casual92]

Bonjour a toutes et a tous!

Voila ma question est simple:

Ci dessous une partie du code...

Code :

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

1
2
If t.FileExists("Z:\*.csv") Then t.CopyFile "Z:\*.csv", "S:\"
End If

Comment faire en sorte que la condition fonctionne, de fait il ne comprend pas la commande...


A vos avis messieurs dames

[EvaristeGaloisBis]

Redire le End If. En effet soit tu fais
If condtion then action
soit(xor) tu fais
if condition then
action
End If

Mais pas un melange des deux.

[casual92]

Dans la structure je suis d accord mais le probleme se site lputot dans le code :

Code :

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

If t.FileExists("Z:\*.csv")

... il ne la comprends pas

[EvaristeGaloisBis]

Euuhh je ne suis pas trop a l'aise dans la gestion de fichier avec l'objet microsoft scripting runtime...
Personnellement j'aurai fait un test de présence avec dir(), et sans faire de test.
En plus casse ton if sur plusieurs lignes qu'on puisse voir l'instruction précise qu'il n'aime pas !

[mayekeul]

bonjour,

la fonction teste si "z:\*.csv" existe et non pas si un fichier avec l'extention csv est présent.
c'est différent.

tu doit plutot itérer ton dossier et copier chaque fichier avec extension csv

[casual92]

Euuhh je ne suis pas trop a l'aise dans la gestion de fichier avec l'objet microsoft scripting runtime...
Personnellement j'aurai fait un test de présence avec dir(), et sans faire de test.
En plus casse ton if sur plusieurs lignes qu'on puisse voir l'instruction précise qu'il n'aime pas !

Le dir() marche plutot bien merci!