[Toutes versions] Copier fichier vers autre emplacement [Résolu]

[ridokou]

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 :

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,

[Jean-Pierre49]

Bonjour

Name CheminFicSource & Fichier As CheminFicExport & Fichier

il me semble que là, tu renomme de fichier avec un nouveau chemin
ça ne peut fonctionner il me semble

Pour déplacer des fichiers, une piste

Code :

1
2
3
4
5
6
7
8
9
                            Dim CopieFichiers                   As Object
                            Dim DossierOrigine                  As String
                            Dim DossierDestination              As String
 
        Set CopieFichiers = CreateObject("Scripting.FileSystemObject")
        DossierOrigine = "T:\xxxxxxxx\"
        DossierDestination = "C:\xxxxxxxx\"
 
        CopieFichiers.CopyFile DossierOrigine & "xxxxxxxxx.Csv", DossierDestination, True ' 1

Tu dis

Bon courage

[ridokou]

Bonjour Jean-pierre et merci pour ton aide,

Ca l'air de mieux fonctionner mais j'ai tout de même une erreur d’exécution 70 : permission refusée...
Je googlelise it pour trouver une solution à mon problème.
Encore merci