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

[aurel212]

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,

 

[covanture82]

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]

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]

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:

Private Sub CommandButton1_Click()
Call Copie
End Sub

Ensuite, dans la fenetre vba, menu Insertion, choisi module et colle ceci :

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]

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

 

[aurel212]

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

Oui ma tram est simple, c'est l'objectif. Je vais essayer la methode si dessus.
Merci a tous, je reviens vers vous.

Aurel

 

[aurel212]

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.

 

[JCGL]

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

Bonjour à tous,

Le code de Porcinet fonctionne parfaitement...

A+ à tous

 

[aurel212]

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...