Discussion :

[meumeu73.1]

Bonjour,

Je cherche à déplacer un certain nombre de fichiers vers un nouveau répertoire pour cela, j'ai une liste avec le chemin du dossier et le nom du fichier.

Est ce quelqu'un peut m'aider ou m'indiquer à quel endroit, je peux trouver cela sur les sites, je n'ai pas vraiment trouver pour le moment.

Par avance merci

Meumeu 73

[joe.levrai]

Bonjour,

une discussion parmi tant d'autres

https://www.developpez.net/forums/d1...-fonction-nom/

[Philippe Tulliez]

Bonjour,
Cette page devrait vous aider Manipulation basique des fichiers en VBA (copie, suppression,…)

[King Tchang]

Bonjour j'espère que ces liens répondront a vos attentes

Bonne soirée.

Lien 1 : Cliquez ici
ou
Lien 2 :Visualisez

[meumeu73.1]

Bonjour,

J'ai regardé tous vos liens, j'ai trouvé ce code qui se rapproche de mon besoin

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
26
27
28
29
30
31
32
33
34
 
Sub movefiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
 
    'liste des fichiers
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
 
    'chemin d'origine
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = " Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
 
    'chemin de destination
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = " Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
 
 
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
            Kill xSPathStr & xVal
        End If
    Next
End Sub

J'ai bien identifié les étapes :

• récupération de la liste des fichiers
• répertoire d'origine
• répertoire de destination

Ce que je voudrai améliorer, c'est le fait que le répertoire d'origine peut être différent, en sélectionnant les chemins de la même façon que pour les fichiers.

J'ai essayé mais comme je ne suis pas un expert, je rame un peu.

Après pour faire simple, je peux aussi créer un listing avec le chemin complet inclus fichiers dans une même colonne.

Merci pour votre aide.

[meumeu73.1]

Bonjour à tous,

Merci pour votre aide,

J'ai trouvé également ce sujet sur un autre forum que j'ai pu combiner avec les sujets que vous m'avez partagé.

https://forum.excel-pratique.com/exc...ro-t73232.html

Je clos le post

Cdt,