Excell et createobject

Globig Messages postés 39 Date d'inscription lundi 26 mai 2003 Statut Membre Dernière intervention 13 août 2005 - 6 août 2003 à 10:36
Globig Messages postés 39 Date d'inscription lundi 26 mai 2003 Statut Membre Dernière intervention 13 août 2005 - 6 août 2003 à 14:11
Bonjour !
J'ai ceci :

Dim app As excel.Application
Dim wb As excel.Workbook
Dim ws As excel.Worksheet

Set app = CreateObject("excel.Application")
Set wb = app.Workbooks.Open("Feuille de match")
Set ws = wb.Worksheets(1)
etc...

Quand j'exécute j'obtiens me msg d'erreur suivant :

run-time error '429'
activeX component can't create object

Le débugueur situe l'erreur au niveau de la ligne set app = createobject("excell.application")
Que doit-il y avoir entre ses parenthèses ? Je pense que mon erreur vient de là.

Globug

6 réponses

Mooiz Messages postés 128 Date d'inscription mercredi 25 juin 2003 Statut Membre Dernière intervention 8 juillet 2005
6 août 2003 à 10:43
Est ce que tu as bien activé la bibliothèque microsoft excel object ? Si non projet->référence : tu l'active
0
Globig Messages postés 39 Date d'inscription lundi 26 mai 2003 Statut Membre Dernière intervention 13 août 2005
6 août 2003 à 11:13
Oui, j'ai bien activé Microsoft Excell 9.0 Object Library.

Qu'est ce qu'on est censé marquer entre ces parenthèses ?

Globug
0
Mooiz Messages postés 128 Date d'inscription mercredi 25 juin 2003 Statut Membre Dernière intervention 8 juillet 2005
6 août 2003 à 11:52
Ok alors je sais pas exactement ce qu'il faut marquer entre parenthèses pour le createobject, moi j'ai abandonné cette methode j'arrive a rien avec ca. Pour ton problème essaye plutot cette commande :
Set Xls = New Excel.Application
à la place de la ligne createobject, chez moi ca marche
0
Globig Messages postés 39 Date d'inscription lundi 26 mai 2003 Statut Membre Dernière intervention 13 août 2005
6 août 2003 à 12:06
Ouf... c'est déjà mieux.
Mais j'ai un nouveau problème qui est le suivant :

run-time error '438':
object doesn't support this property or method

Le problème viendrait de mon instruction :
app.close (j'ai tapé set app = New Excell.Application)

De plus quand je veux ouvrir ma feuille excell pour vérifier si les opérations ont été correctement effectuées ma feuille ne veut pas s'ouvrir. Je suppose qu'il doit y avoir une instruction pour la fermer correctement.

Globug
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mooiz Messages postés 128 Date d'inscription mercredi 25 juin 2003 Statut Membre Dernière intervention 8 juillet 2005
6 août 2003 à 13:08
Pour quitter je pense que c'est plutot app.quit puis set app = nothing mais il faut faire attention à deux ou trois choses qui sont bien résumées ici

En gros c'est surtout qu'il ne faut pas faire d'appel de procedures excel sans faire reference à ton objet excel (style appeler activecell au lieu de app.activecell) sinon une nouvelle session d'excel est ouverte et tu ne pourra pas la fermer avec les instructions précédente
0
Globig Messages postés 39 Date d'inscription lundi 26 mai 2003 Statut Membre Dernière intervention 13 août 2005
6 août 2003 à 14:11
OK. Ce coup-ci tout marche. Et bien, merci beaucoup !

Globug
0
Rejoignez-nous