Déplacer fichier

bonjour tout le monde,

je cherche une macro pour déplacer des fichiers...

j'ai un dossier source contenant plusieurs sous dossiers.

les fichiers sont contenus dans ces sous dossiers.

il faut que le code récupère tous ces fichiers pour les déplacer dans un seul autre dossier destination.

les fichiers sont soit des .txt soit, pour la grande majorité, sans extension .

merci d'avance de votre aide.

Bonjour

A le main dans l'explorateur de fichier on fait cela en 2 minutes...

Bonjour Slygan, 78Chris

Je fais un fichier de commande pour déplacer les fichiers temporaires ou les supprimer.

Ou pour réorganiser mes fichiers par extensions

Donc un fichier .bat, .cmd, pour inclure des commandes "copy" ou "move", voir "del", c'est ma solution

78chris.

....comment dire.....inutile de perdre ton temps à répondre si pour toi cela n'a pas de sens.

pour moi et l'utilisation recherché, cela en a.

scraper,

tu m'a perdu..

Slygan, si c'est pour toi un exercice pour faire des développements, lances toi, on t'encourage mais 78Chris et moi-même voulions te dire qu'il est inutile d'investir dans un développement couteux (plusieurs jours) si le besoin peut être rempli en quelques secondes .

Si c'est pour utiliser une feuille de calcul, pour indiquer les règles de transfert, fait nous une maquette de ton besoin

J'essaye d'écrire ton besoin : à toi de dire si cela répondra à ton besoin

peut être en colonne A le répertoire d'origine, en colonne B les extensions de fichiers, en colonne C: l'action (copier, renommer, déplacer, supprimer), en colonne D : si copier, ou déplacer : le répertoire destination

Déplacer un fichier, ne se fait pas par une formule Excel, mais éventuellement avec un code utilisant "FileSystemObject" et VBA. https://www.automateexcel.com/vba/move-files/

Pour utiliser des fichiers de commandes DOS: https://fr.wikihow.com/cr%C3%A9er-et-supprimer-des-dossiers-et-fichiers-sous-Windows-avec-l%27invite....

Bonjour,

A tester sur une copie de ton dossier source par exemple (La macro va déplacer les fichiers retour en arriere impossible)

Il faut changer les emplacements des dossier dans les variables :

Dossier_Source = "C:\Dossiersource" 
Dossier_Destination = "C:\Expedition" 

Option Explicit
    Public Dossier_Source As String
    Public Dossier_Destination As String

Sub DeplacerSlygan()
'Nécessite d'activer la référence "Microsoft Scripting RunTime"

Dossier_Source = "C:\Dossiersource"             'à adapter
Dossier_Destination = "C:\Expedition"           'à adapter

If Right(Dossier_Source, 1) <> "\" Then Dossier_Source = Dossier_Source & "\"
If Right(Dossier_Destination, 1) <> "\" Then Dossier_Destination = Dossier_Destination & "\"

    DeplacerFichiers Dossier_Source

End Sub

Sub DeplacerFichiers(Repertoire As String)
    'Nécessite d'activer la référence "Microsoft Scripting RunTime"
    Dim FSO As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim SubFolder As Scripting.Folder
    Dim FileItem As Scripting.File
    Dim Chemin_Avant, Chemin_Apres As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder(Repertoire)

For Each FileItem In SourceFolder.Files
    Chemin_Avant = FileItem.ParentFolder & "\" & FileItem.Name
    Chemin_Apres = Dossier_Destination & FileItem.Name
    FSO.MoveFile Chemin_Avant, Chemin_Apres
Next FileItem

For Each SubFolder In SourceFolder.SubFolders
    DeplacerFichiers SubFolder.Path
Next SubFolder

End Sub

A+

Pourrais tu avoir l'amabilité de valider la proposition de Geof52?

slygan a écrit :

78chris.

....comment dire.....inutile de perdre ton temps à répondre si pour toi cela n'a pas de sens.

pour moi et l'utilisation recherché, cela en a.

Slygan.

...comment dire... inutile de perdre ton temps a faire une reponse à une solution donné si pour toi cela n'a pas de sens.
pour moi et le temps passé, cela en a.

Concernant Ton prochain sujet, honnetement ça ne me donne pas envie de participer....

geof52 ,

sincèrement désolé , je croyais avoir répondu.

je comprends totalement ton mécontentement.

ta solution fonctionne parfaitement .

merci beaucoup

encore désolé