Recherche de liaisons

[Xavier]

Bonjour à tous,

Je travaille avec plusieurs personnes sur des fichiers excel qui sont liés les uns aux autres, au point qu'on ne s'y retrouve pas toujours.

Ce qui m'importe notamment, c'est de savoir quels fichiers (et quelles cellules dans ces fichiers) vont etre impactés par le changement d'une cellule dans le fichier courant.

En gros je cherche une fonction ou une macro qui ressemblerait à la fonction audit mais qui chercherait sur tout un repertoire et pas seulement dans les feuilles d'un classeur

Est-ce que vous avez une idée de la facon de realiser une telle recherche ?

Merci de votre aide

Xavier

 

[Laurent L]

Bonjour,

Voici un point de départ :

Sub Test()

  Dim Link
  Dim Calc As XlCalculation
  Dim I As Integer
  Dim MySelf As String
  Dim Dependants As String
  
  MySelf = LCase(ThisWorkbook.FullName)
  
  With Application
    Calc = .Calculation
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    With .FileSearch
      .LookIn = ThisWorkbook.Path
      .FileType = msoFileTypeExcelWorkbooks
      .Execute
      With .FoundFiles
        For I = 1 To .Count
          If LCase(.Item(I)) <> MySelf Then
            With Workbooks.Open(.Item(I), True)
              If VarType(.LinkSources) <> vbEmpty Then
                For Each Link In .LinkSources(xlExcelLinks)
                  If LCase(Link) = MySelf Then _
                    Dependants = Dependants & '- ' & .FullName & vbLf
                Next Link
              End If
              .Close False
            End With
          End If
        Next I
      End With
    End With
    .Calculation = Calc
    .ScreenUpdating = True
  End With
  
  MsgBox 'Classeurs liés :' & vbLf & vbLf & Dependants
  
End Sub

Cordialement,

Laurent