Liaison de deux classeur excel

[damien91]

Bonjour

je souhaite mettre en place une liaison entre deux fichiers excel... je m'explique. je souhaiterai mettre en place le système suivant :

- remplir une fiche avec des informations tous les jours (fiche de renseignement)

- creer un lien pour que chaque fiche remplie alimente un fichier sous forme de tableau récapitulatif des infos afin d'avoir une récap mensuelle

Tout ceci afin d'avoir une tableau clair de récap afin d'éviter d'ouvrir chaque fiche

je ne sais pas si je suis bien clair dans mes explications 😕

Damien91

 

[THE CAT 2007]

Re : Liaison de deux classeur excel

Bonjour,

problème très similaire :
https://www.excel-downloads.com/threads/liaison-entre-fichiers.94244/

le fichier est dispo en téléchargement en bas du lien.

les fichiers nommés T...xls ( ici les fiches ) alimentent un fichier général database.xls

c'est l'ouverture du fichier "write down update.xls" sub auto_open
qui actualise le fichier data base.

;-)

 

[BOISGONTIER]

Re : Liaison de deux classeur excel

Bonsoir,

Exemple en PJ:

Sub Transfert()
    ChDir ThisWorkbook.Path               ' Répertoire application
    Range("A2:J1000").ClearContents
    Range("b2").Select
    nf = Dir("fiche*.xls")                  ' Première fiche
    Do While nf <> ""
      Workbooks.Open Filename:=nf
      Range("C3:C11").Copy
      Windows("Consolide_fiches.xls").Activate
      Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
      Windows(nf).Activate
      ActiveWorkbook.Close savechanges:=False
      ActiveCell.Offset(0, -1) = nf
      ActiveCell.Offset(1, 0).Select
      nf = Dir()                           ' Fiche suivante
    Loop
End Sub

JB