OK Denis, je comprends mieux (ce post m'avait échappé). "Sylvain" semble d'ailleurs poursuivre sur cette voie (les macros complémentaires) avec une version modifiée de cette fonction (mercredi 11:19).
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 !
Bonsoir Frédéric,
Cette fonction accompagnait la même question sur un autre fil précédent (aujourd'hui, 5 hres 15 (Québec)) celui-ci : Voilà la fonction : Le texte de la question parle de références à ajouter.
'----------------------------- Function AddInOpen(Filename As String) As Boolean
'Returns: Boolean - True si l'add-in est ouvert ' false sinon AddInOpen = Not IsError(Application. _ ExecuteExcel4Macro("DOCUMENTS(2,""" _ & Filename & """)")) End Function '-----------------------------
Salutations!
"Frédéric Sigonneau" a écrit dans le message de news: Bonsoir Denis,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Je ne comprends pas ta remarque :( Je ne vois pas où Sylvain parle d'addin et, du coup, ce qui n'est pas clair... Qu'est-ce que j'ai loupé ?
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 !
Bonsoir Frédéric,
Ce n'est pas clair si Sylvain parle dans sa question de référence ou addin ... et les réponses qu'il a reçu ne l'aideront pas
nécessairement à faire la différence entre ces 2 objets.
;-))
Salutations!
"Frédéric Sigonneau" a écrit dans le message de news: Bonsoir,
Ce genre de code pourrait te dépanner (attention à bien tenir compte des commentaires de la procédure test) :
'===================== > > Sub test() 'attention à saisir les noms des références en respectant la casse 'les noms sont ceux qui figurent dans la liste affichée par OutilsRéférences) Dim NomClasseur$, LaReference$
LaReference = "Visual Basic For Applications" MsgBox ReferenceCochée(ThisWorkbook.Name, LaReference)
End Sub
Function ReferenceCochée(Classeur$, DescriptionRef$) As Boolean On Error Resume Next With Workbooks(Classeur).VBProject For i = 1 To .References.Count If .References(i).Description = DescriptionRef Then ReferenceCochée = True Next i End With End Function 'fs '===================== > > 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,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Merci Sylvain
OK Denis, je comprends mieux (ce post m'avait échappé).
"Sylvain" semble d'ailleurs poursuivre sur cette voie (les macros
complémentaires) avec une version modifiée de cette fonction (mercredi 11:19).
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 !
Bonsoir Frédéric,
Cette fonction accompagnait la même question sur un autre fil précédent (aujourd'hui, 5 hres 15 (Québec)) celui-ci : Voilà
la fonction :
Le texte de la question parle de références à ajouter.
'-----------------------------
Function AddInOpen(Filename As String) As Boolean
'Returns: Boolean - True si l'add-in est ouvert
' false sinon
AddInOpen = Not IsError(Application. _
ExecuteExcel4Macro("DOCUMENTS(2,""" _
& Filename & """)"))
End Function
'-----------------------------
Salutations!
"Frédéric Sigonneau" <frederic.sigonneau@wanadoo.fr> a écrit dans le message de news:3FE8D133.E61F2F4B@wanadoo.fr...
Bonsoir Denis,
Comment pourrais-je vérifier en VBA si une référence est
active ou non ?
Je ne comprends pas ta remarque :(
Je ne vois pas où Sylvain parle d'addin et, du coup, ce qui n'est pas clair...
Qu'est-ce que j'ai loupé ?
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 !
Bonsoir Frédéric,
Ce n'est pas clair si Sylvain parle dans sa question de référence ou addin ... et les réponses qu'il a reçu ne l'aideront
pas
nécessairement à faire la différence entre ces 2 objets.
;-))
Salutations!
"Frédéric Sigonneau" <frederic.sigonneau@wanadoo.fr> a écrit dans le message de news:3FE8C133.4102287A@wanadoo.fr...
Bonsoir,
Ce genre de code pourrait te dépanner (attention à bien tenir compte des
commentaires de la procédure test) :
'===================== > > Sub test()
'attention à saisir les noms des références en respectant la casse
'les noms sont ceux qui figurent dans la liste affichée par OutilsRéférences)
Dim NomClasseur$, LaReference$
LaReference = "Visual Basic For Applications"
MsgBox ReferenceCochée(ThisWorkbook.Name, LaReference)
End Sub
Function ReferenceCochée(Classeur$, DescriptionRef$) As Boolean
On Error Resume Next
With Workbooks(Classeur).VBProject
For i = 1 To .References.Count
If .References(i).Description = DescriptionRef Then ReferenceCochée = True
Next i
End With
End Function 'fs
'===================== > >
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,
Comment pourrais-je vérifier en VBA si une référence est
active ou non ?
OK Denis, je comprends mieux (ce post m'avait échappé). "Sylvain" semble d'ailleurs poursuivre sur cette voie (les macros complémentaires) avec une version modifiée de cette fonction (mercredi 11:19).
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 !
Bonsoir Frédéric,
Cette fonction accompagnait la même question sur un autre fil précédent (aujourd'hui, 5 hres 15 (Québec)) celui-ci : Voilà la fonction : Le texte de la question parle de références à ajouter.
'----------------------------- Function AddInOpen(Filename As String) As Boolean
'Returns: Boolean - True si l'add-in est ouvert ' false sinon AddInOpen = Not IsError(Application. _ ExecuteExcel4Macro("DOCUMENTS(2,""" _ & Filename & """)")) End Function '-----------------------------
Salutations!
"Frédéric Sigonneau" a écrit dans le message de news: Bonsoir Denis,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Je ne comprends pas ta remarque :( Je ne vois pas où Sylvain parle d'addin et, du coup, ce qui n'est pas clair... Qu'est-ce que j'ai loupé ?
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 !
Bonsoir Frédéric,
Ce n'est pas clair si Sylvain parle dans sa question de référence ou addin ... et les réponses qu'il a reçu ne l'aideront pas
nécessairement à faire la différence entre ces 2 objets.
;-))
Salutations!
"Frédéric Sigonneau" a écrit dans le message de news: Bonsoir,
Ce genre de code pourrait te dépanner (attention à bien tenir compte des commentaires de la procédure test) :
'===================== > > Sub test() 'attention à saisir les noms des références en respectant la casse 'les noms sont ceux qui figurent dans la liste affichée par OutilsRéférences) Dim NomClasseur$, LaReference$
LaReference = "Visual Basic For Applications" MsgBox ReferenceCochée(ThisWorkbook.Name, LaReference)
End Sub
Function ReferenceCochée(Classeur$, DescriptionRef$) As Boolean On Error Resume Next With Workbooks(Classeur).VBProject For i = 1 To .References.Count If .References(i).Description = DescriptionRef Then ReferenceCochée = True Next i End With End Function 'fs '===================== > > 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,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
