bonjour,
merci pour ton aide, ta macro marche du tonnerre.
cependant j'ai un souci si un de mes dossiers via le chemin d'accès ne contient pas de fichiers, la macro plante en s'arrêtant sur le dernier dossier.
donc je sais pas s'il est possible de lui dire que s'il n'y a pas de fichier correspondant (type pdf dans ma macro), il passe à la cellule suivante, etc... jusqu'à B13.
voici ma macro pour le moment :
Sub z()
Dim f As Integer
sDestination = Range("C1")
For f = 1 To 13
sSource = Range("B" & f) & "*.pdf"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.MoveFile sSource, sDestination
Next
MsgBox "Terminé."
End Sub
et pour mes chemins d'accès :
I:\MODELE DOSSIER\D\
I:\MODELE DOSSIER\E\
I:\MODELE DOSSIER\F\
I:\MODELE DOSSIER\G\
I:\MODELE DOSSIER\H\
I:\MODELE DOSSIER\J\
I:\MODELE DOSSIER\L\
I:\MODELE DOSSIER\M\
I:\MODELE DOSSIER\N\
I:\MODELE DOSSIER\O\
I:\MODELE DOSSIER\P\
I:\MODELE DOSSIER\R\
I:\MODELE DOSSIER\S\
en espérant avoir été clair
merci d'avance
Cordialement
yannick