Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problème tri fichiers

Problème tri fichiers

6 réponses
Avatar
Daniel
La procédure ci-dessous me permet de rechercher des fichiers images (situés
dans le dossier C:\Guya\Images 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:\Guya\Images inutiles\" & Range("F" & nom),
"C:\Guya\Images Utilisées\" & Range("F" & nom)
Kill "C:\Guya\Images 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.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
verificator
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.

.



Avatar
Daniel
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.

.






Avatar
Michel Pierron
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" a écrit dans le message de
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.



Avatar
verificator
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.

.



.






Avatar
verificator
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.

.



.


.







Avatar
Daniel
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" a écrit dans le message de
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.