Aide : fusion de pages dans plusieurs fichiers en 1 fichier

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
jeremyMer
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 27 mars 2014
Version d'Excel : 2010

Message par jeremyMer » 27 mars 2014, 00:23

Bonjour à tous,
Aprés plusieurs recherche sur les forums, je poste ma demande d'aide ici..
Je possède de nombreux fichiers excel bâtis sur le même schéma : pages de garde sur les onglets 1 et 2 , et tableau sur les onglets 3 et 4.
Je souhaite regrouper toutes les données présentes dans les tableaux sur 1 seule et unique page sur 1 fichier excel.
J'ai compris que je devais forcémment passer par une macro..
Comment peut t'on faire pour éviter à la macro de rechercher dans les 2 premiers onglets ?
Est il possible de spécifier les lignes que je souhaite copier (en effet je n'ai pas besoin des 6 premièrer lignes qui correspondent aux titres des tableaux).

Pour être plus clair je vous joint un exemple de fichier (je souhaite regrouper les données présentes sur les onglets 2 et 3 (je posséde plusieurs fichiers de ce type à fusionner).
TEST_312128_C-.xls
(124.5 Kio) Téléchargé 20 fois
Est ce que l'un d'entre vous aurait un modèle de macro que je pourrais utiliser et qui pourrais correspondre??

Merci Beaucoup de votre aide
jérémy
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 4
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 27 mars 2014, 01:55

Bonjour

:bv:

:bv3:

Tous les fichiers à traiter ainsi que celui-ci dans le même répertoire
jeremyMer Récupèration V001.xls
(39.5 Kio) Téléchargé 39 fois
Image
j
jeremyMer
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 27 mars 2014
Version d'Excel : 2010

Message par jeremyMer » 27 mars 2014, 07:12

Formidable,
Merci Banzai64 , le fichier marche parfaitement.

J'ai une petite question complémentaire...
Si je souhaite ajouter à la fin de chaque ligne le nom initial du fichier (afin de retrouver un historique..), je peux le faire dans cette ligne de programme ?

If .Range("A7") <> "" Then
.Range("A7:O" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Ws.Range("A" & Ligne)
Ligne = Ws.Range("A" & Rows.Count).End(xlUp).Row + 1

Faut il juste que j'utilise la commande Thiswoorkbook.name ? A quel endroit puis je le mettre dans la ligne?

Encore merci beaucoup

Jérémy
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 4
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 27 mars 2014, 10:30

Bonjour

A tester
jeremyMer Récupèration V002.xls
(41.5 Kio) Téléchargé 19 fois
Image
j
jeremyMer
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 27 mars 2014
Version d'Excel : 2010

Message par jeremyMer » 27 mars 2014, 10:51

C'est parfait !

Merci Beaucoup de votre aide!

Bonne journée

Jérémy

:btres:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message