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

[Phil_2059]

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]

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]

Bonjour Phil_2059, Roblochon, le forum,

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

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

par :

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

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

A+

 

[job75]

Et modifiez aussi le calcul de dercel :

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

 

[Phil_2059]

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]

Et modifiez aussi le calcul de dercel :

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

Merci beaucoup job 75 pour votre aide. Phil.