Discussion :

[ridokou]

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

[tedo01]

Bonjour,
Sur quelle ligne se produit l'erreur ?
Et que contiennent les cellules Sheets("Menu").Cells(MonAgence.Row, 4) et Sheets("Menu").Cells(MonAgence.Row, 5) ?

[mayekeul]

bonjour, tu as bien vérifié que les variables contenaient le chemin cimplet et correct des fichiers?

[ridokou]

L'erreur survient sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FileCopy Source, Destin

et les cellules Sheets("Menu").Cells(MonAgence.Row, 4) et Sheets("Menu").Cells(MonAgence.Row, 5) renvoient des chemins d'accés et de destination de mes fichiers :

ex de chemin source : S:\XXX\Agences\BRUXELLES\Echange\AAAAAAAAAA.xls
ex de chemin de destination : S:\XXX\ZZZ\BELGIQUE\

[mayekeul]

destin doit contenir un chemin complet style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Destin="C:\chemin\dFichier.xls"

[ridokou]

C'était bien ça.
Merci à tous pour votre aide,
Bonne fin de journée