CODES SOURCES

- UTILISATION DE EXCEL -

 

 

Remarques : le code source de ce programme n'est pas optimisé car l'application ne contient pas de gestion d'erreurs. Par exemple, lors de l'execution vous ne pourrez pas utiliser le bouton "saisir texte" (sinon une erreur système sera retournée) si vous n'avez pas utilisé le bouton "ouvrir Excel" auparavant ou si vous avez fermé Excel entre temps. L'objectif étant uniquement de vous renseigner sur les instructions qui peuvent être utilisées avec Excel.

 

L'interface :

 

Le code source :

 

'(Général)
Dim MonExcel As New Excel.Application    'Création de l'objet Excel


Private Sub CmdEnregistrer_Click()
'Enregistrer sous "C:\MonDocument.doc"
MonExcel.ActiveWorkbook.SaveAs ("C:\MonDocument.doc")
End Sub

Private Sub ChargerCmd_Click()
MonExcel.Workbooks.Open ("C:\MonDocument.xls") 'Ouvrir un classeur
MonExcel.Visible = True 'Le rendre visible
End Sub

Private Sub CmdText_Click()
MonExcel.Sheets("feuil2").Select      'Selection d'une feuille
MonExcel.Range("B2") = "Bonjour"      'Ecriture d'un texte dans la cellule B2
MonExcel.Range("B3") = "=2+2"         'Ecriture d'une formule de calcul
MonExcel.Range("B2").Copy             'Copier une cellule B2
MonExcel.Range("C2").PasteSpecial     'Coller dans la cellule C2
End Sub

Private Sub Form_DblClick()
MonExcel.Visible = False        'Cacher le classeur
End Sub

Private Sub Form_Unload(Cancel As Integer)
MonExcel.ActiveWorkbook.SaveAs     'Enregistrer le classeur
MonExcel.Quit                  'Fermer l'objet Excel
End Sub

Private Sub GraphCmd_Click()
MonExcel.ActiveWorkbook.Charts.Add 'Ajouter un graphique
MonExcel.Worksheets.Add  'Ajouter une feuille
MonExcel.Sheets("Feuil4").Name = "MonTableau"    'Renommer une feuille
MonExcel.Range("A1") = "ANNEE"  'Saisie des valeurs du tableau
MonExcel.Range("B1") = "2001"
MonExcel.Range("C1") = "2002"
MonExcel.Range("A2") = "CA"
MonExcel.Range("B2") = "15000"
MonExcel.Range("C2") = "17500"
MonExcel.Range("B1", "C2").Select 'Selection des valeurs du tableau
MonExcel.Charts.Add     'Création du graphique
End Sub

Private Sub OuvrirCmd_Click()
MonExcel.Visible = True    'Affichage de l'objet Excel
MonExcel.Workbooks.Add   'Ajout d'un nouveau classeur
'Enregistrer sous "C:\MonDocument.xls"
MonExcel.ActiveWorkbook.SaveAs ("C:\MonDocument.xls")
End Sub

 

 

 

 

   

 

          ©Copyright Webmaster 2002