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 :
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...
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")
Quelqu'un aurait il le temps de me venir en aide ??
Merci d'avance,
Partager