Erreur("l'objet ne gére pas cette propriété&q

Bonjour,
je veux écrire un programme en VB6.0 qui pilote Excel
j'a trouve cette procedure mais lors de l'execution il n'accepte pas le "Range("A1").

Private Sub BtnLancerXL_Click()

Set MonXL= New Excel.Application 'Ceci initialise la variable et charge Excel en arrière plan

MonXL.Visible = True Rend Excel visible, ce n'est pas indispensable, mais plus spectaculaire...

MonXL.Workbooks.Add 'Ajoute un nouveau classeur

MonXL.Range("A1").Value=Valeur1.Text 'Envoie le contenu des textboxes dans les cellules
MonXL.Range("A2").Value=Valeur2.Text
MonXL.Range("A3").Value=Valeur3.Text

MonXL.Range("A1:A3").Select 'Assure la sélection des trois cellules

MonXL.Charts.Add 'Ajoute un graphique au classeur courant en s'inpirant des données sélectionnées

MonXL.ActiveChart.ChartType=XL3DPie 'Transforme le graphique en Secteur 3D

MonXL.ActiveChart.PrintOut 'Imprime le graphique

MonXl.ActiveWorkbook.Close False 'Ferme le classeur sans enregistrer

MonXL.Quit 'Quitte Excel