Re : compatibilité outil créé verion Excel 2003 avec version 2007, 2010
re
ci-joint le fichier avec la liste des référence.
ci-dessous le code que j'utilise pour cocher les fichiers
Dans les cellules, il y a l'adresse où se trouve les fichiers. J'avais même fait une différence entre les adresses 2003 et 2007, mais cela varie.
Sub Ajout_reference_valide3()
Dim File As String
On Error Resume Next
Worksheets("Introduction").Range("A20:C40").ClearContents
Worksheets("Liste bouton").Range("J55:J100").ClearContents
Recuperer_reference
Set verif = CreateObject("scripting.FileSystemObject")
For i = 55 To 62
For j = 20 To 41
If Worksheets("Liste bouton").Cells(i, 13) = Worksheets("Introduction").Cells(j, 3) Then Worksheets("Liste bouton").Cells(i, 10) = "X"
If Worksheets("Liste bouton").Cells(i + 20, 13) = Worksheets("Introduction").Cells(j, 3) Then Worksheets("Liste bouton").Cells(i + 20, 10) = "X"
Next j
Next i
For i = 55 To 62
If verif.FileExists(Worksheets("Liste Bouton").Cells(i, 11)) Then
If Worksheets("Liste bouton").Cells(i, 10) = "" Then
Worksheets("Liste bouton").Cells(i, 12) = True
File = Worksheets("Liste bouton").Cells(i, 11)
ThisWorkbook.VBProject.References.AddFromFile File
Else
Worksheets("Liste bouton").Cells(i, 12) = True
End If
Else
If verif.FileExists(Worksheets("Liste Bouton").Cells(i + 20, 11)) Then
If Worksheets("Liste bouton").Cells(i + 20, 10) = "" Then
Worksheets("Liste bouton").Cells(i + 20, 12) = True
File = Worksheets("Liste bouton").Cells(i + 20, 11)
ThisWorkbook.VBProject.References.AddFromFile File
Else
Worksheets("Liste bouton").Cells(i + 20, 12) = True
End If
Else
Worksheets("Liste bouton").Cells(i, 12) = False
Worksheets("Liste bouton").Cells(i + 20, 12) = False
End If
End If
Next i
Set verif = Nothing
Exit Sub
End Sub
A la fermeture du fichier, je décoche les fichiers