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

sousou à dit:

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

Cliquez pour agrandir...