Discussion :

[ouisansdoute]

Bonjour,

je travaille sur 5 sites qui ont des serveurs différents. prochainement un seul serveur pour tous les sites sera mis en place. Parallèlement nous passerons de Excel 2003 à 2007.

Je souhaite :
- a minima repérer les fichiers qui contiennent des macros ainsi que ceux qui contiennent des liaisons.
- a maxima trouver un outil qui me permettent d'adapter les fichiers aux nouveaux map et à la nouvelle version d'Excel.

Connaissez-vous des outils qui pourraient m'aider ?

[AlainTech]

Bonjour,

Une première proposition pour les liaisons.
Basée sur ThisWorkbook, à toi de déterminer le bon classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TestLinks()
  Dim aLink() As Variant
  Dim iErr As Long
  On Error Resume Next
  aLink = ThisWorkbook.LinkSources
  iErr = Err.Number
  On Error GoTo 0
  If iErr = 0 Then
    MsgBox "Il y a " & UBound(aLink) & " liaison(s)"
  Else
    MsgBox "Pas de liaisons"
  End If
End Sub

[ouisansdoute]

Merci AlainTech,

Inclure ce test dans une boucle ne me soucie pas. Pour les macros ça me semble un peut plus compliqué.
L'un des problèmes c'est qu'il faut ouvrir chaque fichier pour le tester. Or j'en ai des milliers. Dommage qu'il n'existe pas d'outils tout faits.

Je vais intégrer ton code à mon travail.

Encore merci.

[AlainTech]

Et voici de quoi tester s'il y a du code dans un classeur.
Je suis toujours parti de ThisWorkbook, à toi d'adapter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub TestCode()
  Dim bHasCode As Boolean
  Dim oVbc As Object
  Dim oVbcItem As Object
  Dim wb As Workbook
  Set wb = ThisWorkbook
  Set oVbc = wb.VBProject.VBComponents
  For Each oVbcItem In oVbc
    If oVbcItem.CodeModule.CountOfLines > 2 Then ' > 2 au cas où il y aurait Option Explicit en tête de module
      bHasCode = True
    End If
  Next oVbcItem
  If bHasCode Then
    MsgBox "Il y a du code dans ce classeur"
  Else
    MsgBox "Pas de code dans ce classeur"
  End If
End Sub