Salut,
J'ai une appli qui peut-être ouverte avec AC-2007 ou AC-2003...
Donc j'ai un problème de référence Excel 12 et 11 !!!!
Mais avec AC-2007 aucun problème, cela connecte toujours avec 12.
Mais avec AC-2003 cela me bloque "Référence Manquante"
J'ai donc trouvé des explications mais cela me fonctionne toujours pas :
Avec AC-2003 cela me bloque à la ligne :
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 Function essai() Dim Ref As Reference Dim i As Integer For Each Ref In Application.References If Ref.IsBroken = True Then Application.References.Remove Ref For i = 8 To 12 If Dir("C:\Program Files\Microsoft Office\Office" & i & "\EXCEL.EXE") <> "" Then On Error Resume Next Application.References.Remove Ref References.AddFromFile ("C:\Program Files\Microsoft Office\Office" & i & "\EXCEL.EXE") End If Next i End If Next Ref
Car je ne récupère aucune valeur... que ce soit avec IsBroken, Name, FullPath...
Code : Sélectionner tout - Visualiser dans une fenêtre à part If Ref.IsBroken = True Then
Avez-vous une idée comment je pourrai faire ?
Merci
Partager