Problème tri fichiers

Le
Daniel
La procédure ci-dessous me permet de rechercher des fichiers images (situés
dans le dossier C:GuyaImages inutiles) et dont le nom se trouve dans la
colonne F et de les séparer des images dont le nom ne se trouve pas dans la
colonne F.

Sub Tri_images()
For nom = 2 To Range("F1").End(xlDown).Row
FileCopy "C:GuyaImages inutiles" & Range("F" & nom),
"C:GuyaImages Utilisées" & Range("F" & nom)
Kill "C:GuyaImages inutiles" & Range("F" & nom)
Next
End Sub

Ca fonctionne, mais ça plante lorsqu'un nom de fichier se trouvant dans la
colonne F d'Excel n'est pas présent dans le dossier C:Images inutiles.

J'aimerais que la procédure ignore simplement ce nom de fichier-là et
continue à traiter les autres fichiers.

Qqu'un peut-il m'aider ?
Merci d'avance
Daniel.
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
verificator
Le #1935210
bonjour Daniel,

tu peux ajouter "on error resume next" au début de ta
macro

amicalement

-----Original Message-----
La procédure ci-dessous me permet de rechercher des
fichiers images (situés

dans le dossier C:GuyaImages inutiles) et dont le nom
se trouve dans la

colonne F et de les séparer des images dont le nom ne
se trouve pas dans la

colonne F.

Sub Tri_images()
For nom = 2 To Range("F1").End(xlDown).Row
FileCopy "C:GuyaImages inutiles" & Range("F"
& nom),

"C:GuyaImages Utilisées" & Range("F" & nom)
Kill "C:GuyaImages inutiles" & Range("F" &
nom)

Next
End Sub

Ca fonctionne, mais ça plante lorsqu'un nom de fichier
se trouvant dans la

colonne F d'Excel n'est pas présent dans le dossier
C:Images inutiles.


J'aimerais que la procédure ignore simplement ce nom de
fichier-là et

continue à traiter les autres fichiers.

Qqu'un peut-il m'aider ?
Merci d'avance
Daniel.

.



Daniel
Le #1935209
Salut,

Ca a l'air de passer, mais je suis étonné du résultat. Je n'ai que 430
fichiers dans le dossier de destination, alors que je devrais en avoir plus
de 1000.

Comment puis-je faire pour compter le nombre de noms de fichiers différents
se trouvant dans la colonne F ? Ce nombre-là devrait correspondre au nombre
de fichiers se trouvant dans le dossier de destination.

Daniel

"verificator" wrote:

bonjour Daniel,

tu peux ajouter "on error resume next" au début de ta
macro

amicalement

-----Original Message-----
La procédure ci-dessous me permet de rechercher des
fichiers images (situés

dans le dossier C:GuyaImages inutiles) et dont le nom
se trouve dans la

colonne F et de les séparer des images dont le nom ne
se trouve pas dans la

colonne F.

Sub Tri_images()
For nom = 2 To Range("F1").End(xlDown).Row
FileCopy "C:GuyaImages inutiles" & Range("F"
& nom),

"C:GuyaImages Utilisées" & Range("F" & nom)
Kill "C:GuyaImages inutiles" & Range("F" &
nom)

Next
End Sub

Ca fonctionne, mais ça plante lorsqu'un nom de fichier
se trouvant dans la

colonne F d'Excel n'est pas présent dans le dossier
C:Images inutiles.


J'aimerais que la procédure ignore simplement ce nom de
fichier-là et

continue à traiter les autres fichiers.

Qqu'un peut-il m'aider ?
Merci d'avance
Daniel.

.






Michel Pierron
Le #1935207
Bonjour Daniel;
Sub Tri_images()
Const Rep1 As String = "C:GuyaImages inutiles"
Const Rep2 As String = "C:GuyaImages Utilisées"
For nom = 2 To Range("F1").End(xlDown).Row
If Len(Dir(Rep1 & Range("F" & nom))) Then
FileCopy Rep1 & Range("F" & nom), Rep2 & Range("F" & nom)
Kill Rep1 & Range("F" & nom)
End If
Next
End Sub

MP

"Daniel" news:
La procédure ci-dessous me permet de rechercher des fichiers images
(situés

dans le dossier C:GuyaImages inutiles) et dont le nom se trouve dans la
colonne F et de les séparer des images dont le nom ne se trouve pas dans
la

colonne F.

Sub Tri_images()
For nom = 2 To Range("F1").End(xlDown).Row
FileCopy "C:GuyaImages inutiles" & Range("F" & nom),
"C:GuyaImages Utilisées" & Range("F" & nom)
Kill "C:GuyaImages inutiles" & Range("F" & nom)
Next
End Sub

Ca fonctionne, mais ça plante lorsqu'un nom de fichier se trouvant dans la
colonne F d'Excel n'est pas présent dans le dossier C:Images inutiles.

J'aimerais que la procédure ignore simplement ce nom de fichier-là et
continue à traiter les autres fichiers.

Qqu'un peut-il m'aider ?
Merci d'avance
Daniel.



verificator
Le #1935204
Daniel,

soit plg le nom de la plage de tes noms, prends cette
formule matricielle :

=SOMME(1/NB.SI(plg;plg))

amicalement

-----Original Message-----
Salut,

Ca a l'air de passer, mais je suis étonné du
résultat. Je n'ai que 430

fichiers dans le dossier de destination, alors que je
devrais en avoir plus

de 1000.

Comment puis-je faire pour compter le nombre de noms de
fichiers différents

se trouvant dans la colonne F ? Ce nombre-là devrait
correspondre au nombre

de fichiers se trouvant dans le dossier de destination.

Daniel

"verificator" wrote:

bonjour Daniel,

tu peux ajouter "on error resume next" au début de ta
macro

amicalement

-----Original Message-----
La procÃf©dure ci-dessous me permet de rechercher
des



fichiers images (situÃf©s
dans le dossier C:GuyaImages inutiles) et dont le
nom



se trouve dans la
colonne F et de les sÃf©parer des images dont le nom
ne



se trouve pas dans la
colonne F.

Sub Tri_images()
For nom = 2 To Range("F1").End(xlDown).Row
FileCopy "C:GuyaImages inutiles" & Range
("F"



& nom),
"C:GuyaImages UtilisÃf©es" & Range("F" & nom)
Kill "C:GuyaImages inutiles" & Range("F" &
nom)

Next
End Sub

Ca fonctionne, mais Ãf§a plante lorsqu'un nom de
fichier



se trouvant dans la
colonne F d'Excel n'est pas prÃf©sent dans le
dossier



C:Images inutiles.

J'aimerais que la procÃf©dure ignore simplement ce
nom de



fichier-lÃf et
continue Ãf traiter les autres fichiers.

Qqu'un peut-il m'aider ?
Merci d'avance
Daniel.

.



.






verificator
Le #1935199
Daniel,

si tu as des cellules vides dans ta plage, modifie comme
suit
=SOMME(SI(NON(ESTVIDE(plg));1/NB.SI(plg;plg);""))

source (http://frederic.sigonneau.free.fr/)
-----Original Message-----
Daniel,

soit plg le nom de la plage de tes noms, prends cette
formule matricielle :

=SOMME(1/NB.SI(plg;plg))

amicalement

-----Original Message-----
Salut,

Ca a l'air de passer, mais je suis étonné du
résultat. Je n'ai que 430

fichiers dans le dossier de destination, alors que je
devrais en avoir plus

de 1000.

Comment puis-je faire pour compter le nombre de noms de
fichiers différents

se trouvant dans la colonne F ? Ce nombre-là devrait
correspondre au nombre

de fichiers se trouvant dans le dossier de destination.

Daniel

"verificator" wrote:

bonjour Daniel,

tu peux ajouter "on error resume next" au début de
ta



macro

amicalement

-----Original Message-----
La procÃf©dure ci-dessous me permet de rechercher
des



fichiers images (situÃf©s
dans le dossier C:GuyaImages inutiles) et dont le
nom



se trouve dans la
colonne F et de les sÃf©parer des images dont le
nom




ne
se trouve pas dans la
colonne F.

Sub Tri_images()
For nom = 2 To Range("F1").End(xlDown).Row
FileCopy "C:GuyaImages inutiles" & Range
("F"



& nom),
"C:GuyaImages UtilisÃf©es" & Range("F" & nom)
Kill "C:GuyaImages inutiles" & Range("F"
&




nom)
Next
End Sub

Ca fonctionne, mais Ãf§a plante lorsqu'un nom de
fichier



se trouvant dans la
colonne F d'Excel n'est pas prÃf©sent dans le
dossier



C:Images inutiles.

J'aimerais que la procÃf©dure ignore simplement ce
nom de



fichier-lÃf et
continue Ãf traiter les autres fichiers.

Qqu'un peut-il m'aider ?
Merci d'avance
Daniel.

.



.


.







Daniel
Le #1934919
Merci Michel. Ca a fonctionné parfaitement.
Je viens de gagner au moins trois jours de galère avec grâce à ces quelques.

Daniel

"Michel Pierron" wrote:

Bonjour Daniel;
Sub Tri_images()
Const Rep1 As String = "C:GuyaImages inutiles"
Const Rep2 As String = "C:GuyaImages Utilisées"
For nom = 2 To Range("F1").End(xlDown).Row
If Len(Dir(Rep1 & Range("F" & nom))) Then
FileCopy Rep1 & Range("F" & nom), Rep2 & Range("F" & nom)
Kill Rep1 & Range("F" & nom)
End If
Next
End Sub

MP

"Daniel" news:
La procédure ci-dessous me permet de rechercher des fichiers images
(situés

dans le dossier C:GuyaImages inutiles) et dont le nom se trouve dans la
colonne F et de les séparer des images dont le nom ne se trouve pas dans
la

colonne F.

Sub Tri_images()
For nom = 2 To Range("F1").End(xlDown).Row
FileCopy "C:GuyaImages inutiles" & Range("F" & nom),
"C:GuyaImages Utilisées" & Range("F" & nom)
Kill "C:GuyaImages inutiles" & Range("F" & nom)
Next
End Sub

Ca fonctionne, mais ça plante lorsqu'un nom de fichier se trouvant dans la
colonne F d'Excel n'est pas présent dans le dossier C:Images inutiles.

J'aimerais que la procédure ignore simplement ce nom de fichier-là et
continue à traiter les autres fichiers.

Qqu'un peut-il m'aider ?
Merci d'avance
Daniel.







Poster une réponse
Anonyme