Passer un record en paramètre

[DuyBinh]

Bonjour,

Je n'arrive pas dans mes macros à passer en paramètre des types plus évolués genre record, workbook, worksheet, etc... Même en rajoutant des ByVal ou ByRef, je me prends toujours une erreur de typage. Un exemple:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub HeaderFormat(ByRef rs As Recordset, ByRef xlSheet As Worksheet)
 
    For J = 0 To rs.Fields.Count - 1
        xlSheet.Cells(1, J + 1) = rs.Fields(J).Name
        ' Nous appliquons des enrichissements de format aux cellules
        With xlSheet.Cells(1, J + 1)
            .Interior.ColorIndex = 15
            .Interior.Pattern = xlSolid
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).Weight = xlThin
            .Borders(xlEdgeBottom).ColorIndex = xlAutomatic
            .HorizontalAlignment = xlCenter
        End With
    Next J
 
End Sub

[Kloun]

Bonjour,

Comment appelles-tu la fonction ?

[DuyBinh]

Code :

Call HeaderFormat(rs, xlSheet)

j'ai aussi tenté

Code :

Call HeaderFormat(Byref rs,Byref xlSheet)

De même pour Byval.

[Kloun]

Code :

HeaderFormat rs, xlSheet

rs est bien un Recordset (il faudrait préciser DAO ou ADODB) ?
xlSheet est bien un Worksheet ?

[DuyBinh]

C'est exact rs = recordset et xlSheet une worksheet. Mais en faisant l'appel sans le call, je me prends toujours l'erreur 13: incompatibilité de type...

[Kloun]

Si dans la focntion/sub appelante, tu as bien

Code :

1
2
dim rs as recordset
dim xlSheet as worksheet

je ne vois pas d'où peut venir le problème.

[DuyBinh]

Oui variables déclarés et pas null. Si je mets uniquement un string ou un integer, ça passe si je mets un type plus évolué ça ne passe plus.