Synchroniser 2 BDD - demande de méthode

Version imprimable

13/08/2015, 09h17
mouftie

Synchroniser 2 BDD - demande de méthode

Bonjour,
J'ai 2 fichiers pratiquement identiques, l'un destiné à un secteur (F1), l'autre en ligne pour tout le monde (F2). La seule différence entre les 2, c'est que celui destiné au secteur donne plus d'information que l'autre ; ces informations sont données par USF.

Aujourd'hui, lorsque que j'ai une mise à jour à faire, j'ouvre le fichier (F1), depuis un bouton Mise à jour, je dévérouille, rend visible la feuille BDD.
Puis j'ouvre le 2ème (F2), clique sur le même bouton pour visualiser la feuille BDD, supprime la feuille BDD et déplace / Copie celle du fichier F1 vers le F2.

Les mises à jour deviennent plus fréquentes que prévues, je voudrais donc automatiser ce travail.
Ma question est donc, dois-je faire une macro qui reprend ce que je fais manuellement ou est-il possible de prodécer sans avoir à ouvrir le 2ème fichier F2 ?

J'ai déjà essayé la 1er méthode, mais ça bloque à l'ouverture de F2 qui s'ouvre mais en parallèle, je reçois le message "Un composant ActiveX ne peut pas créer d'objet".
En réalité, quand on ouvre F2, dans le thisWorkbook il est prévu d'ouvrir le USF de F2 qui porte le même nom que celui de F1.

Il y a encore la possibilité de supprimer la BDD de F2 et de faire des liens entre le USF F2 et la BDD de F1, mais F1 sera fermé et ça m'oblige à reprendre beaucoup de code ?

Avant de commencer une de ces 3 méthodes, j'ai donc besoin de vos conseils svp.
Laquelle est la plus pertinente ?

D'avance, merci de vos conseils.
13/08/2015, 10h13
78chris

Bonjour

Je trouve que synchroniser des fichiers Excel tient vite de l'usine à gaz.

Si les deux fichiers sont sur le même serveur, il serait plus simple que F2 contienne les données de F1 via une requête. Ainsi toute évolution de F2 est répercutée.

Cependant on ne sait pas l'usage fait de ces fichiers et cela n''est pas neutre dans le choix d'une solution.

Bonjour

Perso j'utilise ça. Je l'ai adapté en fonction des noms que tu as donné.

Code:

1
2
3
4
5
6
7
8
9
10
Sub export()
Dim F1 As Workbook
Dim F2 As Workbook
 
Set F1 = ThisWorkbook
Set F2 = Application.Workbooks.Open(ThisWorkbook.Path & "\f2.xlsx")
F1.Sheets("BDD").Cells.Copy F2.Sheets("BDD").Cells(1, 1)
F2.Sheets("BDD").Visible = xlSheetHidden
F2.Close True
End Sub

13/08/2015, 13h54
mouftie

Bonjour Chris
Merci de ta réponse

Citation:

Si les deux fichiers sont sur le même serveur, il serait plus simple que F2 contienne les données de F1 via une requête

Oui les 2 fichiers sont sur le même serveur et sur le même répertoire à l'origine. cependant nos services informatiques font une synchronisation toutes les semaines de F2 sur un autre serveur qui donne l'accès à tous les utilisateurs...

Qu'est-ce que tu entends par via une requête ? stp

Citation:

Cependant on ne sait pas l'usage fait de ces fichiers

c'est un habillage de base de données par USF style tu saisies un code postal et tu retrouves la ville, le département, la région et la femme du préfet ;> :P
13/08/2015, 15h04
78chris

Bonjour

Excel contient un requêteur, MsQuery, qui permet de récupérer certaines colonnes d'une liste d'un fichier Excel comme on le fait avec des requêtes dans une base de données.

Avantage ce sont les données initiales qui sont affichées dans le second fichier, donc pas de décalage possible de la mise à jour mais on ne peut depuis ce fichier modifier la source, juste l'exploiter.

Cependant si les 2 serveurs ont des droits d'accès différents ou ne sont pas visibles pour tous les utilisateurs cela risque de ne pas marcher.