Gestion fichiers et dossier depuis macro Excel (erratum) Résolu/Fermé

Question

Ce post annule et remplace mon précédent post (Gestion fichiers et dossier depuis macro Excel) car je me suis trompé dans ma demande.

Bonjour à tous,

Si j'expose mon problème ici c'est que j'ai pas mal cherché avant et que je suis dans une impasse.

Voici ma demande :

J'ai un premier dossier nommé "_Rip" qui contient des fichiers musicaux au format FLAC.
Les fichiers musicaux tous stockés à la racine du dossier "_Rip" sont nommé de la sorte :

artiste - titre.flac 
exemple : Yael Naїm - New Soul.flac

J'ai un second dossier nommé "_Collection" qui contient des dossiers avec les noms d'artistes, exemple :

Radiohead
The Black Eyed Peas
U2
etc.

Je voudrais que la macro du fichier Excel enregistré à la racine du dossier "_RIP" me déplace les fichiers FLAC enregistrés à la racine du dossier "_RIP" Vers le dossier "_Collection".
Exemple :

Le fichier : "Yael Naїm - New Soul.flac" situé à la racine du dossier "_RIP" devra être déplacé dans  le dossier :  "_Collection\Yael Naїm\"

Voilà !
Si quelqu'un à la solution, je suis preneur !

Merci à tous

Sébastien

cs_Le Pivert · Answer

Bonjour,

il faut tout d'abord boucler sur les fichiers d'un répertoire:

 https://excel.developpez.com/faq/?page=FichiersDir#BoucleFichiers

ensuite intégrer à cette boucle le code pour déplacer les fichiers:

https://excel-malin.com/tutoriels/vba-tutoriels/manipulation-basique-des-fichiers-en-vba/

slapeyre · Answer

Merci pour ta réponse. 
Je crois comprendre l'idée, je vais essayer de pondre un truc avec les infos que tu m'as données !

slapeyre · Answer

Bon et bien je ne sais pas comment faire...
Tu trouveras dans ce post le lien vers mon fichier Excel avec ton code qui permet de me créer l'arborescence des dossiers dans "\DISKSTATION\music\_Collection". 
J'ai intégré dans ce fichier ce bout de code :

Sub BoucleFichiers()    Dim Chemin As String, Fichier As String     'Définit le répertoire contenant les fichiers    Chemin = "\DISKSTATION\music\_RIP\"     'Boucle sur tous les fichiers FLAC du répertoire.    Fichier = Dir(Chemin & "*.FLAC")    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers :    'Fichier = Dir(Chemin & "*.*")     Do While Len(Fichier) > 0        'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).        Debug.Print Chemin & Fichier        Fichier = Dir()    LoopEnd Sub

Ensuite, je ne sais pas comment procéder.

https://www.cjoint.com/c/JLnrDptxLkY

Vu que je suis très poli ????, peux-tu m'aider STP ?

slapeyre · Answer

Merci pour ta réponse.
Je vais tester ton code.
Par contre, je n'ai pas du être assez précis ou clair dans mon explication.
L'arborescence est déjà créé grâce à ton code que j'ai trouvé sur ce forum.
Ce que je voudrai, c'est simplement déplacer les fichiers FLAC d'un dossier source où ils sont tous enregistré à la racine du dossier vers un dossier destination qui contient une arborescence.

Exemple, j'ai ce fichier enregistré à la racine du dossier source :
Yael Naїm - New Soul.flac

Je voudrais qu'il soit automatiquement déplacé dans le sous dossier "Yael Naїm" du dossier destination. "Yael Naїm" est l'artiste.

Dossier source : "\DISKSTATION\music\_RIP\"
Dossier destination :" \DISKSTATION\music\_Collection"

Le dossier destination contient l'ensemble des sous dossiers correspondant aux noms des artistes.

slapeyre · Answer

celui-ci

Sub CreationDossiers()
    On Error Resume Next
    i = 1
    While Cells(i, 1).Value <> ""
        MkDir ActiveWorkbook.Path & "\" & Cells(i, 1).Value
        For j = 2 To 7
            MkDir ActiveWorkbook.Path & "\" & Cells(i, 1).Value & "\" & Cells(i, j).Value
        Next j
        i = i + 1
    Wend
End Sub

slapeyre · Answer

lol
Bon je pense que c'est un dialogue de sourd :) je ne dois pas être clair dans ma demande.
Je te remercie en tout de l'intérêt que tu portes à mon cas.

On va mettre de côté le code de ma précédente réponse et tout ce que tu as vu/lu plus haut.

Je vais essayer d'exposer ma demande de façon plus générique.

Soit 2 dossiers :

un dossier source
un dossier destination

Dans le dossier source il y a des fichiers en vrac à la racine de ce dossier,  nommés ainsi :

artiste - titre.flac

dans le dossier destination il y a une arborescence déjà crée qui comporte l'ensemble des artistes que l'on peut trouver dans les titres de musique au format flac qu'il y a dans le dossier source.
Je voudrais déplacer les fichiers du dossier source vers un des sous dossier du dossier destination en fonction du nom de l'artiste présent à gauche du symbole "-" présent dans l'ensemble des fichiers du dossier source. 

Exemple :

Le fichier "Yael Naїm - New Soul.flac" présent à la racine du dossier source devra être déplacé dans le dossier "Yael Naїm" (déjà créé) du dossier destination

Le fichier "Robbie Williams - Angels.flac" présent à la racine du dossier source devra être déplacé dans le dossier "Robbie Williams" (déjà créé) du dossier destination

etc.

slapeyre · Answer

Je te remercie beaucoup pour avoir passé du temps à essayer de comprendre ma demande.
Bonne soirée

Sébastien

jee pee · Answer

Bonjour,

Je ne sais pas pourquoi tu veux faire cela sous excel ?

Moi je ferais un script windows, nommé par exemple transfert.cmd en changeant les 2 répertoires de traitement  :
@echo off
chcp 65001> nul      &rem code page pour accents
set ORIG=\NASINA\Temp\Musique\_Rip\
set DEST=\NASINA\Temp\Musique\_Collection\
setlocal EnableDelayedExpansion    &rem utilisé pour gérer les variables entre ! dans boucle for
for %%F in (%ORIG%*.flac) do (
   set X=%%~nxF
   set Y=!X:* - =!
   call set Z=%%X: - !Y!=%%
   echo !X! // !Z! // !Y! 
   if not exist "%DEST%!Z!\" mkdir "%DEST%!Z!\"
   if not exist "%DEST%!Z!\!Y!" copy "%ORIG%!X!" "%DEST%!Z!\!Y!"
)

slapeyre · Answer

Bonsoir et merci pour ton script.
Je voulais gérer les fichiers sous Excel par soucis d'homogénéité car je génère déjà les dossiers depuis une macro.
De plus, j'ai la liste de l'ensemble de mes fichiers sous Excel.
Par soucis de simplicité, j'envisageai de tout gérer du même endroit.
Ceci dit, ton script (que je n'ai pas encore essayé semble répondre à mes attentes.
Merci d'avoir pris le temps de me répondre

slapeyre · Answer

je viens de tester et il ne se passe rien.

voilà le script modifié avec les bons chemins :

@echo off
chcp 65001> nul      &rem code page pour accents
set ORIG=\DISKSTATION\music\_RIP\
set DEST=\DISKSTATION\music\_Collection\
setlocal EnableDelayedExpansion    &rem utilisé pour gérer les variables entre ! dans boucle for
for %%F in (%ORIG%*.flac) do (
   set X=%%~nxF
   set Y=!X:* - =!
   call set Z=%%X: - !Y!=%%
   echo !X! // !Z! // !Y! 
   if not exist "%DEST%!Z!\" mkdir "%DEST%!Z!\"
   if not exist "%DEST%!Z!\!Y!" copy "%ORIG%!X!" "%DEST%!Z!\!Y!"

Pour rappel les fichiers à déplacer sont nommés de la sorte :

artiste - titre.flac
exemple : Yael Naїm - New Soul.flac

Ce fichier sera à déplacer dans le dossier "Yael Naїm" du dossier de destination.

slapeyre · Answer

Avec ce code là, voilà ce qu'il se passe :

1/ ça ne déplace pas le fichier mais ça le copie. Il faudrait le déplacer et non le copier
2/ ça copie le fichier en ne gardant que la partie droite du "-" soit le titre
Je me retrouve avec ce fichier "New Soul.flac" dans le dossier "Yael Naїm" alors que le fichier devrait garder son nom, à savoir : "Yael Naїm - New Soul.flac"
On progresse ! 

Voici le code que j'ai corrigé avec tes indications

@echo off
chcp 65001> nul      &rem code page pour accents
set ORIG=\DISKSTATION\music\_RIP\
set DEST=\DISKSTATION\music\_Collection\
setlocal EnableDelayedExpansion    &rem utilisé pour gérer les variables entre ! dans boucle for
for %%F in (%ORIG%*.flac) do (
   set X=%%~nxF
   set Y=!X:* - =!
   call set Z=%%X: - !Y!=%%
   echo !X! // !Z! // !Y! 
   if not exist "%DEST%!Z!\" mkdir "%DEST%!Z!\"
   if not exist "%DEST%!Z!\!Y!" copy "%ORIG%!X!" "%DEST%!Z!\!Y!"
)
pause


Merci une fois de plus de m'aider

slapeyre · Answer

Yes !

Ca marche !

C'est génial !

Merci !

Gestion fichiers et dossier depuis macro Excel (erratum)

12 réponses

Discussions similaires