Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JièL Goubert
Bonjoir(c) jeff
Si je peux me permettre, pourquoi à tu un tel besoin ? Les classeures d'environnement ne pourrait pas faire l'affaire ?
Voire la consolidation... sinon... Ouvrir 2 classeurs, clic droit sur une feuille, Sélectionner tout, clic droit Déplacer ou copier, choisir le classeur... Mais bon, 29 fois ça me semble beaucoup quand même
-- La FAQ Outlook est la : http://faq.outlook.free.fr JièL / Jean-Louis GOUBERT Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Le 31/08/2004 17:21 vous avez écrit ceci :
Bonjour, Comment concaténer une trentaine de fichiers excel pour n'en faire qu'un seul ? Merci de votre aide Jeff
Bonjoir(c) jeff
Si je peux me permettre, pourquoi à tu un tel besoin ? Les classeures
d'environnement ne pourrait pas faire l'affaire ?
Voire la consolidation... sinon... Ouvrir 2 classeurs, clic droit sur une
feuille, Sélectionner tout, clic droit Déplacer ou copier, choisir le
classeur...
Mais bon, 29 fois ça me semble beaucoup quand même
--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Le 31/08/2004 17:21 vous avez écrit ceci :
Bonjour,
Comment concaténer une trentaine de fichiers excel pour n'en faire qu'un
seul ?
Merci de votre aide
Jeff
Si je peux me permettre, pourquoi à tu un tel besoin ? Les classeures d'environnement ne pourrait pas faire l'affaire ?
Voire la consolidation... sinon... Ouvrir 2 classeurs, clic droit sur une feuille, Sélectionner tout, clic droit Déplacer ou copier, choisir le classeur... Mais bon, 29 fois ça me semble beaucoup quand même
-- La FAQ Outlook est la : http://faq.outlook.free.fr JièL / Jean-Louis GOUBERT Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Le 31/08/2004 17:21 vous avez écrit ceci :
Bonjour, Comment concaténer une trentaine de fichiers excel pour n'en faire qu'un seul ? Merci de votre aide Jeff
Nicolas B.
Salut jeff,
Si tu veux copier toutes les feuilles des classeurs contenus dans le dossier D:Mes documents dans le classeur actif, colle et exécute cette macro :
Sub Fusionner() Application.ScreenUpdating = False
Dim wbFus As Workbook Set wbFus = ActiveWorkbook Dim sh As Worksheet
With Application.FileSearch .NewSearch .FileType = msoFileTypeExcelWorkbooks .LookIn = "D:Mes documents" .Execute For i = 1 To .FoundFiles.Count With Workbooks.Open(.FoundFiles(i)) For Each sh In .Sheets sh.Copy After:=wbFus.Sheets(wbFus.Sheets.Count) Next .Close End With Next End With
Application.ScreenUpdating = True End Sub
A+ Nicolas B.
jeff wrote:
Bonjour, Comment concaténer une trentaine de fichiers excel pour n'en faire qu'un seul ? Merci de votre aide Jeff
Salut jeff,
Si tu veux copier toutes les feuilles des classeurs contenus dans le
dossier D:Mes documents dans le classeur actif, colle et exécute cette
macro :
Sub Fusionner()
Application.ScreenUpdating = False
Dim wbFus As Workbook
Set wbFus = ActiveWorkbook
Dim sh As Worksheet
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = "D:Mes documents"
.Execute
For i = 1 To .FoundFiles.Count
With Workbooks.Open(.FoundFiles(i))
For Each sh In .Sheets
sh.Copy After:=wbFus.Sheets(wbFus.Sheets.Count)
Next
.Close
End With
Next
End With
Application.ScreenUpdating = True
End Sub
A+
Nicolas B.
jeff wrote:
Bonjour,
Comment concaténer une trentaine de fichiers excel pour n'en faire qu'un
seul ?
Merci de votre aide
Jeff
Si tu veux copier toutes les feuilles des classeurs contenus dans le dossier D:Mes documents dans le classeur actif, colle et exécute cette macro :
Sub Fusionner() Application.ScreenUpdating = False
Dim wbFus As Workbook Set wbFus = ActiveWorkbook Dim sh As Worksheet
With Application.FileSearch .NewSearch .FileType = msoFileTypeExcelWorkbooks .LookIn = "D:Mes documents" .Execute For i = 1 To .FoundFiles.Count With Workbooks.Open(.FoundFiles(i)) For Each sh In .Sheets sh.Copy After:=wbFus.Sheets(wbFus.Sheets.Count) Next .Close End With Next End With
Application.ScreenUpdating = True End Sub
A+ Nicolas B.
jeff wrote:
Bonjour, Comment concaténer une trentaine de fichiers excel pour n'en faire qu'un seul ? Merci de votre aide Jeff
jeff
Merci,
je vais essayer la formule..... Quoique je me pose une autre question est ce qu'excel pourra gérer en 1 seul fichier, 38 fichiers qui ont une moyenne de 3 à 4000 lignes sur 3 colonnes !!! cordialement jeff
"Nicolas B." a écrit dans le message de news:%
Salut jeff,
Si tu veux copier toutes les feuilles des classeurs contenus dans le dossier D:Mes documents dans le classeur actif, colle et exécute cette macro :
Sub Fusionner() Application.ScreenUpdating = False
Dim wbFus As Workbook Set wbFus = ActiveWorkbook Dim sh As Worksheet
With Application.FileSearch .NewSearch .FileType = msoFileTypeExcelWorkbooks .LookIn = "D:Mes documents" .Execute For i = 1 To .FoundFiles.Count With Workbooks.Open(.FoundFiles(i)) For Each sh In .Sheets sh.Copy After:=wbFus.Sheets(wbFus.Sheets.Count) Next .Close End With Next End With
Application.ScreenUpdating = True End Sub
A+ Nicolas B.
jeff wrote:
Bonjour, Comment concaténer une trentaine de fichiers excel pour n'en faire qu'un seul ? Merci de votre aide Jeff
Merci,
je vais essayer la formule.....
Quoique je me pose une autre question est ce qu'excel pourra gérer en 1 seul
fichier, 38 fichiers qui ont une moyenne de 3 à 4000 lignes sur 3 colonnes
!!!
cordialement
jeff
"Nicolas B." <nicolas.bruot@adresse.bidon.invalid> a écrit dans le message
de news:%23OeJsG3jEHA.3476@tk2msftngp13.phx.gbl...
Salut jeff,
Si tu veux copier toutes les feuilles des classeurs contenus dans le
dossier D:Mes documents dans le classeur actif, colle et exécute cette
macro :
Sub Fusionner()
Application.ScreenUpdating = False
Dim wbFus As Workbook
Set wbFus = ActiveWorkbook
Dim sh As Worksheet
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = "D:Mes documents"
.Execute
For i = 1 To .FoundFiles.Count
With Workbooks.Open(.FoundFiles(i))
For Each sh In .Sheets
sh.Copy After:=wbFus.Sheets(wbFus.Sheets.Count)
Next
.Close
End With
Next
End With
Application.ScreenUpdating = True
End Sub
A+
Nicolas B.
jeff wrote:
Bonjour,
Comment concaténer une trentaine de fichiers excel pour n'en faire qu'un
seul ?
Merci de votre aide
Jeff
je vais essayer la formule..... Quoique je me pose une autre question est ce qu'excel pourra gérer en 1 seul fichier, 38 fichiers qui ont une moyenne de 3 à 4000 lignes sur 3 colonnes !!! cordialement jeff
"Nicolas B." a écrit dans le message de news:%
Salut jeff,
Si tu veux copier toutes les feuilles des classeurs contenus dans le dossier D:Mes documents dans le classeur actif, colle et exécute cette macro :
Sub Fusionner() Application.ScreenUpdating = False
Dim wbFus As Workbook Set wbFus = ActiveWorkbook Dim sh As Worksheet
With Application.FileSearch .NewSearch .FileType = msoFileTypeExcelWorkbooks .LookIn = "D:Mes documents" .Execute For i = 1 To .FoundFiles.Count With Workbooks.Open(.FoundFiles(i)) For Each sh In .Sheets sh.Copy After:=wbFus.Sheets(wbFus.Sheets.Count) Next .Close End With Next End With
Application.ScreenUpdating = True End Sub
A+ Nicolas B.
jeff wrote:
Bonjour, Comment concaténer une trentaine de fichiers excel pour n'en faire qu'un seul ? Merci de votre aide Jeff
Nicolas B.
Le fichier sera un peu gros, peut-être long à ouvrir, mais 38 feuilles, ça reste raisonnable (le nombre de feuilles maxi dépend de la mémoire disponible et il est généralement de plusieurs milliers).
A+ Nicolas B.
jeff wrote:
Merci,
je vais essayer la formule..... Quoique je me pose une autre question est ce qu'excel pourra gérer en 1 seul fichier, 38 fichiers qui ont une moyenne de 3 à 4000 lignes sur 3 colonnes !!! cordialement jeff
Le fichier sera un peu gros, peut-être long à ouvrir, mais 38 feuilles,
ça reste raisonnable (le nombre de feuilles maxi dépend de la mémoire
disponible et il est généralement de plusieurs milliers).
A+
Nicolas B.
jeff wrote:
Merci,
je vais essayer la formule.....
Quoique je me pose une autre question est ce qu'excel pourra gérer en 1 seul
fichier, 38 fichiers qui ont une moyenne de 3 à 4000 lignes sur 3 colonnes
!!!
cordialement
jeff
Le fichier sera un peu gros, peut-être long à ouvrir, mais 38 feuilles, ça reste raisonnable (le nombre de feuilles maxi dépend de la mémoire disponible et il est généralement de plusieurs milliers).
A+ Nicolas B.
jeff wrote:
Merci,
je vais essayer la formule..... Quoique je me pose une autre question est ce qu'excel pourra gérer en 1 seul fichier, 38 fichiers qui ont une moyenne de 3 à 4000 lignes sur 3 colonnes !!! cordialement jeff
