Bonjour,

J'ai cherché sur les forums mais je ne trouve pas la réponse à mon problème.

Je souhaite copier un fichier de type "Classeur_2017121121" contenant une date déterminée, ici au format "20171211" dans un autre répertoire. Le soucis est qu'il y a des caractères avant et après le nom de la variable date.

J'ai essayé cette macro mais ça bloque au niveau du 2ème essai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CopierFichier()
 
    Dim rep1 As String
    Dim rep2 As String
    Dim jour As String
 
    rep1 = Workbooks("Test.xlsm").Sheets("Feuil1").Cells(1, 2).Value
    rep2 = Workbooks("Test.xlsm").Sheets("Feuil1").Cells(2, 2).Value
    jour = Workbooks("Test.xlsm").Sheets("Feuil1").Cells(4, 2).Value
 
   '1er essai OK
  FileCopy rep1 & "\" & "Classeur_2017121121" & ".xlsx", rep2 & "\Classeur3.xlsx"
 
  '2ème essai NOK
  FileCopy rep1 & "\" & "*" & jour & "*" & ".xlsx", rep2 & "\Classeur3.xlsx"
 
 
End Sub
De plus, je voudrais que le fichier copié soit nommé de la même manière dans le répertoire cible.

Pouvez-vous svp m'aider ?

Merci beaucoup par avance pour votre aide.