XL 2013 Consolidation de plusiers fichiers grâce à VBA

R@chid

XLDnaute Barbatruc

Supporter XLD

• 13 Février 2021

• #2

Bonjour,
on peut le faire avec Power Query et sans VBA.
Voir PJ


Cordialement

 

Pièces jointes

• Chrystel01_PowerQuery_V1.xlsx

  19.7 KB · Affichages: 5

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 13 Février 2021

• #3

R@chid à dit:

Bonjour,
on peut le faire avec Power Query et sans VBA.
Voir PJ


Cordialement

Cliquez pour agrandir...

Bonjour,

Je vous remercie malheureusement je n'ai pas cette fonctionnalité et elle ne sera pas installée sur mon poste.
Je ne peux pas non plus le faire moi même car je n'ai pas les droits admin...
Sauriez-vous m'aider sur mon code VBA ? il me manque 1 ou 2 lignes pour gérer la copie mais je sèche???

Merci par avance

Bon week-end

Chrystel

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 13 Février 2021

• #4

Bonjour Chrystel01,Rachid, le forum

Un essai pour modification de macro.
J'utilise toujours range("A:") plutôt que range(cells(,..)) car c'est le bazar pour les copies entre fichiers (pour faire simple).
Mais sinon, c'est à peu près pareil avec un choix de méthode (M1 ou M2) pour utiliser le fichier que vous ouvrez. Le fichier est traité avec la méthode M2 ici.

Bonne journée
zebanx

 

Pièces jointes

• consotest.xlsm

  59.7 KB · Affichages: 15

Dernière édition: 13 Février 2021

Vote positif 0 Vote négatif

Solution

C

Chrystel01

XLDnaute Occasionnel

• 13 Février 2021

• #5

Bonjour Zebanx,

Merci beaucoup ppur votre aide !
Cela répond parfaitement à ce que je souhaitais faire

Juste une petite question car j'apprends en même temps et cela me sera utile sur d'autres programmes sans doute...

Sur la fin du code, je ne comprends pas l'expression "Cells(Rows.Count, 1).End(3).Row" issue de cette ligne /
"ligne_coller = aw.Sheets("Consolider").Cells(Rows.Count, 1).End(3).Row + 1 'ligne_coller + 1 + (DerLig_fichier_ouvert - 1)"

Pourriez-vous m'expliquer SVP ?
Encore merci pour tout et bon week-end

Chrystel

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 13 Février 2021

• #6

Re-

De rien. Vous aviez déjà bien préparé le terrain mais copier entre fichiers, il faut être attentif car on a souvent des erreurs et il faut comprendre d'où elles viennent, ça m'arrive encore du reste.

L'utilisation de la variable "ligne-coller" original dans votre code ajoutait un interligne entre chaque feuille.
J'ai donc modifié le code pour aller chercher la dernière ligne en partant du bas et en rajoutant 1 (première ligne après cette dernière ligne à utiliser comme référence.

En résumé :
aw = votre classeur de consolidation (activeworkbook)
cells(rows.count,1).end(3).row = numéro de dernière ligne. Le end(3) pourrait être end(xlup). C'est une autre manière de l'écrire. A savoir : 1 pour XlLeft, 2 pour XlRight, 3 pour XlUp, 4 pour XlDown

Bonne intégration de vos données.
Xl-ment
zebanx

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 13 Février 2021

• #7

Merci beaucoup pour votre réponse rapide et très claire.
Effectivement je connais plus le "XLDown"

Je vous souhaite un XLent week-end !

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 13 Février 2021

• #8

Merci.
Et bravo pour votre petit fichier de consolidation des noms de fichiers du répertoire actif.
J'avais l'habitude d'en utiliser un en getopenfile() mais le votre peut servir, je l'enregistre car il est court / pratique.

Très bon we -)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Février 2021

• #9

Bonjour le fil

[Pour infos]

le demandeur à dit:

Je vous remercie malheureusement je n'ai pas cette fonctionnalité et elle ne sera pas installée sur mon poste.
Je ne peux pas non plus le faire moi même car je n'ai pas les droits admin...

Cliquez pour agrandir...

J'étais dans ce cas.
J'ai juste eu à contacter ma DSN.
Qui a ensuite pris la main sur mon PC (à distance) et à procéder à l'installation.
NB: Comme c'est un addon en provenance de Microsoft, normalement les DSN l'installent sans problème.

DSN= Direction des Services Numériques

*: j'ai écrit le demandeur ...
(car plus simple lors de la rédaction des messages sur XLD, et facilite mes CTRL/C/V)

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 13 Février 2021

• #10

Merci Staple 1600 !
Je vais donc refaire ma demande auprès du service informatique.
Bonne soirée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Février 2021

• #11

Re

=>Chrystel01
Pour aider les petits gars de ton service informatique

Download Microsoft Power Query pour Excel from Official Microsoft Download Center

Microsoft Power Query pour Excel est un complément Excel qui améliore l'expérience du décisionnel libre-service dans Excel en simplifiant la récupération des données, l'accès et la collaboration.

www.microsoft.com

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 13 Février 2021

• #12

Merci beaucoup Staple 1600 !
C'est super ! mon service informatique n'aura pas d'excuses

Bonne soirée

 

Vote positif 0 Vote négatif