Bonjour,
si je prend le code ci-dessous il me dit : Pas de fichiers à déplacer
Sub TesteSiDossierExiste()
'par Excel-Malin.com (
https://excel-malin.com )
Dim MonDossier As String
Dim Chemin As String, Fichier As String
Dim Destination As String
MonDossier = "D:\" & Range("D3") & "," & " " & Range("P3")
If DossierExiste(MonDossier) = True Then
MsgBox "Le dossier existe..."
Chemin = "D:\" & Range("D3") & "," & " " & Range("P3")
Destination = "D:\" & Range("D3") & "," & " " & Range("P3") & " " & Range("F4") & "-" & Range("U4")
Fichier = Dir(Chemin & "*.*")
Do While Len(Fichier) > 0
FileCopy Chemin & Fichier, Destination & Fichier 'copie les fichiers
Fichier = Dir()
Loop
Else
MsgBox "Le dossier n'existe pas..."
End If
End Sub