choisir un lecteur ou repertoire/sous repertoire source variable

Question

Bonjour, 

j'ai une macro excel qui me permet de rechercher puis copier et coller dans un autre répértoire des fichiers *.jpg à partir d'une liste dans excel.

Malheureusement, j'ai en dur le répertoire source (qui dans mon cas est un lecteur réseau), mais je souhaiterai pouvoir en vrai choisir (par boite de dialogue explorer windows) soit un lecteur réseau, soit un répertoire avec lecture dans tous les sous-répertoires de ce répertoire. Je tourne un peu en rond. Pourriez vous m'adier.
Ci dessous la macro :

Sub dupliean()

Dim P As Range, DosSource$, DosDestin$, ext$, c As Range, DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Set P = Range("A1:A" & DernLigne) 'plage avec les noms des fichiers (sans extension)
DosSource = "Z:\" 'à adapter
DosDestin = "D:\Test\" 'à adapter
ext = ".jpg"
Application.DisplayAlerts = False
On Error Resume Next
MkDir DosDestin 'crée le dossier s'il n'existe pas
For Each c In P
  FileCopy DosSource & c & ext, DosDestin & c & ext
  c(1, 2) = IIf(Dir(DosDestin & c & ext) = "", "", "OK")
Next
MsgBox Application.CountA(P.Offset(, 1)) & " fichiers copiés"
End Sub

Merci de votre aide

Cordialement
pouloucarine


EDIT : Ajout des balises de code

jordane45 · Answer

Bonjour,

Un truc du genre peut être..

Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
    .Title = "Select a Folder"
    .AllowMultiSelect = False
    .InitialFileName = strPath
    If .Show <> -1 Then GoTo NextCode
    sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function

Et pour l'utiliser dans ton code :

DosSource = GetFolder("Z:\")
DosDestin = GetFolder("D:\Test\")

pouloucarine · Answer

Bon, j'ai réussi en partie mais celà ne va pas dans les sous répertoires. Il faut que l'on sélectionne rep par rep alors que mon souhait c'est qu'à partir du niveau choisi (lecteur réseau par exemple) la macro balaye tous les répertoires et les sous-répertoires pour ensuite pouvoir copie et coller les fichiers "jpg" vers le rep de destination (qui lui peut rester en dur, ce n'est pas grave).

Choisir un lecteur ou repertoire/sous repertoire source variable

2 réponses

Votre réponse

Discussions similaires