Importation de données avec des sources différentes changeant chaque Mois

Bonjour le forum,

J’espère que le week-end se passe bien pour tous,

Je fais face à une difficulté pour importer des données dans une feuille Excel (la Feuille ‘’Données’’) du fichier TDB

Nous sommes dans le mois (201906) et les données que je dois importer viennent de deux fichiers mensuels différents :

Source1_201906

Source2_201906

Je voudrais écrire mon code VBA de telle sorte que dans le mois (201907) mon code puisse prendre automatiquement ses données dans les nouveaux fichiers

Source1_201907

Source2_201907

Je précise que les fichiers Source1_201906 et Source1_201907 sont dans le même dossier et Source1_201906 et Source1_201907 sont dans un autre dossier.

9tdb.xlsm (30.95 Ko)

Bonjour,

Ou es ton code d'import des données pour commencer !?

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour BrunoM45, gmb, le forum,

Merci pour vos réactions.

Merci à toi gmb.

j'ai trouvé une solution que je voudrais partager.

Etant donné que les fichiers ont les mêmes noms de base et que a différence entre les noms des fichiers se base sur la date ou la période, dans mon code, j'ai indexé une cellule dans laquelle j'écris la date (Exemple: 201906).

Ensuite dans le code d'importation, je compose le nom du fichier avec la date + L'extension.

voici le code:

Chemin1 = "C:\Users\hh\Downloads\Exercice importation\Dossier 1\Fichier 1"

Chemin2 = "C:\Users\hh\Downloads\Exercice importation\Dossier 2\Fichier 2"

Chemin3 = "C:\Users\hh\Downloads\Exercice importation\Dossier 3\Fichier 3"

fichier_1 = Chemin1 & Worksheets("Périmètre").Range("G2") & ".xlsx"

fichier_2 = Chemin2 & Worksheets("Périmètre").Range("G2") & ".xlsx"

fichier_3 = Chemin3 & Worksheets("Périmètre").Range("G2") & ".xlsx"

Dans la cellule G2 je saisie à chaque fois la date: exemple: G2=201906

Merci à tous

Rechercher des sujets similaires à "importation donnees sources differentes changeant chaque mois"