Actualisation simultané entre fichier Excel

Bonjour,

Je ne sais pas trop comment vous exprimer ma demande donc je vais le tenter par un exemple, si je ne suis pas clair merci de me prévenir :p.

Donc j ai plusieurs fichiés excel que je vais nommer F1, F2, F3 ... chacun d'eux ne contient qu'une seule feuille de calcul.

Ensuite j'ai mon fichier FT qui lui renprend chacun des fichiers F1, F2, F3 donc en soit la feuille 1 du fichier FT = F1, feuille 2 de FT = F2 ...

mon problême n'etant pas de faire apparaître ces fichiers dans FT mais plutôt de travaillé dedans. que je m'explique:

Si je modifie F1, la feuille 1 du fichier FT doit en être modifié, mais a contrario si je modifie la Feuille 1 du fichier FT, cela doit modifier le fichier F1

Donc en soit que je modifie mes fichiers F1, F2, F3 ou FT je doit en voir la répercution sur celui qui n'a pas été modifié.

Voila

Je ne sais pas si tout ceci est compréhensible et désoler de ne pas pouvoir partager les fichiers en question (des données qui réside du secrêt professionnel)

et merci d'avance si vous comprenez mon problême.

Bonjour,

Tout d'abords, est-ce que les fichiers sont tous ouverts quand tu fais tes modifs ou seulement le fichier où tu travaille ?

Hervé.

Il es possible que cela arrive puisque plusieurs personne travail dessus mais apres je pense qu'une sécurité avec la lecture seule peu être mise en place ou une priorité sur le fichier FT.

Re,

Une piste (je dis bien une piste, ce n'est pas un code clé en mains !) à mettre dans le module du classeur FT et adapter. Le nom du classeur cible est sensé avoir le nom de la feuille sur laquelle les modifs sont faites. Le principe est grosso modo le même pour les autres classeurs à la différence près que le nom du classeur où est fait la modif doit porter le nom de la feuille du classeur FT :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim Cls As Workbook

    On Error Resume Next
    Set Cls = Workbooks(Sh.Name & ".xlsm")

    If Err.Number <> 0 Then

        MsgBox "Veuillez ouvrir le classeur " & Sh.Name & ".xlsm !"
        Exit Sub

    End If

    On Error GoTo 0

    Cls.Worksheets(1).Range(Target.Address).Value = Target.Address

End Sub

Hervé.

Si je peux te demander comment utiliser ce code, je suis plutôt spécialisé programmation automate et à part les formules excel j'ai un peux de mal a comprendre le VBA.

Merci de ton aide

Aïe, alors ça risque d'être un peu compliqué mais je pense qu'on va y arriver

Combinaison de touches Alt+F11 puis une fois dans le VBE, dans la petite fenêtre en haut à gauche, double-cliquer sur "ThisWorkbook" et dans la partie droite qui viens de s'ouvrir, coller le code puis ensuite, tu vas dans n'importe quelle feuille et tu entre une valeur dans n'importe quelle cellule. Si tu as un message qui s'affiche exemple : "Veuillez ouvrir le classeur F1.xlsm !", c'est que le classeur portant le nom de la feuille n'est pas ouvert, alors tu l'ouvre puis tu retente l'opération.

Hervé.

Mais dans ce cas les 2 fichiers doivent être ouvert simultanément pour que l actualisation se fasse automatiquement ?