Bonjour,
je ne sais pas pourquoi lorsque j'exécute ce morceau de code un message d'erreur apparaît disons que les macros sont désactivées alors que moi je les ai déjà activées dans l'onglet centre de gestion de confidentialité,voila le 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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Option Explicit
 
Private Const chemin = "c:\exel\"
 
Public Type Enregistrement
LaDate As Date
Temp1 As Single
Temp2 As Single
Temp3 As Single
Temp4 As Single
Vitesse As Integer
Status As Boolean
Polluant As Byte
RPAM As Long
End Type
 
Public Sub EcrireFichierAleatoire()
Dim NumFichier As Integer, compteur As Long, MyEnr As Enregistrement
NumFichier = FreeFile
Open chemin & "aleatoire.dat" For Random As #NumFichier Len = Len(MyEnr)
For compteur = 3 To Range("data").Rows.Count + 2
With MyEnr
.LaDate = Cells(compteur, 1).Value + Cells(compteur, 2).Value
.Temp1 = Cells(compteur, 3).Value
.Temp2 = Cells(compteur, 4).Value
.Temp3 = Cells(compteur, 5).Value
.Temp4 = Cells(compteur, 6).Value
.Vitesse = Cells(compteur, 7).Value
.Status = Cells(compteur, 8).Value
.Polluant = Cells(compteur, 9).Value
.RPAM = Cells(compteur, 10).Value
End With
Put #NumFichier, , MyEnr
Next compteur
Close #NumFichier
End Sub
 
Public Sub LireFichierAleatoire()
Dim NumFichier As Integer, compteur As Long, MyEnr As Enregistrement
Dim NbEnr As Integer
NumFichier = FreeFile
Open chemin & "aleatoire.dat" For Random As #NumFichier Len = Len(MyEnr)
NbEnr = LOF(1) \ Len(MyEnr)
For compteur = 1 To NbEnr
Get #NumFichier, , MyEnr
With Worksheets("Feuil1")
.Cells(compteur, 1).Value = DateValue(MyEnr.LaDate)
.Cells(compteur, 2).Value = TimeValue(MyEnr.LaDate)
.Cells(compteur, 3).Value = MyEnr.Temp1
.Cells(compteur, 4).Value = MyEnr.Temp2
.Cells(compteur, 5).Value = MyEnr.Temp3
.Cells(compteur, 6).Value = MyEnr.Temp4
.Cells(compteur, 7).Value = MyEnr.Vitesse
.Cells(compteur, 8).Value = MyEnr.Status
.Cells(compteur, 9).Value = MyEnr.Polluant
.Cells(compteur, 10).Value = MyEnr.RPAM
End With
Next compteur
Close #NumFichier
End Sub