salut, peut-être en appellant un objet de la bibliothèque et en provoquant une erreur ou non... -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Sylvain" a écrit dans le message de news: 090c01c3c966$9331afa0$ Bonjour,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Merci Sylvain
salut,
peut-être en appellant un objet de la bibliothèque et en provoquant une
erreur ou non...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Sylvain" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 090c01c3c966$9331afa0$a401280a@phx.gbl...
Bonjour,
Comment pourrais-je vérifier en VBA si une référence est
active ou non ?
salut, peut-être en appellant un objet de la bibliothèque et en provoquant une erreur ou non... -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Sylvain" a écrit dans le message de news: 090c01c3c966$9331afa0$ Bonjour,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Merci Sylvain
Clément Marcotte
La même question 3 fois en même pas 5 heures. Ici ce sont des bénévoles, pas des esclaves.
"Sylvain" a écrit dans le message de news:090c01c3c966$9331afa0$ Bonjour,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Merci Sylvain
La même question 3 fois en même pas 5 heures. Ici ce sont des
bénévoles, pas des esclaves.
"Sylvain" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:090c01c3c966$9331afa0$a401280a@phx.gbl...
Bonjour,
Comment pourrais-je vérifier en VBA si une référence est
active ou non ?
La même question 3 fois en même pas 5 heures. Ici ce sont des bénévoles, pas des esclaves.
"Sylvain" a écrit dans le message de news:090c01c3c966$9331afa0$ Bonjour,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Merci Sylvain
Pascal Engelmajer
Salut Clément, la redondance est parfois utile ... la persévérence aussi... -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Clément Marcotte" a écrit dans le message de news:
La même question 3 fois en même pas 5 heures. Ici ce sont des bénévoles, pas des esclaves.
"Sylvain" a écrit dans le message de news:090c01c3c966$9331afa0$ Bonjour,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Merci Sylvain
Salut Clément,
la redondance est parfois utile ...
la persévérence aussi...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: uV09zpWyDHA.3220@tk2msftngp13.phx.gbl...
La même question 3 fois en même pas 5 heures. Ici ce sont des
bénévoles, pas des esclaves.
"Sylvain" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:090c01c3c966$9331afa0$a401280a@phx.gbl...
Bonjour,
Comment pourrais-je vérifier en VBA si une référence est
active ou non ?
Salut Clément, la redondance est parfois utile ... la persévérence aussi... -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Clément Marcotte" a écrit dans le message de news:
La même question 3 fois en même pas 5 heures. Ici ce sont des bénévoles, pas des esclaves.
"Sylvain" a écrit dans le message de news:090c01c3c966$9331afa0$ Bonjour,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Merci Sylvain
michdenis
Bonjour Sylvain,
Un début de solution à ton message précédent !
Salutations!
"Sylvain" a écrit dans le message de news:090c01c3c966$9331afa0$ Bonjour,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Merci Sylvain
Bonjour Sylvain,
Un début de solution à ton message précédent !
Salutations!
"Sylvain" <anonymous@discussions.microsoft.com> a écrit dans le message de news:090c01c3c966$9331afa0$a401280a@phx.gbl...
Bonjour,
Comment pourrais-je vérifier en VBA si une référence est
active ou non ?
"Sylvain" a écrit dans le message de news:090c01c3c966$9331afa0$ Bonjour,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Merci Sylvain
michdenis
Bonjour Sylvain,
Voici un exemple comment savoir si une macro complémentaire est chargé ou non à partir de ton code :
'----------------------------- Sub TestMaRéférence()
MsgBox AddInOpen("eurotool.XLA")
End Sub '-----------------------------
'----------------------------- 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!
"Sylvain" a écrit dans le message de news:090c01c3c966$9331afa0$ Bonjour,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Merci Sylvain
Bonjour Sylvain,
Voici un exemple comment savoir si une macro complémentaire est chargé ou non à partir de ton code :
'-----------------------------
Sub TestMaRéférence()
MsgBox AddInOpen("eurotool.XLA")
End Sub
'-----------------------------
'-----------------------------
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!
"Sylvain" <anonymous@discussions.microsoft.com> a écrit dans le message de news:090c01c3c966$9331afa0$a401280a@phx.gbl...
Bonjour,
Comment pourrais-je vérifier en VBA si une référence est
active ou non ?
Voici un exemple comment savoir si une macro complémentaire est chargé ou non à partir de ton code :
'----------------------------- Sub TestMaRéférence()
MsgBox AddInOpen("eurotool.XLA")
End Sub '-----------------------------
'----------------------------- 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!
"Sylvain" a écrit dans le message de news:090c01c3c966$9331afa0$ Bonjour,
Comment pourrais-je vérifier en VBA si une référence est active ou non ?
Merci Sylvain
Frédéric Sigonneau
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
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 ?
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
michdenis
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
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 ?
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
Frédéric Sigonneau
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
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 ?
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
michdenis
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
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 ?
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
Sylvain
Merci pour cette fonction, cela fonctionne très bien.
Sylvain
-----Message d'origine----- 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 = _ "Microsoft Visual Basic for Applications Extensibility 5.3"
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
.
Merci pour cette fonction, cela fonctionne très bien.
Sylvain
-----Message d'origine-----
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 = _
"Microsoft Visual Basic for Applications
Extensibility 5.3"
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
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
