Mises à jour réciproques BDD Excel<-->Acces

Désolé je n'ai pas été très précis.

Il s'agit d'un seul fichier Excel, mais compartimenté en plusieurs onglets (un par employé + un global regroupant les données de tous les autres).

Je souhaiterais qu'une fois qu'un onglet propre à un employé est modifié par une nouvelle saisie, l'onglet général soit mis à jour. J'aimerais aussi que cet onglet général soit lié avec une table dans une BDD Access pour sauvegarder les données en annexe.

Et régulièrement une fois la BDD sur Access mise à jour, la copier dans chaque onglet pour que chaque employé dispose de sa feuille à jour (avec les données des autres).

Hello!

"Lors de la saisie par un empolyé, s'agit d'un nouveau client ou d'une modification de données du client (par ex chg de n° de téléphone)"

==> il s'agit de la saisie d'un nouveau client.


"que tu dises le nom de la base et le dictionnaire de la table ( il y a t il le nom de l'employé émetteur?)"

=>L'onglet principal s'appel CarnetFusion, les autres CarnetXY (X et Y étant respectivement la première lettre du nom ainsi que du prénom). Sur chaque onglet il y a le même dictionnaire de données à savoir : NomEntreprise, Nom Client, Adresse, Mail.
La BDD ACCESS s'appelle Clients, avec en table CarnetFusion.


"que tu nous montres la structure de l'onglet employé et de l'onglet recap"

==> NomEntreprise NomClient Adresse Mail
Machine Nom1 Adr1 Mail1
Truc Nom2 Adr2 Mail2
-----------
Tous les onglets ont cette structure.
J'ai vu que par exemple si je selectionne un champ donné dans CarnetFusion (disons A1:D4) et que je mets "= " , puis en changeant d'onglet je selectionne le champ de mon CarnetAB(A1:D4) , lorsque je fais Ctrl + Enter j'obtiens ce genre de formule : =CarnetAB!A2:D4 .
Mais cela donne une copie d'une zone DÉTERMINÉE sur une autre zone DÉTERMINÉE.
J'ai l'impression qu'il faut que je fasse quelque chose de ce genre, mais plutot en passant par le VB pour que cela soit automatique à chaque nouvel ajout.


"que tu nous dises si on est en classeur partagé ou non"

==> Oui le classeur est partagé par tous les employés.

Cette architecture classeur unique avec un récapitulatif t'est elle imposée ?

==> Oui, sinon je serais passé par SQL/PhP MyAdmin pour faire beaucoup plus simple. Mais je regrette pas au moins j'apprends :)

Merci de ton intérêt michel_m!

là on passerait par aussi par du sql (insert....)
==>Pas un problème j'aime bien le SQL ;)

tu peux déjà te documenter sur la technologie ADO en VBA
==> Merci je vais voir ça!

Je venais justement de tomber sur ce post ya 5 minutes : https://forums.commentcamarche.net/forum/affich-11148857-vba-excel-mise-a-jour-fichier-sans-l-ouvrir .

Je vais voir ça avec ta proposition.

Mais effectivement je pense qu'ADO-SQL pourrait être sympa, je ne connais pas encore. En revanche sur développez.com, le seul lien dans la prtie "VB" qui dirige vers l' "ADO" est sur une aide ADO entre Exel et Word. Ca fonctionne de la même façon entre Excel et Access?

Merci de ton aide en tout cas :)

Voilà le .zip !

https://www.cjoint.com/?dlqWrG1SWU

Je suis sous Office 2000 Pro malheureusement...Désolé.

Et ok pour l'ADO, je me pencherais dessus ensuite. Merci!

Merci, ça marche bien. Mais peux tu m'expliquer ton code ou confirmer ce que j'ai compris?
Je suis pas sûr de tout saisir et je veux pas recopier un code que je serais inccappable d'expliquer ou de refaire...
a
Sub mj_xl()
Dim derlig As Long         'donc variable qui prend la dernière ligne ? entier long
Dim tablo           'variable qui contient l'ensemble du tableau contenant la saisie que l'on va faire passer sur l'autre feuille?

With ActiveSheet
derlig = .Range("A65536").End(xlUp).Row           'ici la dernière ligne s'arrête à la dernière case saisie?
tablo = .Range(.Cells(derlig, 1), .Cells(derlig, 4))           'donc si je dis pas de betises le tableau commence 1ere colonne à la dernière ligne saisie, et finit 4e colonne à cette même ligne
End With
With Sheets("carnetfusion")          'lien avec la feuille qui m'intéresse
derlig = .Range("A65536").End(xlUp).Row + 1          'et là je suis plus sûr de suivre l'incrémentation me fait perdre le fil
.Range(.Cells(derlig, 1), .Cells(derlig, 4)) = tablo
End With

MsgBox "Client mis à jour sur la feuille commune CarnetsFusion"

End Sub


Pardon si mes questions semblent stupides, mais j'ai du mal avec excel et je ne connais peu de ses fonctions... Merci pour ton aide :)

Ok, merci pour tes réponses.

Par contre un truc me chiffonne :
Ce code devrait etre valable pour toutes mes pages

Sub maj_xl()
Dim derlig As Long, ligvide As Long
Dim tablo

With ActiveSheet
derlig = .Range("A65536").End(xlUp).Row
tablo = .Range(.Cells(derlig, 1), .Cells(derlig, 4))
End With
With Sheets("carnetfusion")
ligvide = .Range("A65536").End(xlUp).Row + 1
.Range(.Cells(ligvide, 1), .Cells(ligvide, 4)) = tablo
End With

MsgBox "Client mis à jour sur la feuille commune CarnetsFusion"

End Sub

Puisqu'il sélectionne ce qui est écrit sur LA PAGE ou l'on travaille pour l'envoyer sur la feuille commune CarnetsFusion

.
En revanche, le code lié au bouton qui effectue cette action

Private Sub CommandButton1_Click()
For Each c In Worksheets("CarnetA").Range("A1:D3").Cells     'c'est ici que je suis censé modifier la page
c.FormulaR1C1 = "=VLOOKUP(RC[-2],base,2,FALSE)"
Next
End Sub

Devrait changer sur chaque page (là ou indiqué en commentaire). Et cela fait tout planter. Il n'envoie rien sur CarnetsFusion, et efface les premières données de ma premiére page annexe (celle ou le code fonctionnait pour envoyer les dernières données saisies sur la page CarnetsFusion).

Je ne comprends pas tout là... x_O

Gniih, en fait j'arrive pas à être clair on dirait, j'en suis désolé.

Avec ce que ça donne là je voulais que :

-chaque employé rentre son client sur sa page perso CarnetAX (sachant qu'il y en a 7/8),
-il clique sur le bouton qui copie/colle ce dernier client entré sur la page CarnetFusion,
-par la suite chercher à faire un bouton sur la page CarnetFusion pour régulièrement exporter cette page (CarnetFusion) sur ma BDD Access afin de la maintenir à jour.

Enfin je vais essayer de faire dans l'ordre et commencer par faire marcher cette mise à jour entre feuilles Excel déjà...

Autrement dit, la pièce jointe en post 11 c'est peanuts ?

Ben ça m'a montré comment appeler un module (je ne savais pas..je rappelle que je n'ai quasiment jamais touché à Excel), et d'après ce que j'ai pu comprendre je vais avoir besoin de fonctionner en ADO pour insérer les valeurs contenues dans mes champs dans une table ACCESS, donc ta pièce jointe m'est utile pour voir comment se fait la connexion, l'initialisation des requêtes et leur éxecution (dont j'aurais aussi besoin pour faire une recherche de doublons).

Vraiment lassant ce forum...
J'ai dit quelque chose qui ne fallait pas...?