Fusion de données à partir de plusieurs fichiers

  • Initiateur de la discussion Initiateur de la discussion CrokiX
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

CrokiX

XLDnaute Nouveau
Bonjour,
Je souhaite créer un fichier synthèse qui regroupe tous les infos concernant des fichiers de facturation (tous au meme format et dans un meme dossier).
Je dois récupérer certaines cellules spécifiques de chaque fichiers "facture" vers mon fichier synthèse.

J'ai réussi en copiant et bidouillant une macro du forum a récupérer une cellule de tous mes fichiers "factures" dans un meme dossier vers mon fichier synthèse.
Je voudrai maintenant ajouter plusieurs cellules sources pour les importer dans mon fichier synthèse.

Pour résumer j'arrive à ajouter toutes les cellules W2 d'un dossier comprenant plusieurs fichiers excel vers un fichier synthèse en colonne A et je voudrais ajouter les cellules U5 en colonne B, U7 en colonne C etc..

voici ma macro:

Sub Importer()
Dim SummarySheet As Worksheet
Dim FolderPath As String
Dim NRow As Long
Dim FileName As String
Dim WorkBk As Workbook
Dim SourceRange As Range
Dim DestRange As Range
Set SummarySheet = Worksheets("DONNEES DE BASE")
FolderPath = "J:\PRC\Devis à +-5%\Devis\"
NRow = 2
FileName = Dir(FolderPath & "*.xl*")
Do While FileName <> ""
Set WorkBk = Workbooks.Open(FolderPath & FileName)
Set SourceRange = WorkBk.Worksheets(1).Range("W2")
Set DestRange = SummarySheet.Range("A" & NRow)
Set DestRange = DestRange.Resize(SourceRange.Rows.Count, _
SourceRange.Columns.Count)
DestRange.Value = SourceRange.Value
NRow = NRow + DestRange.Rows.Count
WorkBk.Close savechanges:=False
FileName = Dir()
Loop
SummarySheet.Columns.AutoFit
End Sub


Quelle modification dois-je faire pour ajouter des cellules sources à copier vers d'autres colonnes du fichier synthèse?
Merci,
cdlt,
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
678
Réponses
3
Affichages
588
Retour