Bonsoir le Forum
Voila ma question,j'utilise le code suivant pour copier des fichiers d'un repertoire vers un autre.Est il possible a la fin du code de rajouter une MsgBox
pour demander si les fichiers sont deja present dans le repertoire destination si ont veux les ecraser ou pas.
Sub Test1()
Dim Fichiers As Variant
Dim i As Integer
Dim Chemin As String
Dim Fso As Object
ChDir (UserForm4.TextBox1)
'Sélection des fichiers
Fichiers = Application.GetOpenFilename(, , , , True)
If IsArray(Fichiers) = False Then MsgBox "aucun fichier sélectionné", vbOKOnly + vbCritical, "fin de procédure ": Exit Sub
'--- Sélection repertoire ---
Chemin = UserForm4.TextBox2
If Chemin = "" Then Exit Sub
Set Fso = CreateObject("Scripting.FileSystemObject")
'Transfert fichiers
For i = 1 To UBound(Fichiers)
Fso.CopyFile Fichiers(i), Chemin, True
Next
MsgBox "Opération terminée"
UserForm4.TextBox1.Value = ""
UserForm4.TextBox2.Value = ""
Unload UserForm4
End Sub
Merci pour votre aide
Voila ma question,j'utilise le code suivant pour copier des fichiers d'un repertoire vers un autre.Est il possible a la fin du code de rajouter une MsgBox
pour demander si les fichiers sont deja present dans le repertoire destination si ont veux les ecraser ou pas.
Sub Test1()
Dim Fichiers As Variant
Dim i As Integer
Dim Chemin As String
Dim Fso As Object
ChDir (UserForm4.TextBox1)
'Sélection des fichiers
Fichiers = Application.GetOpenFilename(, , , , True)
If IsArray(Fichiers) = False Then MsgBox "aucun fichier sélectionné", vbOKOnly + vbCritical, "fin de procédure ": Exit Sub
'--- Sélection repertoire ---
Chemin = UserForm4.TextBox2
If Chemin = "" Then Exit Sub
Set Fso = CreateObject("Scripting.FileSystemObject")
'Transfert fichiers
For i = 1 To UBound(Fichiers)
Fso.CopyFile Fichiers(i), Chemin, True
Next
MsgBox "Opération terminée"
UserForm4.TextBox1.Value = ""
UserForm4.TextBox2.Value = ""
Unload UserForm4
End Sub
Merci pour votre aide