Bonjour,

débutant en VBA, je souhaite mettre au point une macro copiant un fichier d'un répertoire 1 vers un répertoire 2.
Mon/mes fichiers sources sont tous positionnés dans des dossiers différents même si l'arborescence est similaire, ex :
- S:\Agences\VILLEPINTE\Gestion\Analyse VILLEPINTE.pdf
- S:\Agences\BORDEAUX\Gestion\Analyse BORDEAUX.pdf
- ...

et je souhaite mettre tous les fichiers copiés dans un même répertoire, ex :
- S:\Mon fichier de destination\

J'ai créé une boucle afin d'aller chercher les information adéquates en fonction du fichier que je dois aller chercher.
Voici ce que donne mon code pour l'instant :

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
 
Sub Deplacement_fichier()
  Dim agence As String
  Dim CheminFicSource As String
  Dim CheminFicExport As String
  Dim Fichier As String
 
  For Each MonAgence In Range("ListeAgence")
    If (Sheets("Menu").Cells(MonAgence.Row, 14).Value = "ok") Then
      agence = MonAgence.Text
      Fichier = Sheets("Menu").Cells(MonAgence.Row, 13).Text
      CheminFicExport = Sheets("Menu").Cells(MonAgence.Row, 12).Text
      CheminFicSource = Sheets("Menu").Cells(MonAgence.Row, 11).Text
 
    Name CheminFicSource & Fichier As CheminFicExport & Fichier 
 
 
    End If  'If MonAgence.Text <> "" Then
  Next 'For Each MonAgence In Range("CodesAgences")
Seulement, lorsque je joue ma macro, l’exécution s’arrête au niveau de "Name CheminFicSource & Fichier As CheminFicExport & Fichier " car il n'arrive pas à faire le liens...

Quelqu'un aurait il le temps de me venir en aide ??

Merci d'avance,