Copier/coller tableau selon critères

Résolu/Fermé

NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 - 7 mars 2018 à 18:44
NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 - 9 mars 2018 à 17:18

Bonjour,
Bonjour,

J'aimerais compiler les données de plusieurs fichiers fermés (même format de tableaux)
Fichier 1,
Fichier 2,
Fichier 3,
etc. (nombre variable)
se trouvant dans un même dossier "c:\RC\Pour envoi\"
vers un unique tableau sur le fichier ouvert "C\RC\00_RC_modifié.xlsb".
Chaque fichier ne contient qu'une feuille comportant un nom variable

Les titres de tableaux de B13 à dernière ligne (1) ne devront pas être répétés.
Les données vont de la cellule B14 à la dernière ligne de titre (1), et jusqu'à la dernière donnée en colonne B

Quelqu'un pourrait m'aider s'il vous plait?

A voir également:

Copier/coller tableau selon critères
Tableau croisé dynamique - Guide
Copier coller pdf - Guide
Tableau ascii - Guide
Copier une vidéo youtube - Guide
Tableau word - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22722 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
7 mars 2018 à 20:09

bonsoir, qu'entends-tu par "compiler vers"? peux-tu expliquer cela avec d'autres mots?
je ne comprends pas du tout ce que tu essaies d'expliquer dans tes deux phrases qui mentionnent B13 et B14.
quelle genre d'aide cherches-tu? quelqu’un qui corrige ton travail, qui te donne des pistes, qui fait le travail pour toi?

NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 1
8 mars 2018 à 09:54

Bonsoir yg_be et merci pour ton aide.
J'aimerais ajouter les données de chaque tableau dans 1 tableau unique.
Est-ce plus clair?

yg_be Messages postés 22722 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020
8 mars 2018 à 16:24

quelle genre d'aide cherches-tu? quelqu’un qui corrige ton travail, qui te donne des pistes, qui fait le travail pour toi?

yg_be Messages postés 22722 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > yg_be Messages postés 22722 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024
Modifié le 8 mars 2018 à 16:50

voici une première suggestion, qui fait le tour de tous les fichiers dans ton dossier:

Option Explicit

Sub compiler()
Dim fs As Scripting.FileSystemObject
Dim dossier As Scripting.Folder
Dim fichier As Scripting.File
Dim wb As Workbook
Dim flsource As Worksheet, fldest As Worksheet

Set fldest = ActiveSheet
Set fs = New Scripting.FileSystemObject
Set dossier = fs.GetFolder("c:\RC\Pour envoi")
For Each fichier In dossier.Files
    Set wb = Workbooks.Open(fichier.Path)
    Set flsource = wb.Sheets(1)
    ' le moment est venu de copier les données
    '       de la feuille flsource vers la feuille fldest
    wb.Close
Next fichier
End Sub

reste à ajouter le code pour copier les données.

NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 1
9 mars 2018 à 17:18

Re bonsoir,
Merci pour ton aide.
J'ai trouver ma solution. Je finalise les détail et je partage à la suite dans le cas où ça pourrait aider d'autres personne.
En général, lorsque je demande de l'aide c'est que j'ai tout essayé et que je suis bloquée.
Du coup, je demande la solution avec de préférence l'explication pour pouvoir la reproduire en cas de besoin (et dormir moins bete).
Merci encore.

Discussions similaires

Dessiner avec son clavier et avec des lettres

Comment faire le signe de croix (chrétiens) ?

ou sont les bananes ?

dessin au clavier cannabis

Comment faire le symbole coeur vide/coeur blanc

Discussions similaires

Newsletters