Insertion Feuilles Excel d'un dossier dans Ficher Excel
Bonjour à tous,
Je possède un document Master, avec 5 onglets de data qui nourrissent les autres onglets du file.
Les Onglets Data sont Alpha/Beta/Gamma/Delta/Epsilon
Ces onglets data sont mis a jour à la mano chaque matin par des fichiers que j'enregistre dans un dossier chemin XX\XX.
Les fichers de data sont stockés ainsi (date du jour) :
1. AAA300120
2. BBB300120
3. CCC300120
4. DDD300120
5. EEE300120
Demain ils s'appeleront AAA310120, BBB310120, etc etc.
Existe-il un code via VBA pour faire tourner une macro depuis mon document master pour aller chercher et identifier les bons files puis les copier coller dans chaque onglets?
Merci beaucoup de votre aide !
Je me permets un petit up !
Est-ce que ce n'est pas faisable?
Je me permets un petit up !
Est-ce que ce n'est pas faisable?
Si tu regardes la chartres du forum tu y verras que sans fichier exemple tu n'auras que peu de réponses.
Dans l'absolu on peut répondre oui à ta question.
Le comment sans info précises c'est autres chose.
exemple : Les fichers de data sont stockés ainsi....... ok mais où dans le même répertoire ? sur un serveur ?
Les fichiers Data sont sous quel format xls ? cvs ? txt ? ....
Un exemple du fichier Master et de l'un des fichiers data serait plus que nécessaire.
Bonjour Xmenpl et merci de ta réponse
Les documents qui devront venir se copier dans le Master seront des XLSX.
Ils seront stockés dans un dossier sur reseau S:\RM\Archive
Il y aura un fichier par jour sous ce format (exemple avec ceux du jour) :
- PricingMVEG3-202002180015.xlsx
- DailyDataMVE-202002180015.xlsx
- DailyDataSegMVE-202002180015.xlsx
Chaque onglets dans le master porte le nom du fichier (en gras ci dessus)
La macro devra tenir compte de l'import date dans l'onglet Setup afin de sélectionner les fichiers.
Les dates sont dans le nom du fichier source sous la forme YYYMMDD0015
Pour les 2 onglets DailyDataMVE et DailyDataSegMVE, un import copié coller all cells sera necessaire
Pour l'onglet PricingMVEG3 :
- Le fichier source à copier ira de A2:N2 jusqu'en bas
- Dans le Master, onglet Pricing, il faudra coller en Cellule A XXX (XXX étant la valeur C6 dans Onglet Setup)
En PJ le Master File.
Un grand merci pour votre aide
Bonjour,
Ci- après les variables à utiliser vu le nom de tes fichiers xlsx
(je te laisse faire les macros pour copier coller les infos une fois fichier ouvert.)
Cette macro utilise la date du jour (celle du pc ) mais il est possible d'adapter à n'importe quelle date que tu souhaiteras
si elle se trouve dans une cellule exemple date en A1.
il suffit d'ajouter une varaible
Dim MADATE as date
MADATE=range("A1")value
puis remplacer dans le code suivant "Date" dans les lignes jours, mois, année par "MADATE"
Sub PARAMFICHIERS()
Dim Fichier1 As String
Dim Fichier2 As String
Dim Fichier3 As String
Dim chemin As String
Dim jours As String
Dim mois As String
Dim annee As String
jours = Format(Day(Date), "00")
mois = Format(Month(Date), "00")
annee = Year(Date)
Fichier1 = "PricingMVEG3-" & annee & mois & jours & "0015.xlsx"
Fichier2 = "DailyDataMVE-" & annee & mois & jours & "0015.xlsx"
Fichier3 = "DailyDataSegMVE-" & annee & mois & jours & "0015.xlsx"
chemin = "c:\windows\temps\" 'chemin à renseigner avec les bonnes infos
Workbooks.Open Filename:=chemin & Fichier1
'Ajouter macro 1 copie des données fichier pricing
Workbooks.Open Filename:=chemin & Fichier2
'Ajouter macro 2 copie des données fichier DailyDataMVE
Workbooks.Open Filename:=chemin & Fichier3
'Ajouter macro 2 copie des données fichier DailyDataMVE
End SubBonjour,
J'ai essayé d'adapter... marche pas encore.
Par exemple le premier fichier d'import Pricing a 2 onglets , je veux prendre que le premier et le copier dans son intégralité
L'onglet s'appelle Pricing (BAR By Day) Report.
J'utilise un brain de code pour laisser le fichier fermé mais ca marche pas, je fais mal a quel endroit?
Voici la macro actuelle
Sub ImportDaily()
Dim Fichier1 As String
Dim Fichier2 As String
Dim Fichier3 As String
Dim chemin As String
Dim MADATE As Date
Dim jours As String
Dim mois As String
Dim annee As String
MADATE = Sheets("Setup").Range("F2").Value
jours = Format(Day(MADATE), "00")
mois = Format(Month(MADATE), "00")
annee = Year(MADATE)
Fichier1 = "PricingMVEG3-" & annee & mois & jours & "0015.xlsx"
Fichier2 = "DailyDataMVE-" & annee & mois & jours & "0015.xlsx"
Fichier3 = "DailyDataSegMVE-" & annee & mois & jours & "0015.xlsx"
chemin = "S:\Sales & Marketing\Revenue & Yield\SSR\Archive\"
Workbooks.Open Filename:=chemin & Fichier1
Set closedBook = Workbooks.Open("S:\Sales & Marketing\Revenue & Yield\SSR\Archive\" & Fichier1)
closedBook.Sheets("Sheet1").Copy Before:=ThisWorkbook.Sheets(1)
closedBook.Close SaveChanges:=False
Sheets("Pricing MVE G3").Select
Cells.Select
ActiveSheet.Paste
Bonjour,
Pour tes macros de copié collé , utilises l'enregistreur de macro tu auras les lignes de code que tu as besoins.
Nota il faut penser à fermer le fichier après "le copié" et avant le collé.
puisqu'on a utilisé la commande : Workbooks.Open Filename:=chemin & Fichier1