[MichelXld]

bonsoir Solenfou

tu peux remplacer les constantes par leurs valeurs

With .Columns
.Append 'Date', 202, 10
.Append 'Number', 3, 10
.Append 'Number2', 3, 10
.Append 'Document', 202, 50
.Append 'Name', 202, 80
.Append 'AKA', 202, 80
.Append 'City', 202, 50
.Append 'Country', 202, 50
End With




la liste :

AdArray 0x2000
adBigInt 20
adBinary 128
adBoolean 11
adBSTR 8
adChapter 136
adChar 129
adCurrency 6
adDate 7
adDBDate 133
adDBTime 134
adDBTimeStamp 135
adDecimal 14
adDouble 5
adEmpty 0
adError 10
adFileTime 64
adGUID 72
adIDispatch 9
adInteger 3
adIUnknown 13
adLongVarBinary 205
adLongVarChar 201
adLongVarWChar 203
adNumeric 131
adPropVariant 138
adSingle 4
adSmallInt 2
adTinyInt 16
adUnsignedBigInt 21
adUnsignedInt 19
adUnsignedSmallInt 18
adUnsignedTinyInt 17
adUserDefined 132
adVarBinary 204
adVarChar 200
adVariant 12
adVarNumeric 139
adVarWChar 202
adWChar 130




bonne soirée
MichelXld