Copier des fichiers

Bonjour Jose,

Pour faire afficher la fenêtre de "Copie" de Windows lors de ton opération ....

Dans le haut d'un module standard, copie ceci :
'---------------------------------
Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
'---------------------------------
Private Declare Function SHFileOperationA Lib "Shell32.dll" _
(lpFileOp As SHFILEOPSTRUCT) As Long

Function CopieDossier(ByVal Source As String, ByVal Dest As String, _
Optional Action As Byte, Optional Animation As Boolean) As Boolean
Dim OpStruct As SHFILEOPSTRUCT
If Action > 2 Then Exit Function
With OpStruct
.wFunc = IIf(Action = xlMove, 1, 2)
.pFrom = Source
.pTo = Dest
If Not Animation Then .fFlags = 4
End With
CopieDossier = IIf(SHFileOperationA(OpStruct), False, True)
End Function


Et pour copier ton répertoire vers un autre dans ton formulaire, ceci :
'---------------------------------
Sub Test()

Dim RepertoireSource As String
Dim RepertoireDestination

'à déterminer ...
RepertoireSource = "C:Atravail"
RepertoireDestination = "C:denis1"
If CopieDossier(RepertoireSource, RepertoireDestination, xlCopy, True) Then
MsgBox RepertoireDestination & " copié dans " & RepertoireDestination _
, vbOKOnly + vbInformation, "Opération terminée."
Else
MsgBox "Une Erreur est survenue !"
End If
End Sub
'---------------------------------



Salutations!




"Jose Perez" <perez.jose@free.fr> a écrit dans le message de news: 4386446d$0$21701$626a54ce@news.free.fr...
Bonsoir à tous,

Voici mon problème : comment copier plusieurs fichiers d'une disquette vers
le DD. Cette opération de copie doit se faire par un userform qui affichera
le nom des fichiers à l'aide d'un label.
Si quelqu'un peut m'aider, merci d'avance.
José