Importer des données de plusieurs classeurs sur un autre
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
Bonjour et bienvenue
Avec tous tes fichiers dans le même dossier (Recap également) :
Amicalement
Nad
Nad a écrit :Bonjour et bienvenue
Avec tous tes fichiers dans le même dossier (Recap également) :
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
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
Nad a écrit :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
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
Nad a écrit :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 a écrit :Re
Pas avec le nouveau code.
Je te renvoie le fichier RECAP
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 ?
Re
With Workbooks(NomFichier)
.Sheets("Suivi Fiches")......
.Close True 'ou False
Nad