Ouvrir en un clique tous les classeurs qui sont en liaisons entre eux

[libellule85]

Bonjour le forum,
Ma question va vous paraitre peut-être idiote mais y a t'il un moyen d'ouvrir en un clique tous les classeurs qui sont en liaisons entre eux.
D'avance merci pour vos réponses
Libellule85

 

[flyonets44]

Re : Ouvrir en un clique tous les classeurs qui sont en liaisons enter eux

Bonjour
Dans le premier fichier que tu ouvres, tu peux lancer une macro qui va ouvrir tous tes fichiers, à condition
qu'ils soient bien identifiés et ne changent ni de noms ni de répertoire
Sub Openf()
Dim filename As Variant
Dim MyTitle As String
Dim MyFilter As String
Dim I As Long
Dim TargetPath
Dim Vfilename
MyTitle = "Select File(s)"
MyFilter = "Excel Files (*.xls), *.xls"
TargetPath = ActiveWorkbook.Path
If Mid(TargetPath, 2, 1) = ":" Then ChDrive TargetPath
ChDir TargetPath
' Vfilename = Application.GetOpenFilename("Excel files(*.XLS), *.xls")
Vfilename = Application.GetOpenFilename(FileFilter:=MyFilter, _
Title:=MyTitle, MultiSelect:=True)
If IsArray(Vfilename) Then
For I = LBound(Vfilename) To UBound(Vfilename)
Workbooks.Open filename:=Vfilename(I)
Next
Else
MsgBox "Ok, Quitting"
End If
End Sub
Cordialement
Flyonets

 

[chris]

Re : Ouvrir en un clique tous les classeurs qui sont en liaisons enter eux

Bonjour

Tu ne dis pas si tu as un seul classeur avec plein de liaisons ou si chaque classeur lié peut avoir aussi des liaisons, ce qui peut alors former une chaîne assez complexe dont certains maillons pourraient être liés à plusieurs classeurs.

La piste est d'explorer LinkSources ...

 

[libellule85]

Re : Ouvrir en un clique tous les classeurs qui sont en liaisons entre eux

Bonsoir Flyonets44, Chris,
Je vous remercie pour vos réponses. c'est sympa
Chris j'ai par exemple le classeur 1 et le classeur 2 qui sont en liaisons avec le classeur 3.
@+

 

[chris]

Re : Ouvrir en un clique tous les classeurs qui sont en liaisons entre eux

Bonjour

Bonsoir Flyonets44, Chris,
Je vous remercie pour vos réponses. c'est sympa
Chris j'ai par exemple le classeur 1 et le classeur 2 qui sont en liaisons avec le classeur 3.
@+

OK mais que fais tu (tu ouvres un classeur OUI/NON, lequel...) et que doit-il se passer ? sachant qu'en cas de liaison seul le classeur qui fait référence à des cellules d'un autre classeur contient l'info liaison, le second "ignorant" qu'il est lié.

 

[libellule85]

Re : Ouvrir en un clique tous les classeurs qui sont en liaisons entre eux

re chris,
ce que j'aimerais si c'est possible : Ouvrir le Classeur 3 et de se fait cela ouvre automatiquement le classeur 1 et 2

 

[kiki29]

Re : Ouvrir en un clique tous les classeurs qui sont en liaisons entre eux

Salut,à adapter

Option Explicit

Sub ListeLiens()
Dim Liens As Variant
Dim i As Long

    Liens = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(Liens) Then
        Sheets.Add
        For i = 1 To UBound(Liens)
            ActiveSheet.Cells(i, 1).Value = Liens(i)
        Next i
    End If
End Sub

 

[libellule85]

Re : Ouvrir en un clique tous les classeurs qui sont en liaisons entre eux

Bonjour kiki29,
Merci pour ta réponse
Bonne journée
@+