Ouverture fichier

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
nom = Target.Value
If Range("C1") = "" Then Exit Sub
chemin = Range("C1") & "\"
 Workbooks.Open chemin & nom 'on ouvre le classeur si existant
End Sub

Option Explicit
Public chemin As String, nom As String

Option Explicit
Private Sub CommandButton1_Click()
 'Nécessite d'activer la référence "Microsoft Scripting RunTime"
    'allez dans Outils Références et cocher "Microsoft Scripting RunTime"
    
    Dim Fso As Scripting.FileSystemObject
    Dim FileItem As Scripting.File
    Dim Tableau()
    Dim Plage As Range
    Dim m As Integer, i As Integer
    Dim z As Byte, Valeur As Byte
    Dim Cible As Variant
SelectionDossier_source
nom = Application.InputBox("Entrez le nom")
  nom = Dir(chemin & "\\" & nom & "*")
   Range("C1") = chemin & "\"
  'Boucle sur les fichiers
    Do
  m = m + 1
        ReDim Preserve Tableau(1 To 2, 1 To m)
        Tableau(1, m) = nom
 
        Set Fso = CreateObject("Scripting.FileSystemObject")
        Set FileItem = Fso.GetFile(chemin & "\" & nom)
 
        'Récupère la date de création
        Tableau(2, m) = Left(FileItem.DateCreated, 10)
        'Pour récupérer la date de dernière modification
        'Tableau(2, m) = Left(FileItem.DateLastModified, 10)
        'Pour récupérer la taille du fichier
        'Tableau(2, m) = Left(FileItem.Size, 10)
 
        nom = Dir
    Loop Until nom = ""
 
 
    '---Trie les fichiers par ordre décroissant de création ---
    Do
        Valeur = 0
        For i = 1 To m - 1
            If CDate(Tableau(2, i)) < CDate(Tableau(2, i + 1)) Then
                For z = 1 To 2
                    Cible = Tableau(z, i)
                    Tableau(z, i) = Tableau(z, i + 1)
                    Tableau(z, i + 1) = Cible
                Next z
 
                Valeur = 1
            End If
        Next i
    Loop While Valeur = 1
 
 
    '--- Transfère les données dans la feuille de calcul ---
    Set Plage = Worksheets("Feuil1").Range("A1")
    Set Plage = Plage.Resize(UBound(Tableau(), 2), UBound(Tableau()))
    Plage = Application.Transpose(Tableau())
 Worksheets("Feuil1").Columns("A:B").AutoFit
End Sub
Sub SelectionDossier_source()
With Application.FileDialog(msoFileDialogFolderPicker)
        'Définit un titre pour la boîte de dialogue
        .Title = "Choisissez le dossier des classeurs à rechercher"
        'Affiche la boîte de dialogue
        .Show
 'Affiche le nom du dossier sélectionné
        If .SelectedItems.Count > 0 Then
            chemin = .SelectedItems(1)
          End If
   End With
End Sub

Private Sub Valider_Click()
            Dim CHEMIN As String
            Dim FICHIER As String
            CHEMIN = "C:\Users\xx\Documents\premiers tests\test recup\test\New folder\"
            FICHIER = CHEMIN & menu.saisie.Text & ".xlsx"
    ' Dim choix
            ' vérification de l'existance du fichier
            If Dir(FICHIER) = "" Then
            ' message erreur si il n'existe pas
            MsgBox "le fichier est introuvable"
            ' Si ok ouverture du fichier
            Else
            Workbooks.Open Filename:=FICHIER
            
                        ' copie et colle cellules

    Sheets("RESUM").Select
    Range("A2,B2,c2,d2,e2,f2,g2,h2,i2,j2,k2,l2,m2,n2,o2,p2,q2,r2,s2,t2,u2,v2,w2,x2,y2,Z2").Select
    Selection.Copy
    Windows("test.xls").Activate
    Range("A65000").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


            ' Pour fermer le fichier .xls
            Workbooks(menu.saisie.Text & ".xlsx").Close SaveChanges:=False

            End If
End Sub