Bonjour,

J'ai un dossier contenant x fichiers. Dans chacun de ses fichiers, j'ai une seule feuille.J'aimerais récupérer le fichier le plus récent, copier la feuille et le coller dans mon fichier de destination dans l'onglet "H".

Moi j'avais écris ce code mais je suis obligé de choisir mon fichier et copie colle.
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
19
Sub Copie_coller()
 
Dim Fichier, Repdefaut As String
 
RepPardefaut = "C:\Test " ' Répertoire
ChDrive "C:" ' Choix du lecteur à adapter
ChDir "C:\Test " 'Choix du répertoire à adapter
 
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xlsx", , "Sélectionner un fichier.")
If Fichier <> False Then
    Application.ScreenUpdating = False
    Workbooks.Open Fichier
    Sheets("feuil1").Cells.Copy ThisWorkbook.Sheets("H").Range("A1") ' Nom des feuilles à adapter
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
End If
' remise en place du répertoire par défaut
ChDrive "C:"
CurDir RepPardefaut