Type d'argument ByRef incompatible

Résolu/Fermé
Inspiralex Messages postés 2 Date d'inscription vendredi 20 septembre 2013 Statut Membre Dernière intervention 21 septembre 2013 - 20 sept. 2013 à 18:33
Inspiralex Messages postés 2 Date d'inscription vendredi 20 septembre 2013 Statut Membre Dernière intervention 21 septembre 2013 - 21 sept. 2013 à 14:07
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 :

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

2 réponses

Flachy Joe Messages postés 2101 Date d'inscription jeudi 16 septembre 2004 Statut Membre Dernière intervention 7 novembre 2022 257
Modifié par Chris 94 le 21/09/2013 à 15:54
Salut,
L'argument d'Export est de type Action et tu lui passes un tableau d'Action, d'où l'erreur. La solution :
 
Sub Export(ByRef config() As Action)

;-) Flachy Joe ;-)
1