Copier coller fichier avec nom variable

VBA
1

Bonjour à TOUS,

je voudrais déplacer un fichier d’un répertoire vers un autre

répertoire d’origine=>C:\Users\3158132\Downloads
répertoire de destination=>C:\Tmp\SMAX

Nom du fichier=> Il est variable car il est issue d’une requète quotidienne? Par contre la racine est toujours la même=>« Équipement » et sons extension =>xlsx

j’ai fait cette macro mais ça ne fonctionne pas

Sub Move_fichier()
FileCopy « C:\Users\3158132\Downloads\Équipement*.xlsx », « C:\Tmp\SMAX\Équipement*.xlsx »
End Sub

c’est l’Astérix qui bloque.
Il n’y a jamais plus d’1 fichier commençant pas « Équipement » dans ce répertoire. Faudrait-il que je charge d’abord une variable avec le nom du fichier présent pour ensuite l’utiliser dans le copier/coller ?

Quelqu’un aurait-il une solution svp

MERCI par avance

2

Bonjour,
Ta macro ne fonctionne pas puisque : FileCopy n’accepte pas les jokers (*).
Il faut d’abord trouver le fichier avec Dir , puis le copier (ou déplacer)

Teste peut-être comme ça!

Sub Move_fichier()

    Dim fichier As String
    Dim source As String
    Dim destination As String

    source = "C:\Users\3158132\Downloads\"
    destination = "C:\Tmp\SMAX\"

    fichier = Dir(source & "Équipement*.xlsx")

    If fichier <> "" Then
        FileCopy source & fichier, destination & fichier
        Kill source & fichier ' supprime l'original
    Else
        MsgBox "Aucun fichier trouvé !"
    End If

End Sub

Slts

3

Merci TontonBox, ça fonctionne parfaitement. :+1: