Bonjour,

j'ai un message d'erreur à l'exécution de mon code mais je ne comprends pas pourquoi. Est-ce que quelqu'un a une idée pour résoudre ce problème ?

Merci d'avance.

Voici l'erreur que j'ai à l'exécution de mon code :
"Erreur de compilation:
Type d'argument ByRef incompatible"

Et voici mon code qui est assez simple :

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
 
Option Explicit
 
Type RF
    site As String
    tranche As String
End Type
 
Type Action
    equipement As RF
    position As String
End Type
 
Sub Export(ByRef config As Action)
    'Ecrit dans le fichier txt
    Dim chemin As String
    Dim ligne As Integer
 
    chemin = "C:\Users\utilisateur\Desktop\Export.csv"
    Open chemin For Output As #1
    For ligne = 0 To UBound(config)
        Print #1, config(ligne).position,
    Next ligne
    Close #1
    MsgBox ("Export effectué avec succès !")
End Sub
 
Sub main()
    Dim equipement1 As RF
    Dim equipement2 As RF
    Dim config(2) As Action
 
    equipement1.site = "SITE1"
    equipement1.tranche = "TRANCHE1"
 
    equipement2.site = "SITE2"
    equipement2.tranche = "TRANCHE2"
 
    config(0).equipement = equipement1
    config(0).position = "POSITION1"
 
    config(1).equipement = equipement2
    config(1).position = "POSITION2"
 
    Call Export(config)
End Sub