Dim fileName As String, nbFiles As Integer, curfile, curWbk As Workbook, FD As FileDialog
Set FD = Application.FileDialog(msoFileDialogFilePicker)
FD.AllowMultiSelect = True [COLOR="Green"]'autoriser la sélection de plusieurs fichier[/COLOR]
FD.Filters.Clear [COLOR="Green"]'RAZ des filtres de fichiers[/COLOR]
FD.Filters.Add Description:="Excel Files", Extensions:="*.xls;*.xlsx" [COLOR="Green"]'filtrer sur les fichiers excel[/COLOR]
FD.Show [COLOR="Green"]'afficher la boite de dialogue[/COLOR]
For Each curfile In FD.SelectedItems [COLOR="Green"]'pour chaque fichier séléctionné[/COLOR]
Set curWbk = Application.Workbooks.Open(fileName:=curfile) [COLOR="Green"]'ouvrir le classeur[/COLOR]
curWbk.Sheets([B][COLOR="Red"]1[/COLOR][/B]).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) [COLOR="Green"]'copier la feuille 1 après la dernière feuille de ce classeur[/COLOR]
curWbk.Close savechanges:=False [COLOR="Green"]'fermer le classeur sans sauvegarder[/COLOR]
Next curfile