Microsoft 365 [RESOLU] Gestion en masse de fichiers JPG selon sélection sur un tableur

ralph45

XLDnaute Impliqué
Bonjour ami.e.s XLdien.ne.s !

Sur mon PC, j'ai un dossier contenant "n" fichiers au format JPG (par défaut, mais cela pourrait être une autre extension) :

C:\Users\...\Documents\_Photos_Spectacles_2024\2024-11-16

> À partir du fichier exemple joint en copie, je désirerai :

a) Basculer les fichiers topés à "Non" de la colonne E dans un dossier "_Poubelle".

C:\Users\...\Documents\_Photos_Spectacles_2024\_Poubelle
b) Laisser dans le dossier originel les fichiers "topés" à "Oui" de la colonne E.

Attention, le nombre de lignes référencées est purement "minimalisé" : dans le réel fichier, il comporte plus de 8.000 lignes...
Merci de votre attention et de vos retours ! 👍


R@lph45
 

Pièces jointes

  • 2024-11-16_2.xlsx
    16.4 KB · Affichages: 4

Sequoyah

XLDnaute Nouveau
Bonjour Ralph et le Forum,
voici un exemple de code, à adapter éventuellement le chemin et le nom de la feuille
VB:
Sub PhotosRalph()
'https://excel-downloads.com/threads/vba-gestion-en-masse-de-fichiers-jpg-selon-selection-sur-un-tableur.20085349/

    Dim ws As Worksheet
    Dim i As Long
    Dim MonFichier As String, MonChemin As String, DossierCible As String
   
    Set ws = ThisWorkbook.Sheets("SELECTION") '  <<<==== A' adapter
   
    DossierCible = "C:\Users\...\Documents\_Photos_Spectacles_2024\_Poubelle\" ' <<<==== A' adapter
   
    For i = 2 To ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
       
        If ws.Cells(i, 5).Value = "Non" Then
           
            MonFichier = ws.Cells(i, 1).Value
            MonChemin = ws.Cells(i, 3).Value & "\" & MonFichier
           
            If Dir(MonChemin) <> "" Then ' Si le fichier existe
                Name MonChemin As DossierCible & MonFichier
            End If
        End If
    Next i
End Sub
Cordialement
 
Dernière édition:

Membres actuellement en ligne

Statistiques des forums

Discussions
314 863
Messages
2 113 658
Membres
111 932
dernier inscrit
remixxx