Alimenter une base de donnée automatiquement après chaque ajout

aurel212

XLDnaute Nouveau
Bonjour,

Ceci est une demande très simple, mais je n'ai pas les connaissances suffisantes, et le temps presse.
Je souhaiterais traiter des données et alimenter une base de données automatiquement. Chaque jour, je vais devoir mettre à jour la feuille Juillet, et le mois prochain la feuille Aout etc...
J'aimerais que les informations que je rentre, soit directement repportées dans la feuille Data base, via un bouton ou alors au simple enregistrement de ma feuille ou à la fermeture du classeur. L'intérêt étant de garder en mémoire l'ensemble des données de l'année dans une seule feuille Data Base.
Cela est-il faisable?
Vous trouverez la tram de mon classeur.

Merci beaucoup,
 

Pièces jointes

  • Hiring Report essai.xls
    28 KB · Affichages: 177

covanture82

XLDnaute Nouveau
Re : Alimenter une base de donnée automatiquement après chaque ajout

Bonjour aurel,
j'ai le même soucis que toi...je souhaiterai transférer des données d'un fichier vers un autre fichier qui recevra tous les mois des données provenant du 1er fichier.
 

covanture82

XLDnaute Nouveau
Re : Alimenter une base de donnée automatiquement après chaque ajout

Par contre ton cas est plus simple car j'ai regardé la tram de ton classeur, tout est dans un meme fichier, explique moi juste qu'est ce que tu veux copier et ou??? ensuite attacher un bouton à ta macro pour automatiser ce que tu veux.
 

porcinet82

XLDnaute Barbatruc
Re : Alimenter une base de donnée automatiquement après chaque ajout

Salut,

Une petite macro pour faire ce que tu souhaites. Il faut que tu créés un bouton dans chacune de tes feuilles. Pour ce faire, menu Affichage/Barre d'outils/Barre vba.
Dans la barre d'outils qui s'ouvre, tu choisis Boite à outils de control puis Bouton de commande que tu places ou tu veux sur ta feuille.
Tu doubles click dessus, une fenêtre vba devrait s'ouvrir. Tu n'as qu'a rajouter Call Copie dans le code du bouton. Tu devrais donc avoir ceci:
Code:
Private Sub CommandButton1_Click()
Call Copie
End Sub

Ensuite, dans la fenetre vba, menu Insertion, choisi module et colle ceci :
Code:
Sub Copie()
Dim der_lig&

der_lig = Sheets("Data Base").Range("A65536").End(xlUp).Row + 1
Rows("2:" & ActiveSheet.Range("A65536").End(xlUp).Row + 1).Copy Destination:=Sheets("Data Base").Rows(der_lig)
End Sub

Il te suffit de faire la même chose (la partie création de bouton et ajout de Call Copie dans le code du bouton, la macro étant deja créée) pour chaque feuille que tu rajouteras.

@+
 

sousou

XLDnaute Barbatruc
Re : Alimenter une base de donnée automatiquement après chaque ajout

Bonjour à tous.

Ci-joint une solution. "Violante", mais elle permet de traiter toutes les feuilles et surtout de traiter les modifications à postériori.

Pour cela la macro deb (je n'ai pas fait le bouton) refait l'ensemble de la feuille data base à chaque fois qu'on l'appel.
Donc si une modif à été fait sur une des feuilles, elle sera prise en compte.

A voir
 

Pièces jointes

  • Hiringsousou.zip
    16.4 KB · Affichages: 192

aurel212

XLDnaute Nouveau
Re : Alimenter une base de donnée automatiquement après chaque ajout

Bonjour,

J'ai essayé et tester ces 2 méthodes. La première à des problèmes "Erreur de compilation: Sub ou Function non défini".

La seconde plante, lorsque j'ajoute mes données, elle ne transfert pas mes ajouts sur la feuille Data Base.

Donc je suis toujours au même point.

Merci quand même.
 
Dernière édition:

aurel212

XLDnaute Nouveau
Re : Alimenter une base de donnée automatiquement après chaque ajout

Effectivement, ça fonctionne cette fois.
Juste une remarque. Si je clique 2X sur mon bouton, les mêmes données s'ajoutent 2 fois dans ma base de donnée. Cela peut poser problème si il y a une mauvaise manipulation...
 

Discussions similaires

Réponses
27
Affichages
962

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson