XL 2021 Creation VBA copie de differents fichiers dans différents dossiers

[marinpatate]

Bonjour,

Je me permet d’écrire sur ce forum car je suis face un dilemme et étant plus que débutant en VBA je n'arrive pas à trouver ma réponse sur le net.

J'ai besoins (pour me faciliter la vie) de deplacer des fichiers dans different dossiers.

C'est à dire avoir une colonne avec le chemin de mes fichiers et dans la colonne d'a coté le dossier de reception.
c:\bureau\fichier 1 -> c:\bureau\dossier 1
c:\bureau\fichier 2 -> c:\bureau\dossier 2
etc...

le truc c'est que je ne trouve pas de VBA pour copier un fichier par dossier..

Est ce que l'un de vous peut m'aider ?

Je vous remercie

 

[Phil69970]

Bonjour @marinpatate et bienvenu sur XLD

Se servir de excel pour déplacer des fichiers même si c'est possible est plutôt du ressort de Windows il me semble !!

C'est un peu comme si tu prenais l'avion et sautais en parachute sur ta boulangerie qui est à 300 m de chez toi pour prendre une baguette de pain. Cela fonctionne mais un peu tarabiscoté non .

 

[sousou]

bonjour
Voici le code qui va copier les fichiers selectionnés dans une colonne, vers l"emplacment situé dans la colonne suivante.
J'ai mis en commentaire l'effacement du fichier originel.
Attention, l'effacement est definitif.
bien verifier le resultat souhaité avant de rajouter cette option.
je n'ai pas mis de controle, vérifiant que les fichiers existent bien

Sub copiefichiers()

Set fso = CreateObject("Scripting.FileSystemObject")
For Each i In Selection ' ici la selection des fichiers à copier
fso.copyfile i.Value, i.Offset(0, 1).Value
'fso.deletefile i

Next
End Sub
pour aller plus loin avec FileSystemObjec:

Objets de VBScript/WSH

 

[marinpatate]

bonjour
Voici le code qui va copier les fichiers selectionnés dans une colonne, vers l"emplacment situé dans la colonne suivante.
J'ai mis en commentaire l'effacement du fichier originel.
Attention, l'effacement est definitif.
bien verifier le resultat souhaité avant de rajouter cette option.
je n'ai pas mis de controle, vérifiant que les fichiers existent bien

Sub copiefichiers()

Set fso = CreateObject("Scripting.FileSystemObject")
For Each i In Selection ' ici la selection des fichiers à copier
fso.copyfile i.Value, i.Offset(0, 1).Value
'fso.deletefile i

Next
End Sub
pour aller plus loin avec FileSystemObjec:

Objets de VBScript/WSH

Bonsoir,

Merci beaucoup pour votre aide !

 

[sousou]

Bonjour
un peu plus élaborer . de quoi étudié l'objet filesystem

 

[patricktoulon]

Bonjour à tous (juste en passant)
la fonction vba fileCopy[chemin original],[nouveau chemin] de vba ferait très bien l'affaire