XL 2016 VBA Excel fusionner plusieurs fichiers à partir du nom d'onglet

Phil_2059 · 10 Avril 2021

Bonjour,
J'ai trouvé une "macro qui irait récupérer les données se trouvant dans l'onglet BASE GLOBALE de tous mes fichiers XLS pour les intégrer dans un nouveau classeur les uns à la suite des autres"
‌https://www.excel-downloads.com/thr...urs-fichiers-a-partir-du-nom-d-onglet.227711/
qui fonctionne correctement.
Y'a t'il la possibilité de l'adapter pour qu'elle ne travaille que sur les colonne de A à U ?
Ce ne sont pas être très difficile, mais je n'arrive pas ...
Merci d'avance de votre aide,
Phil.

Hasco · 11 Avril 2021

Bonjour,

Avec excel 2016 vous pouvez utiliser Power Query, qui est fait pour ce genre de choses.

Power query : combiner plusieurs fichiers à partir d'un dossier

Cordialement

job75 · 11 Avril 2021

Bonjour Phil_2059, Roblochon, le forum,

Si les macros de la discussion mise en lien vous conviennent c'est simple, remplacez l'instruction :

VB:

F.Rows(ligdeb).Resize(h).Copy

par :

VB:

F.Rows(ligdeb).Resize(h, 21).Copy

puisque vous ne voulez copier que les colonnes A à U.

A+

job75 · 11 Avril 2021

Et modifiez aussi le calcul de dercel :

VB:

Set dercel = F.Range("A:U").Find("*", , xlValues, , xlByRows, xlPrevious)

Phil_2059 · 25 Avril 2021

Roblochon à dit:
Bonjour,

Avec excel 2016 vous pouvez utiliser Power Query, qui est fait pour ce genre de choses.

Power query : combiner plusieurs fichiers à partir d'un dossier

Cordialement

Merci beaucoup !

Phil_2059 · 25 Avril 2021

job75 à dit:
Et modifiez aussi le calcul de dercel :

VB:

Set dercel = F.Range("A:U").Find("*", , xlValues, , xlByRows, xlPrevious)

Merci beaucoup job 75 pour votre aide. Phil.

XL 2016 VBA Excel fusionner plusieurs fichiers à partir du nom d'onglet

Phil_2059

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Phil_2059

XLDnaute Nouveau

Phil_2059

XLDnaute Nouveau

Discussions similaires