Regroupement base de données

[S T E P H]

Bonjour,

Actuellement en stage, je recherche comment regrouper plusieurs données clients situées sur plusieurs feuilles Excel en une seule. Je m'explique.

Je dispose de 3 feuilles Excel représentant chacune une liste de contacts relatifs a divers événements de mon entreprise. Chaque liste se présente sous la forme d'un "tableau" constitué des mêmes colonnes (Nom, Prénom etc...).

Le but est de mettre les unes à la suite des autres ces 3 listes de contacts (tous différents d'une base à une autre) dans une nouvelle feuille sans passer par un copier/coller (qui à mes yeux est la solution la plus rapide mais qui ne convient pas à mon chef qui aimerait une solution plus "automatisée").

Pourriez-vous m'éclairer sur ce sujet ?

Steph

 

[jmd2]

Re : Regroupement base de données

hello

s'il ne veut pas de copier/coller, c'est qu'il veut continuer à saisir dans les 3 fichiers, et les conserver bien vivants.

alors ton fichier sera constitué de "liens" avec les 3 autres.

fais une recherche sur les liaisons entre fichiers, tu vas trouver plein d'infos.
ex :
Formation Excel VBA JB
"liaisons classeurs"

 

[mercant76]

Re : Regroupement base de données

bonjour,

envoie un début de tes 3 feuilles ( en tête et quelques lignes ) pour voir la disposition + le chemin pour parvenir à tes feuilles ( si elles sont dans des classeurs différents ).

en zip pour alléger.

@+

 

[S T E P H]

Re : Regroupement base de données

Bonjour

Pas de zip possible donc je mets le fichier en lien.

 

[mercant76]

Re : Regroupement base de données

bonjour,

ci joint un fichier qui j'espère règle ton problème.

confirmes moi si çà va.

@+

 

[papapaul]

Re : Regroupement base de données

🙂 🙄Salut STEPH, la solution de mercant est trés bien.
En voici une autre ou il n'y a pas besoine de nommer les feuilles.
Il faut que l'en tête des colonnes soit rigoureusement identiques.
Toute éxécution de la macro (on peut la mettre sous un bouton)
efface les résultats précédents dans la Feuil1 (Récap).

Sub x_feuilles_vers_recap()
'Macro enregistrée le 17/10/2006 par papapaul
'Avec l'aide de Pierrejean je crois
Dim Ligne, Nombre As Long
Application.ScreenUpdating = False
Sheets(1).Range("a1").CurrentRegion.Select
Selection.ClearContents
For Nombre = Sheets.Count To 2 Step -1
Sheets(Nombre).Rows(1).Copy Destination:=Sheets(1).Rows(1)
Ligne = Range("a65536").End(xlUp).Row + 1
Sheets(Nombre).Range("A2:f" & Sheets(Nombre).Range("a65536").End(xlUp).Row).Copy
Sheets(1).Activate
Range("A" & Ligne).Select
ActiveSheet.Paste
Next Nombre
Application.ScreenUpdating = True
End Sub

Y a plein d'autres solutions, faut voir (et chercher 😀)

Bon courage

 

[S T E P H]

Re : Regroupement base de données

Merci à tous les deux, c'est exactement ce qu'il me fallait 🙂

Bonne journée

 

[S T E P H]

Re : Regroupement base de données

En fait, nouveau petit problème...
Le fichier joint fonctionne parfaitement, mais en voulant le recopier dans mon fichier et en modifiant les noms des feuilles par leurs véritables noms, la macro ne s'exécute pas...l'erreur d'exécution '1004' définie par l'application ou par l'objet apparaît au niveau de la ligne en rouge et en gras. Comment faire ? 😕

Sub ensemble()
'copie des données Feuil1

DL = Sheets("BDD générale").Range("A" & Cells.Rows.Count).End(xlUp).Row
Sheets("BDD générale").Select
Range("A3:M" & DL).Select
Application.CutCopyMode = False
Selection.ClearContents

NL = Sheets("RTS 2008").Range("A" & Cells.Rows.Count).End(xlUp).Row
Sheets("RTS 2008").Select

Range("A3:M" & NL).Select
Selection.Copy
Sheets("BDD générale").Select
Range("A3").Select
ActiveSheet.Paste

NL = Sheets("Maximizer 2008").Range("A" & Cells.Rows.Count).End(xlUp).Row
Sheets("Maximizer 2008").Select

Range("A3:M" & NL).Select
Selection.Copy
DL = Sheets("BDD générale").Range("A" & Cells.Rows.Count).End(xlUp).Row
Sheets("BDD générale").Select
Range("A" & DL + 1).Select
ActiveSheet.Paste

NL = Sheets("Outlook RCO").Range("A" & Cells.Rows.Count).End(xlUp).Row
Sheets("Outlook RCO").Select

Range("A3:M" & NL).Select
Selection.Copy
DL = Sheets("BDD générale").Range("A" & Cells.Rows.Count).End(xlUp).Row
Sheets("BDD générale").Select
Range("A" & DL + 1).Select
ActiveSheet.Paste

End Sub

 

[mercant76]

Re : Regroupement base de données

bonjour,

j'ai recopié la macro dans un nouveau fichier et je n'ai pas de problème.

quand tu l'as recopiée, tu l'a remise dans un module ou dans le code de la feuille ?

si c'est dns le code de la feuille, çà plante.

dis moi.

@+

 

[S T E P H]

Re : Regroupement base de données

J'avais copié dans le code de la feuille voilà la raison...maintenant dans un module ça fonctionne ! 🙂
Merci beaucoup, ma journée est sauvée (ou du moins mon aprem')