Dim exc As xls.Application = CreateObject("Excel.Application") If exc Is Nothing Then MessageBox.Show("erreur!") End If Dim exc As xls.Application = CreateObject("Excel.Application") 'ouverture du workbook Dim WorkBook As xls.Workbook = exc.Workbooks.Open(TextBox1.Text) ' selection de Feuille1 Dim Feuille As xls.Worksheet = WorkBook.Worksheets(1) Dim R1C1, j, cpt As Single ' For j = 16 To 270 j = 16 R1C1 = 539 For cpt = 0 To 254 exc.Cells(R1C1 + cpt, 16).value = "=20*LOG(" & "(B" & R1C1 + cpt & ")/36)+C" & j + cpt Next WorkBook.Save() exc.Quit()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question