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