recuperer des feuilles de differents classeurs

**eden3** · 30/06/2015, 11h26

Bonjour ,
j'ai besoin de votre aide
j'ai une vingtaine de classeur dans un meme fichier avec dans chaque classeur plusieurs feuilles de meme nom ,
j'aimerais créer une macro pour recuperer une feuille specifique avec un certains nom (disons qu'elle s'appel exemple) dans plusieurs de ces classeur mais pas tous pour en faire un nouveau classeur
est ce possible ?
merci pour votre aide

**lionel86500** · 30/06/2015, 11h36

Bonjour,

Oui c'est possible.

Il faut ouvrir les fichiers désirés, récupérer la ou les feuilles voulu et prendre les données afin de les mettre dans une autre feuille.

3 étapes.
1/ Savoir ouvrir un fichier Excel et récupérer le nom des feuilles de celui ci.
2/ Savoir récupérer les données voulues.
3/ Savoir les transférer.

Il existe une multitude d'exemple sur le net pour chacune des étapes

Lionel

**eden3** · 30/06/2015, 11h48

merci lionel , je vais essayer de suivre tes etapes

,
par contre pour la premiere je sais ouvrir un classeur mais je n'arrives pas a ouvrir plusieur classeur d'un meme fichier sans tous les prendre
d'habitude j'utilise ce morceau de code, mais je n'arrive pas a l'adapter a mon problem

Code :

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

1
2
3
4
5
6
7
8
9
Dim Entree As Workbook, Sortie As Workbook
Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xls), *.xsl")
If Nomfichierentree <> False Then
   Set Entree = Workbooks.Open(Nomfichierentree)
End If
NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xls), *.xsl")
If NomFichierSortie <> False Then
   Set Sortie = Workbooks.Open(NomFichierSortie)
End If

**lionel86500** · 30/06/2015, 12h01

Ouvre un classeur Excel traite le et passe au suivant et ainsi de suite

**eden3** · 30/06/2015, 14h17

je suis desole je cherche comment recupere la feuille et la copier dans le nouveau classeur , mais je n'ai pas reussi a trouver comment faire

**lionel86500** · 30/06/2015, 14h21

Voici un exemple de récupération de la liste des feuilles d'un fichier Excel

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Dim Feuille As Worksheet
    Dim Liste As String
 
    Liste = ""
    For Each Feuille In Worksheets
        Liste = Liste & Feuille.Name & vbCrLf
    Next Feuille
 
    MsgBox Liste

**eden3** · 30/06/2015, 15h14

merci beaucoup !

j'ai essaye de faire ton code pour voir ce que ca donne , mais j'ai remarque que les feuille que je voulais extraire était compose de macro , de ce fait des que j'ouvre le classeur la macro se met en marche et son temps d'exécution est assez long
est possible de ne pas prendre en compte ces macros (celles déjà associé a la feuille)

**lionel86500** · 30/06/2015, 15h22

Je ne comprends pas le problème.
quel macro dans quoi

**eden3** · 30/06/2015, 15h28

desole je me suis peut etre mal exprimé ,
j'ai les 20 classeurs je veux pour certains classeur recupere une feuille particuliere avec un nom specifique et mettre le tout dans un nouveau classeur pour finalement addition certaine cellule par exemple adition tout les cellule C7 de toute ces feuilles
seulement ces différents classeur que je recupere , il y'a des macros associé , or moi je ne veux pas que des que j'ouvre une de ses feuilles les "anciennes " macro se mette en route
pcq leur temps d'execution est tro long
mais bn je me rend compte que c'est un peu long , je ne vais pas te deranger plus longtemps je vais les copier a la main se sera plus rapide

par contre est ce que je peux faire une boucle for et une addition de cellule qui ne sont pas dans la meme feuille? ( additioner toute les cellule C7 ensemble les c8 ensemble..)
mercii en tout cas de prendre de ton temps