Dans un module VBE que j'essaie de mettre en oeuvre j'ai besoin
d'utiliser un activeX (fichier AudioCDDB.ocx) qui permet d'aller chercher
des infos relatives à un CD audio d'une part et des infos dans une base de
données d'autre part (nom album, nom artiste, titres des chansons....).
Cet activeX est bien activé (menu Outils/références de VB Excel 2003).
Il apparait bien dans l'explrateurs d'objets (Bibliothèque :
AudioCDBControl ; Classes : uCDDB; membres de uCDDB : liste des commandes
dont la commande GetCDDB)
Dans mon module j'ai bien :
Sub TotoGA()
Dim x As Variant
x = uCDDB.GetCDDB
End Sub
Mais lorsque je lance ce programme j'ai le message d'erreur :
"Erreur d'execution 424
Objet requis"
Je n'arrive pas à resoudre ce pb. Merci par avance à ceux qui pourraient
m'éclairer.
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
Alain CROS
Bonjour.
Peut être ?
Sub TotoGA() Dim MonAudioCDBControl as New uCDDB Dim x As Variant x = uCDDB.GetCDDB Set MonAudioCDBControl = Nothing End Sub
Alain CROS
"Gaston" a écrit dans le message de news: 426ce18f$0$1234$
Bonjour,
Dans un module VBE que j'essaie de mettre en oeuvre j'ai besoin d'utiliser un activeX (fichier AudioCDDB.ocx) qui permet d'aller chercher des infos relatives à un CD audio d'une part et des infos dans une base de données d'autre part (nom album, nom artiste, titres des chansons....).
Cet activeX est bien activé (menu Outils/références de VB Excel 2003). Il apparait bien dans l'explrateurs d'objets (Bibliothèque : AudioCDBControl ; Classes : uCDDB; membres de uCDDB : liste des commandes dont la commande GetCDDB)
Dans mon module j'ai bien :
Sub TotoGA() Dim x As Variant x = uCDDB.GetCDDB End Sub
Mais lorsque je lance ce programme j'ai le message d'erreur : "Erreur d'execution 424 Objet requis"
Je n'arrive pas à resoudre ce pb. Merci par avance à ceux qui pourraient m'éclairer.
Cdlt
GA
Bonjour.
Peut être ?
Sub TotoGA()
Dim MonAudioCDBControl as New uCDDB
Dim x As Variant
x = uCDDB.GetCDDB
Set MonAudioCDBControl = Nothing
End Sub
Alain CROS
"Gaston" <gaston.andreau@wanadoo.fr> a écrit dans le message de news: 426ce18f$0$1234$8fcfb975@news.wanadoo.fr...
Bonjour,
Dans un module VBE que j'essaie de mettre en oeuvre j'ai besoin
d'utiliser un activeX (fichier AudioCDDB.ocx) qui permet d'aller chercher
des infos relatives à un CD audio d'une part et des infos dans une base de
données d'autre part (nom album, nom artiste, titres des chansons....).
Cet activeX est bien activé (menu Outils/références de VB Excel 2003).
Il apparait bien dans l'explrateurs d'objets (Bibliothèque :
AudioCDBControl ; Classes : uCDDB; membres de uCDDB : liste des commandes
dont la commande GetCDDB)
Dans mon module j'ai bien :
Sub TotoGA()
Dim x As Variant
x = uCDDB.GetCDDB
End Sub
Mais lorsque je lance ce programme j'ai le message d'erreur :
"Erreur d'execution 424
Objet requis"
Je n'arrive pas à resoudre ce pb. Merci par avance à ceux qui pourraient
m'éclairer.
Sub TotoGA() Dim MonAudioCDBControl as New uCDDB Dim x As Variant x = uCDDB.GetCDDB Set MonAudioCDBControl = Nothing End Sub
Alain CROS
"Gaston" a écrit dans le message de news: 426ce18f$0$1234$
Bonjour,
Dans un module VBE que j'essaie de mettre en oeuvre j'ai besoin d'utiliser un activeX (fichier AudioCDDB.ocx) qui permet d'aller chercher des infos relatives à un CD audio d'une part et des infos dans une base de données d'autre part (nom album, nom artiste, titres des chansons....).
Cet activeX est bien activé (menu Outils/références de VB Excel 2003). Il apparait bien dans l'explrateurs d'objets (Bibliothèque : AudioCDBControl ; Classes : uCDDB; membres de uCDDB : liste des commandes dont la commande GetCDDB)
Dans mon module j'ai bien :
Sub TotoGA() Dim x As Variant x = uCDDB.GetCDDB End Sub
Mais lorsque je lance ce programme j'ai le message d'erreur : "Erreur d'execution 424 Objet requis"
Je n'arrive pas à resoudre ce pb. Merci par avance à ceux qui pourraient m'éclairer.
