Bonjour je souhaite écrire des valeurs dans un fichier excel lorsuqe j'appele la procédure enregistrement_mesures.
Mais j'ai un soucis en effet, seulement "Enregistrement des mesures" est afficehr dans mon fichier titi.xls alros que mon tableua pour remplir les autres cases contient des données.
Pouvez vous m'aider?
Merci.
voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44 Private Sub enregistrement_mesures() 'enregistrement des mesures dans un fichier excel 'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel Dim i As Integer 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert 'appExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant 'Récupération du classeur par défaut 'Set wbExcel = appExcel.ActiveWorkbook 'Récupération de la feuille par défaut 'Set wsExcel = wbExcel.ActiveSheet 'appExcel.Visible = True Set wbExcel = appExcel.Workbooks.Open("C:\titi.xls") Set wsExcel = wbExcel.Worksheets(1) wsExcel.Cells(1, 1).value = "Enregistrement des mesures" For i = 1 To i = 100 wsExcel.Cells(i, 2).value = tension_mesuree(i - 1, 0) Next i 'wbExcel.SaveAs ("C:\titi.xls") wbExcel.Close appExcel.Quit Set wsExcel = Nothing Set wbExcel = Nothing Set appExcel = Nothing End Sub
Partager