Sub ModifierFeuilleExcel() 'Déclaration des variables Dim xlApplication As Object Set xlApplication = CreateObject("excel.application") With xlApplication .Workbooks.Open ("Chemin du Classeur.xls") .sheets("Feuil1").Cells(1, 1) = TextBox1.Value 'valeur à saisir .Save .Quit End With End Sub
Private Sub CommandButton1_Click() ModifierFeuilleExcel End Sub