Bonjour,
Dans les fonctions il y avait des problèmes de police.
Je pense qu'au Kazakhstan les N° et les é ne sont pas les bienvenus.
Function AddEchant()
AddData "t_echantillons", VBA.Array("fc_bonsortie", "NÁ de BdS", "fc_nprojet", "NÁ projet", "fc_categorie", "Categorie", "fc_detail", "D_tails", "fc_date", "Date", "fc_ville", "Ville" _
, "fc_destinataire", "Destinataire")
End Function
Function AddDep()
AddData "t_depenses", VBA.Array("fc_bonsortie", "NÁ de BdS", "fc_nprojet", "NÁ projet", "fc_categorie", "Categorie", "fc_detail", "D_tails", "fc_date", "Date", "fc_ville", "Ville" _
, "fc_destinataire", "Destinataire")
End Function