Déplacer des fichiers avec excel

[Chris57]

Déplacer des fichiers avec excel [résolu]

Bonjour à tous,

est-il possible de déplacer des fichiers d'un dossier vers un autre avec Excel ?. L'idéal pour moi serai de tout couper/coller vers un autre dossier.

 

[mromain]

Re : Déplacer des fichiers avec excel

bonjour Chris57,

voici une solution :

Sub test()
Dim myFso As Object, fichierSource As String, fichierDestination As String
Set myFso = CreateObject("Scripting.FileSystemObject")

fichierSource = "C:\test.txt"
fichierDestination = "D:\test.txt"

myFso.MoveFile fichierSource, fichierDestination

Set myFso = Nothing
End Sub

a+

 

[Chris57]

Re : Déplacer des fichiers avec excel

merci mromain. Et si on a plusieurs fichiers dont le nom n'est pas forcément connu ? A moins de rapatrier d'abord les noms dans excel puis d'utiliser ces noms pour les coller ailleurs...

 

[chris]

Re : Déplacer des fichiers avec excel

Bonjour

Tu peux utiliser la fonction Dir avec chemin\*.xls
et déplacer tous les fichiers dont le nom est renvoyé par cette fonction.

 

[Chris57]

Re : Déplacer des fichiers avec excel

j'ai essayé ceci :

Sub DEPLACERfichiers()
    Dim myFso As Object, fichierSource As String, fichierDestination As String
    Set myFso = CreateObject("Scripting.FileSystemObject")
    
    fichierSource = "H:\Mes Documents 3\doc1\*.*"
    fichierDestination = "H:\Mes Documents 3\doc2\*.*"
    
    myFso.MoveFile fichierSource, fichierDestination

End Sub

mais ça me done un message d'erreur : "Argument ou appel de procédure incorrect" 😕

 

[mromain]

Re : Déplacer des fichiers avec excel

re bonjour,

essaye avec ce code (je ne l'ai pas testé)

Sub DEPLACERfichiers()
    Dim myFso As Object, dossierSource As Object, curFichier As Object
    Set myFso = CreateObject("Scripting.FileSystemObject")
    
    Set dossierSource = myFso.GetFolder("H:\Mes Documents 3\doc1")
    
    For Each curFichier In dossierSource.Files
        myFso.MoveFile curFichier.Path, "H:\Mes Documents 3\doc2\" & curFichier.Name
    Next curFichier
    
    Set myFso = Nothing: Set dossierSource = Nothing: Set curFichier = Nothing
End Sub

a+

 

[Chris57]

Re : Déplacer des fichiers avec excel

en fait j'ai trouvé une solution avant d'avoir lu ton post, mais merci quand même.

Sub DEPLACERfichiers()
    Dim myFso As Object, fichierSource As String, fichierDestination As String
    Set myFso = CreateObject("Scripting.FileSystemObject")
    
    fichierSource = "H:\Mes Documents 3\doc1\*.*"
    fichierDestination = "H:\Mes Documents 3\doc2\*.*"
    
    myFso.MoveFile fichierSource, fichierDestination

End Sub

ça fonctionne impec !!

Encore merci pour votre aide à tous !!!

 

[gabi]

Re : Déplacer des fichiers avec excel

Bonjour,

Après 8 heures de recherches et de tests, j'ai trouvé une solution...😎
Il s'agit d'un utilitaire appeler "file Bucket". Je génère une liste en fichier texte et il me déplace les fichiers où je souhaite.

Si quelqu'un trouve une solution avec excel VBA, je serais quand même curieux de la connaitre...