rassembler des fichier exel dans un 1 seul classeur

[jifa]

bonjour à tous,
je fais appel à vos talents en vba.
apres de multiples recherches, je n'arrive pas à faire fonctionner une macro qui doit etre toute bete.
(je suis novice en vba)😕

voici l'idée :
j'ai 100 fichier excels, tous placés dans le meme dossier
je souhaite rassembler dans un classeur (test.xls) tout les données des 100 fichiers.

la macro devrait :
1- ouvrir le 1er fichier
2- copier tout les cellules
4 recommencer l'opération, en collant les cellules à la suite, pr l'ensemble des fichiers.

j'ai déjà trouver un macro qui répond a mes besoin mai qui fonctionne juste pour copier qu'elle que donner de la cellule A1 et j'aimerai bien la modifier pour qu'elle fonctionne sur tout les les cellules du fichier.
vous trouverai cette macro dans le fichier jointe.
NB: les 100 fichier exel sont dans le meme dossier

merci par avance pr votre aide

bonne continuation à tous

cdt Jifa 🙂

 

[mercant76]

Re : rassembler des fichier exel dans un 1 seul classeur

bonjour,

ton fichier ne nous dit pas quelles cellules récuperer.

donnes nous un exemple de ce que tu veux récupèrer ( tes fichiers sont tous sur le

même modèle ?),

et comment tu le disposes en final

@+

 

[gilbert_RGI]

Re : rassembler des fichier exel dans un 1 seul classeur

Bonjour

modifier les lignes en rouge par ce qui est inscrit ci dessous
voir si la plage vous convient

    While S <> ""
        If S Like [COLOR=red]"*.xls*[/COLOR]" Then
            Set Wk = CreateObject(Rep & "\" & S)
 
            Wk.Worksheets(1).Range[COLOR=red]("A1:G5").[/COLOR]Copy ThisWorkbook.Worksheets(1).Range("A" & l)
            l = l + 5
            If l > ThisWorkbook.Worksheets(1).Cells.Count Then MsgBox "fin de la feuille": Exit Sub
 
            Wk.Close savechanges:=False
            Set Wk = Nothing
        End If

😱

le l = l + 5 doit aussi être modifier suivant le nombre de lignes à copier dans chaque fichier

 

[gilbert_RGI]

Re : rassembler des fichier exel dans un 1 seul classeur

voilà votre fichier modifié

😱

 

[jifa]

Re : rassembler des fichier exel dans un 1 seul classeur

vraiment un grand merci gilbert_RGI 🙂

ton macro fonctionne tres bien et repond a mes besoin mai je voudrer juste qui fonctionne sur tout les colonnes parseque ton macro fonctionne just sur la ligne A
voila un exemple des fichier que je veux les assembles , il ont tous la meme forme.
merci d'avance...

 

[jifa]

Re : rassembler des fichier exel dans un 1 seul classeur

il y a un beug au niveau du macro gilbert_RGI
tu touvera l'imprime ecran au niveau du fichier jointe

cdt jifa

 

[gilbert_RGI]

Re : rassembler des fichier exel dans un 1 seul classeur

"ton macro fonctionne just sur la ligne A"
non elle fonctionne sur toutes les lignes du fichier si en colonne A il se trouve des données
c'est ce que fait cette ligne "lig = Wk.Worksheets(1).Range("A65536").End(xlUp).Row' en indiquant le nombre de lignes dans la feuille
sinon la macro ne fonctionne pas correctement

il n'y a pas de bug chez moi ça fonctionne bien 😕