Bonjour a tous,
Je cherche actuellement a batir une macro dans un fichier source me permettant de parcourir un dossier puis puis d'y selectionner un ou plusieurs fichiers. Le but etant ensuite d'y copier des donnees et de les coller dans le fichier source.
Vous trouverez ci-joints:
- le fichier source ou je peux choisir la segmentation et le mois ("Output Macro") . Ce fichier servirait aussi a y coller les donnees.
- trois fichiers d'ou il faut extraire les donnees ("HXXXX"; "HYYYY"; "HZZZZ"), selon la segmentation et le mois choisi.
Idealement, je creerai trois boutons : Le 1er pour parcourir le dossier. Le 2eme pour y importer (ou copier) les donnees. Le 3eme pour exporter (ou coller) les donnees dans le fichier source "Output Macro".
Le debut de la Macro ressemblerait a cela, pour parcourir les fichiers, amais je vous avoue etre encore un debutant et j'ai du mal a voir comment je pourrai avancer dessus :
Option Explicit
Const SearchFolder As String = "C:\Users\JTALBOT\Desktop\MACRO for E-reporting\" 'Dossier ou trouver les fichiers'
Const FeuilleSource As String = "DB FCST" ' Feuille ou se trouve les donnees a copier'
Const FeuilleDestination As String = "Sheet1" ' Feuille ou les resultats apparaitront.'
Sub Browser()
Dim hotel_code As Variant
Dim NomFichier As String
Dim I As Integer
Worksheets("Sheet1").Range("C1:BZ60000").Delete
hotel_code = Application.GetOpenFilename(Title:="Select your E-reporting file", MultiSelect:=True)
If TypeName(hotel_code) = "Boolean" Then
Exit Sub
Else
For I = 1 To UBound(hotel_code)
NomFichier = Mid(hotel_code(I), InStrRev(hotel_code(I), "\") + 1)
Call CopyFileData(NomFichier, ThisWorkbook)
Next
End If
Application.ScreenUpdating = True
MsgBox ("Here we go!!")
End Sub
En vous remerciant d'avance pour votre aide.
Cordialement,
Je cherche actuellement a batir une macro dans un fichier source me permettant de parcourir un dossier puis puis d'y selectionner un ou plusieurs fichiers. Le but etant ensuite d'y copier des donnees et de les coller dans le fichier source.
Vous trouverez ci-joints:
- le fichier source ou je peux choisir la segmentation et le mois ("Output Macro") . Ce fichier servirait aussi a y coller les donnees.
- trois fichiers d'ou il faut extraire les donnees ("HXXXX"; "HYYYY"; "HZZZZ"), selon la segmentation et le mois choisi.
Idealement, je creerai trois boutons : Le 1er pour parcourir le dossier. Le 2eme pour y importer (ou copier) les donnees. Le 3eme pour exporter (ou coller) les donnees dans le fichier source "Output Macro".
Le debut de la Macro ressemblerait a cela, pour parcourir les fichiers, amais je vous avoue etre encore un debutant et j'ai du mal a voir comment je pourrai avancer dessus :
Option Explicit
Const SearchFolder As String = "C:\Users\JTALBOT\Desktop\MACRO for E-reporting\" 'Dossier ou trouver les fichiers'
Const FeuilleSource As String = "DB FCST" ' Feuille ou se trouve les donnees a copier'
Const FeuilleDestination As String = "Sheet1" ' Feuille ou les resultats apparaitront.'
Sub Browser()
Dim hotel_code As Variant
Dim NomFichier As String
Dim I As Integer
Worksheets("Sheet1").Range("C1:BZ60000").Delete
hotel_code = Application.GetOpenFilename(Title:="Select your E-reporting file", MultiSelect:=True)
If TypeName(hotel_code) = "Boolean" Then
Exit Sub
Else
For I = 1 To UBound(hotel_code)
NomFichier = Mid(hotel_code(I), InStrRev(hotel_code(I), "\") + 1)
Call CopyFileData(NomFichier, ThisWorkbook)
Next
End If
Application.ScreenUpdating = True
MsgBox ("Here we go!!")
End Sub
En vous remerciant d'avance pour votre aide.
Cordialement,
