Exporter des feuilles Excel vers un autre classeur

**Smogling** · 26/09/2007, 12h09

Bonjour,
J'ai fait un petit tour sur le forum mais je n'ai pas trouvé précisemment ce que je cherche.

J'ai un ensemble de fichier excel dans un dossier specifique contenant chacun une feuille "Resultat".
Mon but est de faire une macro qui en ouvrant ce dossier, récupère tous les Sheets resultats des différents classeurs associé au nom de fichier.
Le tout est de mettre ça dans un autre classeur "Résumé".

En fait je bloque pour pouvoir lire un dossier fichier par fichier et recupérer son contenu.

MErci Beaucoup et désolé si cela vous parait trivial.

**Plateforme3** · 26/09/2007, 12h32

Bonjour
Sinon pour trouver tous les fichiers d'un répertoire, tu peux utiliser ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim Nom_Fichier as String
Dim Chemin as String
 
Chemin =ActiveWorkBook.Path
 
Set fs = Application.FileSearch
With fs
    .LookIn = chemin$
    .Filename = "*.xls"
    .SearchSubFolders = False 'ou True si tu veux lire les sous-répertoires
    If .Execute(SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 0 Then
        For i = 1 To .FoundFiles.Count
            Nom_Fichier = .FoundFiles(i)
            ....... 'execution de ta procédure de récupération de données
       Next
   End If
End With

Slts

**Smogling** · 26/09/2007, 13h07

Merci beaucoup, je vais tester la macro en y implémentant ma procédure cet apres mimdi et je vous tiens au courant!
merci encore!

**Smogling** · 26/09/2007, 15h31

Re bonjour,

J'aimerai savoir si c'est possible de récupérer dans Nom_Fichier non pas le chemin + nom mais juste le nom .

Aussi pour ma procédure, est ce qu'il existe une fonction qui importe directement une feuille d'un classeur à un autre ou bien je fais une macro enregistrer copier coller??
Merci!!

**LeForestier** · 26/09/2007, 15h51

Bonjour,
pour copier une feuille dans un autre classeur,
1°) il faut que les 2 classeurs soient ouvert.
2°) Sélectionner la feuille qui doit étre copiée, et appliqué la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("FeuilleAcopier").Copy Before:=Workbooks("ClasseurOuCopier").Sheets(1)

Ce code copie la feuille au début du classeur 'ClasseurOuCopier'
Pour copier en dernier,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    a = Workbooks("ClasseurOuCopier").Worksheets.Count
    Sheets("FeuilleAcopier").Copy After:=Workbooks("ClasseurOuCopier").Sheets(a)

A+
EDIT:
dans la macro de plateforme3 tu a ta réponse...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Nom_Fichier = .Filename

**ouskel'n'or** · 26/09/2007, 16h03

Pour avoir le nom du seul fichier, il me semble que fso propose quelque chose mais là tout de suite...
Une solution de rechange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Nom_Complet = Split(.FoundFiles(i),"\")
Nom_Fich = Nom_Complet(Ubound(Nom_Complet))

Regarde split dans l'aide

**Smogling** · 26/09/2007, 16h05

Oui j'était tenter d'utilisé cela mais comme tu peux le voire dans la boucle je ne sais comment recupérer le nom du fichier sans son chemin d'acces.
Comme il s'agit de plusieurs fichiers dans un dossier je dois faire en sorte de bien distinguer la source et la destination.
Merci!!

Merci, je viens de voir ton message juste après mon denrier post.
j'essaye ça.

Quand je fais un WorkBooks(Nom_Fich).Activate ou WorkBooks(Nom_Complet).Activate , il met met erreur subscript out of range.

En fait j'arrive pas a réutiliser les variables nom de fichier pour bosser dessus apres ( copier coller etc)

**ouskel'n'or** · 26/09/2007, 16h23

Mets-nous ton code, et explique ce que tu veux faire, on ne peut pas répondre en aveugle. Exemple : Veux-tu choisir le fichier à ouvrir ou veux-tu ouvrir tous les fichiers du répertoire ?
A+

**Smogling** · 26/09/2007, 16h34

Alors voila mon code,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub summarize()
 
chemin = ActiveWorkbook.Path
 
Set fs = Application.FileSearch
With fs
    .LookIn = chemin
    .Filename = "*.xls"
    .SearchSubFolders = False 'ou True si tu veux lire les sous-répertoires
    If .Execute(SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 0 Then
        For i = 1 To .FoundFiles.Count
            Nom_Fichier = .FoundFiles(i)
            Nom_Complet = Split(.FoundFiles(i), "\")
            Nom_Fich = Nom_Complet(UBound(Nom_Complet))
            Workbooks(Nom_Complet).Activate
            Sheets("Results").Copy Before:=ThisWorkbook("Result").Sheets(1)
 
           ' ....... 'execution de la procédure de récupération de données
       Next
   End If
End With

Je cherche à prendre toutes les feuilles "Result" de tous les fichiers xls du répertoire et les copier dans un fichier xls unique.
C'est un sorte de résumé de tous les résultats obtenues dans un fichier excel "Summarize".

Merci encore

**Plateforme3** · 26/09/2007, 20h06

Bonsoir
Change

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Nom_Complet = Split(.FoundFiles(i), "\")
Nom_Fich = Nom_Complet(UBound(Nom_Complet))
Workbooks(Nom_Complet).Activate

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open(nom_fichier).Activate

Je connais pas bien l'utilisation de Split, mais dans ton cas, ça renvoie rien du tout...
Et tu peux utiliser le nom complet pour ouvrir ton fichier
Testé et approuvé
Slts

**LeForestier** · 27/09/2007, 11h41

bonjour,
encore une petite modif à faire
après la modif de plateforme3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Workbooks.Open(nom_fichier).Activate
    'Changer la ligne suivante
    Sheets("Results").Copy Before:=Workbooks("Result.xls").Sheets(1)

Avec ces modifs, la routine 'tourne' normalement

Petite explication sur Split

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'supposition.. .FoundFiles(i) contient "C:\Répertoir1\SouRép\Fichier.XLS"
    Nom_Complet = Split(.FoundFiles(i), "\")
'Nom_Complet  est maintenant un tableau avec 4 variables séparées
'Nom_Complet(0) = "C:"
' ....
' 'Nom_Complet(3) = "Fichier.XLS"

A+

**ouskel'n'or** · 27/09/2007, 12h12

Envoyé par Plateforme3

Je connais pas bien l'utilisation de Split, mais dans ton cas, ça renvoie rien du tout...

Renseigne-toi

Envoyé par Plateforme3

Et tu peux utiliser le nom complet pour ouvrir ton fichier
Testé et approuvé

Envoyé par Smogling

J'aimerai savoir si c'est possible de récupérer dans Nom_Fichier non pas le chemin + nom mais juste le nom .

Je répondais à cette question

Envoyé par LeForestier

Petite explication sur Split
'Nom_Complet(3) = "Fichier.XLS"

Juste une petite correction : Si tu ignores le nombre de répertoires en cascade, préfère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomFich = Nom_Complet(Ubound(Nom_Complet)) '=> "Fichier.XLS"

qui donnera le dernier item du tableau Nom_Complet

**Smogling** · 27/09/2007, 13h24

MErci beaucoup!
votre code marche très bien.
Je vais juste l'adapter pour qu'il fasse une copie par valeur et non pas par formule.

merci encore!

**Plateforme3** · 27/09/2007, 18h02

Renseigne-toi

J'y manquerai pas...

Je répondais à cette question

Toujours aussi observateur..

Slts

PS: Comment on devient chef? Chef!

**Smogling** · 27/09/2007, 18h12

Re bonjour,

une dernière petite question,

comment récupérer le nom de la feuille qui a été créee juste après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("FeuilleAcopier").Copy Before:=Workbooks("ClasseurOuCopier").Sheets(1)

Merci

**ouskel'n'or** · 27/09/2007, 18h16

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomFeuil = Workbooks("ClasseurOuCopier").Sheets(2).name

pas testé... mais ça devrait être bon

**Smogling** · 28/09/2007, 13h12

Bonjour

Finalement tout marche parfaitement de A à Z , et gràce a vous. merci encore.

Avant de mettre [Resolu] je voulais juste savoir si c'était possible lors de l'ouverture et fermeture d'un classeur d'éviter les (UPDATE/ dont update) et ala fermeture les question sur save Clipboard. (j'utilise déjà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part