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

[ralph45]

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

 

[vgendron]

Bonjour


une petite recherche google me donne ca

Procédure : déplacer un fichier - Visual Basic

En savoir plus sur : Guide pratique pour déplacer un fichier en Visual Basic

learn.microsoft.com

 

[vgendron]

ou encore ca

Redirecting

 

[Sequoyah]

Bonjour Ralph et le Forum,
voici un exemple de code, à adapter éventuellement le chemin et le nom de la feuille

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

 

[ralph45]

Merci @Sequoyah de ta réponse... C'est la boucle qui me manquait.
👍

R@lph45