Import de données à partir d'un fichier à nom variable

Version imprimable

Bonjour,

J'ai une macro qui permet d'ouvrir un fichier .XlS, dans lequel il n'y a qu'une feuille contenant des données dans un nombre de colonnes fixe mais dont le nombre de lignes augmente tous les jours.
Ensuite la macro sélectionne toutes les données depuis la ligne 2.
Puis elle les colle dans mon fichier de destination (Suivi des Commandes V2) dans une feuille dédiée (par la même occasion elle met la date de modification et fige cette date.
Elle fonctionne bien pour un fichier source dont le nom ne change pas.

Mon problème est que le nom du fichier source varie tous les jours puisque il contient la date de génération du dit fichier.
Exemple : export-commandes-20180418 (exportation du 18 avril 2018).
Comment puis-je automatiser le nom du fichier dans ma macro ?
Par la même occasion, comment puis-je le fermer ?

Et question subsidiaire, est-il possible de faire ce que fait la macro sans avoir à ouvrir et fermer le fichier source ?

Merci pour votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub Import_Données() 'Ouvre fichier Export, sélectionne tout et importe sur feuille de destination en figeant la date de l'importation '22/04 fonctionne pour fichier à nom unique Dim AireACopier As Range 'ouvre le fichier et sélectionne tout Workbooks.Open Filename:="C:\Users\Fam\Desktop\Test import 18 04 2018 .xlsx" With Sheets("Pour Import") Prem = Range("A2").Address Dern = Range("H" & Range("B65536").End(xlUp)(1).Row).Address 'sélectionne colonnes A à H en fonction de la dernière cellule de B Set AireACopier = .Range(Prem, Dern) End With 'ActiveWorkbook.Close 'Workbooks.Close Filename:="C:\Users\Fam\Desktop\Test import 18 04 2018 .xlsx" Workbooks.Open Filename:="C:\Users\Fam\Desktop\Suivi des Commandes V2.xlsm" AireACopier.Copy Destination:=Workbooks("Suivi des Commandes V2.xlsm").Sheets("Import Base").Range("A2") 'colle les données Set AireACopier = Nothing Sheets("Import Base").Select Range("D1").Select ActiveCell.FormulaR1C1 = "=TODAY()" 'date du jour de l'importation Range("D1").Value = Range("D1").Value 'vérouille la date End Sub

22/04/2018, 19h07
unparia

Bonjour
Utilise par exemple et entre autres la fonction dir pour parcourir en boucle tous les fichiers du dossier concerné dont le nom serait

Code:

Like "export-commandes-########"

pour chaque fichier "retenu", ne garde, chaque fois, que celui dont la chaîne est supérieure à la précédente retenue. Ce fichier est le plus récent.
23/04/2018, 10h03
Phil333250

Bonjour Unparia,

Merci pour la piste mais, le fichier source est supprimé après avoir copier/coller les données.

Philippe
23/04/2018, 11h23
unparia

Cela ne change rien.
Même si un seul fichier restant.
Toujours vrai puisqu'il sera le seul et donc également (forcément) le plus récent.

Re,

J'ai fini par trouver la solution à mon problème :

Voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Import_Données()
'Ouvre le fichier dont le chemin est renseigné cellule L3 dans feuille Accueil et dont le nom est cellule L1 même feuille.
'La cellule L1 concaténe ="Test-import-"&TEXTE(K2;"0000")&TEXTE(L2;"00")&TEXTE(M2;"00")&".xlsx"
'où K2, L2 et M2 sont les expressions numériques de Année, Mois et Jour de la date saisie en J2
'sélectionne tout et importe sur feuille de destination en figeant la date de l'importation
 
Dim AireACopier As Range 'ouvre le fichier et sélectionne tout
Dim Chemin_Fichier_Export
Dim Nom_Fichier_Export
Dim Adresse_Fichier_Export
 
    Chemin_Fichier_Export = ThisWorkbook.Worksheets("accueil").Range("L3").Value
    Nom_Fichier_Export = ThisWorkbook.Worksheets("accueil").Range("L1").Value
    Adresse_Fichier_Export = Chemin_Fichier_Export & "\" & Nom_Fichier_Export
    Debug.Print Adresse_Fichier_Export
    Workbooks.Open (Adresse_Fichier_Export)
 
    With Sheets("Pour Import")
    Prem = Range("A2").Address
    Dern = Range("H" & Range("B65536").End(xlUp)(1).Row).Address 'sélectionne colonnes A à H en fonction de la dernière cellule de B
    Set AireACopier = .Range(Prem, Dern)
    End With
 
    Workbooks.Open Filename:="C:\Users\Fam\Desktop\Suivi des Commandes V3.xlsm"
    AireACopier.Copy Destination:=Sheets("Import Base").Range("A2") 'colle les données
    Set AireACopier = Nothing
 
    Sheets("Import Base").Select
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=TODAY()" 'date du jour de l'importation
    Range("D1").Value = Range("D1").Value 'vérouille la date
 
    'ThisWorkbook.Close True 'fonctionne mais ferme le fichier suivi des commandes
    'Workbook.Close (Adresse_Fichier_Export) 'Ne fonctionne pas
End Sub

Seule la fermeture du fichier source ne fonctionne pas.

Si vous avez une solution je suis preneur.

Encore merci

23/04/2018, 16h08
Phil333250

re,

C'est tout bon, j'ai trouvé la réponse à ma question.

Merci