Bonjour à tous,

je souhaite déplacer des fichiers d'un répertoire vers un autre grâce à une macro.
ces fichiers se trouvent tous dans des répertoires différents donc avec des chemins pour le fichier source différents.
Je souhaite également mettre en place une boucle afin de me permettre de déplacer les fichiers que je veux au moment ou je veux.

J'ai "bidouillé" ce code mais celui-ci ne semble pas bon (erreur 53... )

Pourriez vous (une fois de plus) me venir en aide ?
Merci d'avance,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
Sub deplacement_fichier()
 
Dim Source As String
Dim Destin As String
Dim agence As String
 
Application.Cursor = xlWait                            
Application.ScreenUpdating = False                    
Application.DisplayAlerts = False                    
 
      For Each MonAgence In Range("LISTE_AGENCE")
    If (Sheets("Menu").Cells(MonAgence.Row, 6).Value = "ok") Then
      Source = Sheets("Menu").Cells(MonAgence.Row, 4).Value
      Destin = Sheets("Menu").Cells(MonAgence.Row, 5).Value
 
 
FileCopy Source, Destin
Kill Source
 
    End If  'If MonAgence.Text <> "" Then
  Next 'For Each MonAgence In Range("CodesAgences")            Fin de la boucle sur les Agences.
 
End Sub