Sub CopierFichier()
Const Guil = """"
Const DureeMax = "00:02:00"
Dim Phr, F1, F2, Fini, i, Hlimite
If Dir("c:\Aux-copie\nul") = "" Then MkDir "c:\Aux-copie"
ChDir "c:\"
Fini = "C:\Aux-copie\F" & Format(Now, "dd-mm-yyyy-") & Format(Time, "hh-mm-ss.txt")
F1 = Guil & "E:\AAA BBB.CCC\Film a copier.avi" & Guil
F1 = Guil & "E:\AAA BBB.CCC\Film a copier.avi" & Guil
F2 = Guil & "F:\Vers Rep1\Vers Rep2\Fic-Dest.exe" & Guil
Phr = "cmd /K copy /Y " & F1 & " " & F2 & " && " & "echo FINI > " & Guil & Fini & Guil
MsgBox Phr
Hlimite = Time + TimeValue(DureeMax)
Shell Phr, vbNormalNoFocus
' Autres instructions
Do
DoEvents
Loop Until Dir(Fini) <> "" Or Time > Hlimite
'Résultat
If Dir(Fini) <> "" Then
MsgBox "la copie est terminée - le fichier source peut-être effacé (avec prudence)"
Else
MsgBox "Le délai de " & DureeMax & " a été dépassé !" & vbLf & _
"La copie s'est vraisemblablement mal passée."
End If
End Sub