3  Commencez par Tapez le code VBA suivant pour créer un nouveau sous procédure : 
 
 createSpreadSheet Private Sub () de 
 4 
 Continuer en tapant le code suivant pour créer trois nouveaux objets variables qui seront utilisées pour créer la feuille de calcul Excel : 
 
 Dim newExcelApp Comme Excel.application 
 
 newWbk As Excel.Workbook 
 
 newWkSheet As Excel.Worksheet 
 5 
 Ajoutez le code suivant pour lancer Excel et afficher: 
 
 Set newExcelApp = Excel.Application 
 
 newExcelApp.Visible = True 
 6 
 Tapez la commande suivante pour ajouter un nouveau classeur et une feuille de calcul : 
 
 Set newWbk = newExcelApp.Workbooks.Add 
 
 Set newWkSheet = newWbk.Worksheets (1) 
 7 
 ajouter des données sur votre nouvelle feuille de calcul en tapant la commande suivante : . 
 
 newWkSheet.Cells (1, 1 ) value = " nouvelle feuille de calcul ... " 
 8 
 enregistrer le nouveau classeur créé en tapant le code suivant : 
 
 newWkSheet.SaveAs (" C: \\ myworksheet.xlsx " ) 
 9 
 Modifier le chemin à l'étape précédente et entrez le chemin et le nom de fichier de votre choix 
 10 
 tapez le texte suivant à la fin de la procédure sous : . 
 
 End Sub 
 
 11 
 Appuyez sur " F5 " pour exécuter votre procédure et de créer une nouvelle feuille de calcul Excel.