Copier un fichier identique dans un autre repertoire

Hello,

Pourriez-vous m'aider svp ? Je cherche a creer une macro qui va creer un dossier sur le repertoire A avec date de jour. Puis, copier dans ce repertoire un fichier (avec date de jour) d'un autre repertoire.

Dim Folder As String

Dim OriginalFile As String

Dim CopyFile As String

'Creation dossier avec date de jour sur le repertoire A

'Folder= "\\A.......\OLY Extracts\" & Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00"). Create

'Recuperer 1 fichier sur le repertoire B et le coller sur le repertoire A (meme nom)

Chemin = "\\A.......\OLY Extracts\" & Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")

OriginalFile = Chemin & "\\B.................\OLYMPIC\QUOI_& Format(Date, "dd") & Format(Date, "mm") & Format(Date, "yy").xls"

CopyFile = chemin & "\\B..................\OLYMPIC\QUOI_& Format(Date, "dd") & Format(Date, "mm") & Format(Date, "yy").xls"

FileCopy Original, CopyF

End Sub

bonjour,

une proposition

Sub aargh()

    repertoirebasedestination = "\\A.......\OLY Extracts\"
    repertoiresource = "\\B.................\OLYMPIC\"

    repertoiredujour = Format(Date, "yyyymmdd")
    chemin = repertoirebasedestination & repertoiredujour
    On Error Resume Next
    MkDir chemin
    On Error GoTo 0

    nomfichier = "QUOI_" & Format(Date, "ddmmyy") & ".xls"
    OriginalFile = repertoiresource & nomfichier
    CopyFile = chemin & "\" & nomfichier

    FileCopy OriginalFile, CopyFile

End Sub

Merci Super !