bonjour Steph , bonjour cher ami @+Thierry
pour que des champs acceptent des enregistrements Null , tu peux tester
Dim j As Integer
'....
'
With tbl
.Name = maNouvelleTable
With .Columns
.Append 'Année comptable' 'Champs 0
.Append 'Mois comptable' 'Champs 1
.Append 'Compte' 'Champs 2
.Append 'Code Déposit' 'Champs 3
.Append 'Devise' 'Champs 4
.Append 'Compte BBH' 'Champs 5
.Append 'Année référence' 'Champs 6
.Append 'Mois référence' 'Champs 7
.Append 'Périodicité' 'Champs 8
.Append 'Nb mois' 'Champs 9
.Append 'Nature' 'Champs 10
.Append 'TDB Encours (LDP €)', adDouble 'Champs 11 Numeric
.Append 'Encours facturé (devise)', adDouble 'Champs 12 Numeric
.Append 'Encours facturé (€)', adDouble 'Champs 13 Numeric
.Append 'Volume', adDouble 'Champs 14 Numeric
.Append 'Tarif (devise) ou pb annuels', adDouble 'Champs 15 Numeric
.Append 'Montant (devise)', adDouble 'Champs 16 Numeric
.Append 'Montant (€)', adDouble 'Champs 17 Numeric
End With
End With
For j = 0 To Tbl.Columns.Count - 1
Tbl.Columns(j).Attributes = adColNullable
Next j
'...
Cat.Tables.Append Tbl
bonne journée
MichelXld