Private Sub CmdCopier_Click()
Dim SourceFile, DestinationFile
SourceFile = "FICHSRC.TXT" 'Définit le nom du fichier source.
DestinationFile = "FICHDEST.TXT" 'Définit le nom du fichier cible.
'Copie le fichier source dans le fichier cible.
FileCopy SourceFile, DestinationFile
End Sub