Bonjour le forum,
J'utilise la macro suivante (prise sur le site de Mr Boisgontier) pour rappatrier les onglets "Base" de différents classeur dans un même classeur.
Sub Rappatrier_Onglets_Click()
Dim fileName As String, nbFiles As Integer, curfile, curWbk As Workbook, FD As FileDialog
Set FD = Application.FileDialog(msoFileDialogFilePicker)
FD.AllowMultiSelect = True
FD.Filters.Clear
FD.Filters.Add Description:="Excel Files", Extensions:="*.xls;*.xlsx"
FD.Show
For Each curfile In FD.SelectedItems
Set curWbk = Application.Workbooks.Open(fileName:=curfile)
curWbk.Sheets("Base").Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
curWbk.Close savechanges:=False
Next curfile
End Sub
J'aimerais que lorsque les onglets sont copiés dans le nouveau classeur, ils soient renommés avec le nom de leur fichier d'origine.
Savez-vous qu'est-ce que je dois ajouter ?
Merci d'avance.
FAUB