Bonjour à tous ,
Ca faisait longtemps que j'étais pas venu vous appeler au secours , mais je bute sur un petit soucis.
Alors je m'explique , j'aimerai importer dans un fichier unique un onglet défini dans divers fichiers excel , pas spécialement au même endroit sur le réseau et avec des noms différents de fichiers mais ils ont la même mise en forme (L'onglet à importer portera toujours le même noms dans les fichiers)
En scrutant un peu le forum j'ai trouvé cette macro mais elle importe les fichiers sur des onglets différents , j'aimerai que l'import se fasse sur le même onglet .
Voici la macro que j'ai trouvé ici même sur ce forum mais qui serait à modifer ou alors à changer :
Dim fileName As String, nbFiles As Integer, curfile, curWbk As Workbook, FD As FileDialog
Set FD = Application.FileDialog(msoFileDialogFilePicker)
FD.AllowMultiSelect = True 'autoriser la sélection de plusieurs fichier
FD.Filters.Clear 'RAZ des filtres de fichiers
FD.Filters.Add Description:="Excel Files", Extensions:="*.xls;*.xlsx" 'filtrer sur les fichiers excel
FD.Show 'afficher la boite de dialogue
For Each curfile In FD.SelectedItems 'pour chaque fichier séléctionné
Set curWbk = Application.Workbooks.Open(fileName:=curfile) 'ouvrir le classeur
curWbk.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 'copier la feuille 1 après la dernière feuille de ce classeur
curWbk.Close savechanges:=False 'fermer le classeur sans sauvegarder
Next curfile
D'avance merci à tous
Ca faisait longtemps que j'étais pas venu vous appeler au secours , mais je bute sur un petit soucis.
Alors je m'explique , j'aimerai importer dans un fichier unique un onglet défini dans divers fichiers excel , pas spécialement au même endroit sur le réseau et avec des noms différents de fichiers mais ils ont la même mise en forme (L'onglet à importer portera toujours le même noms dans les fichiers)
En scrutant un peu le forum j'ai trouvé cette macro mais elle importe les fichiers sur des onglets différents , j'aimerai que l'import se fasse sur le même onglet .
Voici la macro que j'ai trouvé ici même sur ce forum mais qui serait à modifer ou alors à changer :
Dim fileName As String, nbFiles As Integer, curfile, curWbk As Workbook, FD As FileDialog
Set FD = Application.FileDialog(msoFileDialogFilePicker)
FD.AllowMultiSelect = True 'autoriser la sélection de plusieurs fichier
FD.Filters.Clear 'RAZ des filtres de fichiers
FD.Filters.Add Description:="Excel Files", Extensions:="*.xls;*.xlsx" 'filtrer sur les fichiers excel
FD.Show 'afficher la boite de dialogue
For Each curfile In FD.SelectedItems 'pour chaque fichier séléctionné
Set curWbk = Application.Workbooks.Open(fileName:=curfile) 'ouvrir le classeur
curWbk.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 'copier la feuille 1 après la dernière feuille de ce classeur
curWbk.Close savechanges:=False 'fermer le classeur sans sauvegarder
Next curfile
D'avance merci à tous
Dernière édition: