Discussion :

[dada1409]

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.

[Marc-L]

Bonjour,

vérifier déjà ce que contient la variable jour …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[dada1409]

Ma variabale jour est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Date	 =TEXTE(AUJOURDHUI()-2;"aaaammjj") = 20171210

Je dois utiliser Mid ou like ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Exemple trouvé :
If Fichier <> False Then
   NomFichier = Mid(Fichier, InStrRev(Fichier, "\") + 1)
   FileCopy Fichier, ThisWorkbook.Path & "\" & NomFichier
End If

Comment puis-je l'adapter dans ma macro svp ?

[kiki29]

Salut, une lecture salutaire : Manipuler les chaînes de caractères en VB6 et VBA Excel