'création d'un objet excel Dim appExcel As Excel.Application Set appExcel = CreateObject("Excel.Application") 'ouverture d'un classeur Dim docExcel As Workbook Set docExcel = appExcel.OpenWorkbook ("D:\User\test.xls") 'mise en mémoire d'une feuille du classeur pour l'utiliser par la suite Dim feuille As Worksheet Set feuille = docExcel.Worksheets("Feuil1") 'écriture dans une cellule feuille.Range("A1").Value = "toto" 'sélection d'une plage de cellules feuille.Range("A1:E5").Select 'lecture de la valeur d'une cellule MsgBox feuille.Range("A1").Value 'fermeture du classeur et d'excel docExcel.Close appExcel.Quit 'remise à vide des variables utilisées Set feuille = Nothing Set docExcel = Nothing Set appExcel = Nothing