Discussion :

[eden3]

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]

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]

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]

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

[eden3]

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]

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