ajouter une référence à "VBE Extensibility Library 5.3"

Salut lolo,

Peut-être peux-tu t'inspirer de ceci ?

http://perso.wanadoo.fr/frederic.sigonneau/code/VBE/AjouterSupprimerReference.txt


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"-=lolol=-" <polytekNOSPAM@free.fr> a écrit dans le message de
news:eRhgrvuJEHA.3184@TK2MSFTNGP10.phx.gbl...

Bonjour à tous :-)

Voilà un bout de temps que je n'avais touché à mon VBA et je me retrouve
perdu pour un petit truc ... la vie est dure ;...(

Dans un Workbook_Open, je voudrais ajouter une référence à "Microsoft Visual
Basic for Applications Extensibility 5.3"

Probablement un truc à base de "ThisWorkbook.VBProject.References...." mais
il me manque la fin !

Pouvez vous m'aider ?
Par avance merci
@+lolo

Salut Jean-François, merci pour ta réponse.

sur le site de Frédéric, dans ces exemples, je n'ai pas trouver la syntaxe
exacte qui définie le "Microsoft Visual Basic for Applications Extensibility
5.3"

Dans l'exemple :
nomRef = "C:Program FilesFichiers communsMicrosoft SharedDAODao360.dll"
ThisWorkbook.VBProject.References.AddFromFile nomRef

Quel est le nom de la dll pour "Microsoft Visual Basic for Applications
Extensibility 5.3" ?

merci pour tes précisions
@+lolo

Salut lolo,


j'ai lancé la proc ci dessous (toujours tirée du site de Frédéric),
une fois avec la "Microsoft Visual Basic for Applications
Extensibility 5.3" décochée et une fois cochée.

une petite comparaison et cela m'a donné ceci:
C:Program FilesFichiers communsMicrosoft SharedVBAVBA6VBE6EXT.OLB

'********************************************
'Attribute VB_Name = "ReferencesVBAProject"

'infos sur les références d'un projet (envoyées dans une feuille de calcul)

'= = = = = = = = = = = = = = = = = = = = = Sub AddInnsInformation()
' Examines VBA References
' Dana DeLouis
' modif fs
Dim objReferences As Object
Dim objReference As Object

Set objReferences = ThisWorkbook.VBProject.References

For i = 1 To objReferences.Count
With objReferences(i)
Cells(i, 1).Value = "Name:= " & .Name
Cells(i, 2).Value = "Guid:= " & .GUID
Cells(i, 3).Value = "Type:= " & .Type
Cells(i, 4).Value = "FullPath:= " & .FullPath
End With
Next i

Set objReferences = Nothing
End Sub


'..............................................................................

'***************************************

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"-=lolol=-" <polytekNOSPAM@free.fr> a écrit dans le message de
news:e4I5jk5JEHA.624@TK2MSFTNGP11.phx.gbl...

Salut Jean-François, merci pour ta réponse.

sur le site de Frédéric, dans ces exemples, je n'ai pas trouver la syntaxe
exacte qui définie le "Microsoft Visual Basic for Applications Extensibility
5.3"

Dans l'exemple :
nomRef = "C:Program FilesFichiers communsMicrosoft SharedDAODao360.dll"
ThisWorkbook.VBProject.References.AddFromFile nomRef

Quel est le nom de la dll pour "Microsoft Visual Basic for Applications
Extensibility 5.3" ?

merci pour tes précisions
@+lolo

Salut Jean-François,
Super merci, je me lance avec ça, je pense que ça va "gazer terrible" !!!
cordialement
@+lolo

Salut lolo,


j'ai lancé la proc ci dessous (toujours tirée du site de Frédéric),
une fois avec la "Microsoft Visual Basic for Applications
Extensibility 5.3" décochée et une fois cochée.

une petite comparaison et cela m'a donné ceci:
C:Program FilesFichiers communsMicrosoft
SharedVBAVBA6VBE6EXT.OLB

'********************************************
'Attribute VB_Name = "ReferencesVBAProject"

'infos sur les références d'un projet (envoyées dans une feuille de
calcul)

'= = = = = = = = = = = = = = = = = = = = = > Sub AddInnsInformation()
' Examines VBA References
' Dana DeLouis
' modif fs
Dim objReferences As Object
Dim objReference As Object

Set objReferences = ThisWorkbook.VBProject.References

For i = 1 To objReferences.Count
With objReferences(i)
Cells(i, 1).Value = "Name:= " & .Name
Cells(i, 2).Value = "Guid:= " & .GUID
Cells(i, 3).Value = "Type:= " & .Type
Cells(i, 4).Value = "FullPath:= " & .FullPath
End With
Next i

Set objReferences = Nothing
End Sub



'...........................................................................

...

'***************************************


"-=lolol=-" <polytekNOSPAM@free.fr> a écrit dans le message de
news:e4I5jk5JEHA.624@TK2MSFTNGP11.phx.gbl...

Salut Jean-François, merci pour ta réponse.

sur le site de Frédéric, dans ces exemples, je n'ai pas trouver la
syntaxe exacte qui définie le "Microsoft Visual Basic for
Applications Extensibility
5.3"

Dans l'exemple :
nomRef = "C:Program FilesFichiers communsMicrosoft
SharedDAODao360.dll" ThisWorkbook.VBProject.References.AddFromFile
nomRef

Quel est le nom de la dll pour "Microsoft Visual Basic for
Applications Extensibility 5.3" ?

merci pour tes précisions
@+lolo