Récupération données sur un autre fichier, nom variable

Option Explicit
Option Private Module
'
' Note : il faut activer les références (dans Outils > Références ...) à :
' - Microsoft Scripting Runtime

Public Sub MàJ()
' Analyse les fichiers du répertoire et trouve le plus récent
'
Const préfixe As String = "ccm ("      'Préfixe des noms de fichier
Const suffixe As String = ").csv"      'Suffixe des noms de fichier
'
Dim objFSO As FileSystemObject         'File System Object
Dim objRep As Scripting.Folder         'dossier à analyser
Dim objFiles As Scripting.Files        'collection des fichiers du dossier
Dim objFile As Scripting.File          'fichier de la collection
Dim strChemin As String                'chemin du dossier
Dim nomComplet As String               'Nom complet du fichier (avec le chemin)
Dim dateModification As Date           'Date de modification du fichier

'Définir le contexte d'exécution: arrêt interface utilisateur, actualisation écran et calculs
Application.Interactive = False
Application.Calculation = xlCalculationManual
Application.Cursor = xlWait
Application.ScreenUpdating = False

'Définir le dossier à analyser par exemple :
strChemin = ThisWorkbook.Path & "\Mes fichiers"

'Lister l'arborescence du dossier
On Error Resume Next
Set objFSO = New FileSystemObject
Set objRep = objFSO.GetFolder(strChemin)                'dossier
Set objFiles = objRep.Files                             'fichiers
On Error GoTo 0
'- analyser chaque nom de fichier
For Each objFile In objFiles
  If InStr(1, objFile.Name & préfixe, préfixe) = 1 And _
     InStr(1, StrReverse(objFile.Name) & StrReverse(suffixe), StrReverse(suffixe)) = 1 Then
  '-- si le nom de fichier commence par le préfixe et termine par le suffixe ...
    With objFile
      '... et si le fichier est plus récent ...
      If .DateLastModified > dateModification Then
        '... mémoriser le nom et la date du fichier.
        nomComplet = .Path
        dateModification = .DateLastModified
      End If
    End With
  End If
Next

'Exploiter le résultat
MsgBox "Fichier le plus récent : " & vbCr & _
       nomComplet & vbCr & _
       dateModification

'- libérer les objets
Set objFSO = Nothing
Set objRep = Nothing
Set objFiles = Nothing
Set objFile = Nothing

'Rétablir le contexte initial
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.Cursor = xlDefault
Application.Interactive = True

End Sub

Option Explicit
Option Private Module
'
' Note : il faut activer les références (dans Outils > Références ...) à :
' - Microsoft Scripting Runtime

Public Sub MàJ()
' Analyse les fichiers du répertoire et trouve le plus récent
'
Const préfixe As String = "ccm ("      'Préfixe des noms de fichier
Const suffixe As String = ").csv"      'Suffixe des noms de fichier
'
Dim objFSO As FileSystemObject         'File System Object
Dim objRep As Scripting.Folder         'dossier à analyser
Dim objFiles As Scripting.Files        'collection des fichiers du dossier
Dim objFile As Scripting.File          'fichier de la collection
Dim wbkOrg As Workbook                 'Classeur origine
Dim wbkDst As Workbook                 'Classeur destination
Dim strChemin As String                'chemin du dossier
Dim nomComplet As String               'Nom complet du fichier (avec le chemin)
Dim dateModification As Date           'Date de modification du fichier

'Définir le contexte d'exécution: arrêt interface utilisateur, actualisation écran et calculs
Application.Interactive = False
Application.Calculation = xlCalculationManual
Application.Cursor = xlWait
Application.ScreenUpdating = False

'Définir le dossier à analyser par exemple :
strChemin = "C:\Users\nom_utilisateur\AppData\Local\Microsoft\" & _
            "Windows\Temporary Internet Files\Content.Outlook"
'Lister l'arborescence du dossier
On Error Resume Next
Set objFSO = New FileSystemObject
Set objRep = objFSO.GetFolder(strChemin)                'dossier
Set objFiles = objRep.Files                             'fichiers
On Error GoTo 0
'- analyser chaque nom de fichier
For Each objFile In objFiles
  If InStr(1, objFile.Name & préfixe, préfixe) = 1 And _
     InStr(1, StrReverse(objFile.Name) & StrReverse(suffixe), StrReverse(suffixe)) = 1 Then
  '-- si le nom de fichier commence par le préfixe et termine par le suffixe ...
    With objFile
      '... et si le fichier est plus récent ...
      If .DateLastModified > dateModification Then
        '... mémoriser le nom et la date du fichier.
        nomComplet = .Path
        dateModification = .DateLastModified
      End If
    End With
  End If
Next

'Ouvrir le fichier csv (au format csv français séparé par des points-virgules)
Set wbkOrg = Workbooks.Open(Filename:=nomComplet, Format:=4, local:=True)
'Créer le fichier destination (un seule feuille vierge)
Set wbkDst = Workbooks.Add(xlWBATWorksheet)
'Copier les données
wbkOrg.Worksheets(1).UsedRange.Copy wbkDst.Worksheets(1).Range("A1")
'Fermer le fichier csv sans l'enregistrer
wbkOrg.Saved = True
wbkOrg.Close

'- libérer les objets
Set objFSO = Nothing
Set objRep = Nothing
Set objFiles = Nothing
Set objFile = Nothing

'Rétablir le contexte initial
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.Cursor = xlDefault
Application.Interactive = True

End Sub