Discussion :

[mustang-ffw02]

Est-ce possible?

Merci de vos reponses...

[Catbull]

VB ou VBA?

[mustang-ffw02]

VBA excel

[SfJ5Rpw8]

voila un peu de code...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ListerReference()
'Dim v As Reference
  For Each v In ThisWorkbook.VBProject.References
    Debug.Print v.Description & " - " & v.FullPath & " - " & v.Name & " - " & v.GUID
 
  Next
'ThisWorkbook.VBProject.References.AddFromGuid
End Sub
 
Sub AjouteReference()
'Pour ajouter : "Microsoft Scripting Runtime"
ThisWorkbook.VBProject.References.AddFromFile ("C:\WINDOWS\System32\scrrun.dll")
 
End Sub

[mustang-ffw02]

Les deux sub ne fonctionne pas:

"La méthode vbproject de this workbook a echoué" quand j'execute

Code :

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

ThisWorkbook.VBProject.References.AddFromFile ("C:\WINDOWS\System32\scrrun.dll")

Il faut le mettre dans un module ou dans this workbook

[SfJ5Rpw8]

il faut le mettre dans un module....
tu as un message d'erreur sur les sub ?

[mustang-f27]

Je me permet de revenir sur un de mes vieux post car je n'ai toujours pas la solution!

Dans un module ou dans un this_workbook j'ai la meme erreur:

"Erreur d'execution 1004"
Erreur défini par l'application ou l'objet

[SfJ5Rpw8]

version d'excel ..?
et pourquoi rajouter une référence par le code ..?

[mustang-f27]

excel 2003

Le but etant d'eviter ajouter la référence manuellement sur chaque pc avant de lancer la macro! (microsoft scripting runtime).

A ce jour j'ai trouvé aucun code qui fonctionne. De plusn le type "reference" est inconnu par excel (voir code ci-dessus: dim v as reference).

Je sais pas si c'est possible!

[SfJ5Rpw8]

ben alors il n'y as rien a faire les références de ton classeur excel sont sauvées en même temps que celui-ci...!!!