Bonjour tt le monde
J'aimerai savoir s'il existait un moyen de recuperer toute=20
la liste des r=E9f=E9rences disponibles dans VBA pour=20
l'inserer dans un document texte? Nom et emplacement de la=20
librairie.=20
Merci =E0 vous !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Frédéric Sigonneau
Bonsoir,
Pas très élégant mais si tu es patient, tu arriveras à tes fins : Dans le VBAProject d'un classeur, coche dans l'éditeur Visual Basic les références des bibliothèques sur lesquelles tu veux des renseignements (je n'ai pas poussé les essais très loin, j'en ai coché une centaine, mais a priori tu peux en cocher autant que tu veux). Puis recopie ce code dans un module standard de ce projet et exécute le :
Sub ListeReferences() Dim i With ThisWorkbook.VBProject.References Sheets.Add For i = 1 To .Count Cells(i, 1).Value = .Item(i).Name Cells(i, 2).Value = .Item(i).FullPath Cells(i, 3).Value = .Item(i).Description Next i Columns("A:C").AutoFit End With End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour tt le monde J'aimerai savoir s'il existait un moyen de recuperer toute la liste des références disponibles dans VBA pour l'inserer dans un document texte? Nom et emplacement de la librairie. Merci à vous !
Niko
Bonsoir,
Pas très élégant mais si tu es patient, tu arriveras à tes fins :
Dans le VBAProject d'un classeur, coche dans l'éditeur Visual Basic les
références des bibliothèques sur lesquelles tu veux des renseignements (je n'ai
pas poussé les essais très loin, j'en ai coché une centaine, mais a priori tu
peux en cocher autant que tu veux). Puis recopie ce code dans un module standard
de ce projet et exécute le :
Sub ListeReferences()
Dim i
With ThisWorkbook.VBProject.References
Sheets.Add
For i = 1 To .Count
Cells(i, 1).Value = .Item(i).Name
Cells(i, 2).Value = .Item(i).FullPath
Cells(i, 3).Value = .Item(i).Description
Next i
Columns("A:C").AutoFit
End With
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour tt le monde
J'aimerai savoir s'il existait un moyen de recuperer toute
la liste des références disponibles dans VBA pour
l'inserer dans un document texte? Nom et emplacement de la
librairie.
Merci à vous !
Pas très élégant mais si tu es patient, tu arriveras à tes fins : Dans le VBAProject d'un classeur, coche dans l'éditeur Visual Basic les références des bibliothèques sur lesquelles tu veux des renseignements (je n'ai pas poussé les essais très loin, j'en ai coché une centaine, mais a priori tu peux en cocher autant que tu veux). Puis recopie ce code dans un module standard de ce projet et exécute le :
Sub ListeReferences() Dim i With ThisWorkbook.VBProject.References Sheets.Add For i = 1 To .Count Cells(i, 1).Value = .Item(i).Name Cells(i, 2).Value = .Item(i).FullPath Cells(i, 3).Value = .Item(i).Description Next i Columns("A:C").AutoFit End With End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour tt le monde J'aimerai savoir s'il existait un moyen de recuperer toute la liste des références disponibles dans VBA pour l'inserer dans un document texte? Nom et emplacement de la librairie. Merci à vous !
