Vba - Import de feuilles de calcul
Rédigé par Xpress
Aucun commentaire
Classé dans : Vba
'Définition du fichier directory = "U:dossier" fileName = Dir(directory & "*.xl??") 'On récupère toutes les worksheets du fichier excel ciblé Do While fileName <> "" Workbooks.Open (directory & fileName) For Each sheet In Workbooks(fileName).Worksheets total = Workbooks("fichier.xlsm").Worksheets.Count Workbooks(fileName).Worksheets(sheet.Name).Copy _ after:=Workbooks("fichier.xlsm").Worksheets(total) Next sheet Workbooks(fileName).Close fileName = Dir() Loop Puis en fonction de ce que l'on souhaite, on peut jouer avec une feuille sur son indice, exemple pour la dernière : 'On récupère le numéro du dernier worksheet arrivé. Dim LastSheetName LastSheetName = Sheets(Sheets.Count).Name