selection, recherche et copie dans des repertoires et sous repertoires

Re : selection, recherche et copie dans des repertoires et sous repertoires

Pour choisir un répertoire

Re : selection, recherche et copie dans des repertoires et sous repertoires

Bonjour,

merci pour cette réponse (que je garde en mémoire pour un autre traitement), mais j'ai essayé de l'intégrer dans mon code et j'ai un doute sur le fait que celà réponde à mon souci.

Ici le code mis à jour

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 = FileDialog
Set FileDialog = Application.FileDialog(msoFileDialogFolderPicker)
If FileDialog.Show <> 0 Then MsgBox "Répertoire sélectionné : " & FileDialog.SelectedItems(1) 'à adapter
DosDestin = "C:\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

J'ai bien la boite de dialogue pour sélectionner un répertoire, j'ai bien l'info que le répertoire est sélectionné mais j'ai un doute sur les sous-répertoires.

Est-ce qu'il manque quelquechose à mon code ?

Merci

pouloucarine

Re : selection, recherche et copie dans des repertoires et sous repertoires

J'ajoute que celà peut être des répertoires avec tous ses sous-répertoires, mais aussi un lecteur et du coup tous ses répertoires/sous répertoires

Merci

pouloucarine

Re : selection, recherche et copie dans des repertoires et sous repertoires


Bien sûr modifie les valeurs des 2 constantes RepDest et ext selon ton besoin

Re : selection, recherche et copie dans des repertoires et sous repertoires

Bonjour,

merci pour ce code mais je dois définitivement être blond.

Le code me crée bien le répertoire de destination
Il va bien "explorer" le répertoire sélectionné
Il m'indique bien qu'il cherche un fichier du type A1.jpg
Mais par contre une fois trouvé, il ne me le copie pas vers mon rep de destination et je dois faire ok à chaque "item" trouvé.

En gros, je n'arrive pas à intégrer ce code dans ma macro de copie du fichier une fois celui-ci trouvé.

Pouvez vous m'indiquer comment mettre celà en forme ?

Cordialement

pouloucarine

Re : selection, recherche et copie dans des repertoires et sous repertoires

Bonjour,

je n'y arrive toujours pas :

ma macro suivante fonctionne très bien :

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

Je souhaiterai pouvoir simplement changer le DosSource, c'est à dire que je puisse sélectionner un répertoire avec une fenêtre explorer windows et que celà puisse recherche dans le répertoire et tous les sous-répertoires de répertoire, voir un lettre lecteur réseau.

Tout le reste est ok

Merci de votre aide

Pouloucarine