Importer des données de plusieurs classeurs sur un autre

[BrunoDS78]

Bonjour le forum,

Quelqu'un pourrait-il me donner un code, qui me permettrait de récapituler dans un classeur "Recap" les données des de deux autres classeurs "Classeur1" et "Classeur2" sans ouvrir ces 2 derniers.

A savoir que les "Classeur1" et "Classeur2" sont régulièrement mis à jour (modification ou rajout de ligne) et ont les memes en-tetes de colonnes.

Donc dans ce "Recap" il y aurait un bouton qui permettrait de récupérer les données des 2 classeurs et de les trier la colonne K.

J'ai déja essayer avec des codes d'autres discussions, sans résultat ...

Je vous ai mis en PJ, les 2 classeurs de données et un aperçu du rendu du classeur "Recap"

Merci d'avance

[Nad]

Bonjour et bienvenue

Avec tous tes fichiers dans le même dossier (Recap également) :

Recap.xls

(85.5 Kio) Téléchargé 79 fois

Amicalement
Nad

[BrunoDS78]

Bonjour et bienvenue

Avec tous tes fichiers dans le même dossier (Recap également) :

Recap.xls

Amicalement
Nad

Milles merci, le code marche très bien...

Par contre juste une petite question. Que dois-je modifier si dans mes classeurs 1 et 2, je possède plusieurs onglets et que celui qui m'interresse ce nomme "Suivi" dans chaque classeur et ne se trouve pas forcément en première possition dans la liste des onglets ?

Merci d'avance

[Nad]

Re

Est-ce qu'ils auront le même nom de feuille ?

Dans cette partie du code :

With Workbooks(NomFichier)
.Sheets("Feuil1").Range("A2:N" & Range("A65536").End(xlUp).Row).Copy ThisWorkbook.Sheets("Feuil1").Range("A" & Derlg)
.Close

Le 1er "Feuil1" correspond au nom de l'onglet à récupérer
Le 2ème correspond au nom de l'onglet dans RECAP

Nad

[BrunoDS78]

Re

Est-ce qu'ils auront le même nom de feuille ?

Dans cette partie du code :

With Workbooks(NomFichier)
.Sheets("Feuil1").Range("A2:N" & Range("A65536").End(xlUp).Row).Copy ThisWorkbook.Sheets("Feuil1").Range("A" & Derlg)
.Close

Le 1er "Feuil1" correspond au nom de l'onglet à récupérer
Le 2ème correspond au nom de l'onglet dans RECAP

Nad

Bonjour,

Il semblerait que j'ai un petit probleme... Pourriez vous regarder ? Pleaseeeee...
Je vous met les classeurs. Les onglets "Suivi Fiches" du classeur 1 et 2 vers l'onglet "Recap Fiches" du classeur "Recap".

Merci milles fois du temps que vous accorderez à mon probleme

[Nad]

Re

Il faut ajouter la partie en rouge :

With Workbooks(NomFichier)
.Sheets("Suivi Fiches").Range("A2:N" & Sheets("Suivi Fiches").Range("A65536").End(xlUp).Row).Copy ThisWorkbook.Sheets("Recap Fiches").Range("A" & Derlg)
.Close

Nadine

[BrunoDS78]

Re

Il faut ajouter la partie en rouge :

With Workbooks(NomFichier)
.Sheets("Suivi Fiches").Range("A2:N" & Sheets("Suivi Fiches").Range("A65536").End(xlUp).Row).Copy ThisWorkbook.Sheets("Recap Fiches").Range("A" & Derlg)
.Close

Nadine

Le problème c'est que ça me remet l'en-tete de colonne...

[Nad]

Re

Pas avec le nouveau code.
Je te renvoie le fichier RECAP

Recap.xls

(84 Kio) Téléchargé 43 fois

Nad

[BrunoDS78]

Re

Pas avec le nouveau code.
Je te renvoie le fichier RECAP

Recap.xls

Nad

Ok ca marche génial !

Par contre pourquoi me demande-t-on si je veux enregistrer les modification sur classeur 1 et puis 2 ???
Je souhaiterais que cela n'apparaisse pas.
Cela est sans doute dû au faite que sur un des autres onglets du classeur j'ai une fonction AUJOURDHUI().
Est-ce contournable ?

[Nad]

Re

With Workbooks(NomFichier)
.Sheets("Suivi Fiches")......
.Close True 'ou False

Nad