Bonjour, je dois retailler une zone d'un fichier pour l'allonger. Je procède donc par duplication des données dans une table en sortie retaillée mais j'ai un souci avec une zone date qui passe mal dans certains cas. A première vue elle contient bien une date mais le format coince quelque part. Le pire c'est que c'est infime genre une date sur 80.000 mais elle génère le plantage et il faut que je la retape manuellement pour que ça passe.
Quelqu'un aurait-t-il une solution pour contourner le problème ? Merci d'avance pour votre aide
Bonne fin de journée

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 try
 While not TableIn.Eof do
 begin
  TableOut.Append;
  For NbChamp := 0 to TableIn.Fields.Count - 1 do
  begin
   if Not (TableIn.Fields[NbChamp].DataType = ftAutoInc) then
   begin
    NomChamp := TableIn.Fields[NbChamp].FieldName;
    If TableOut.FindField(TableIn.Fields[NbChamp].FieldName) <> Nil then
     TableOut[NomChamp] := TableIn[NomChamp];
   end;
  end;
  try
   TableOut.Post;
  except
   on E:Exception do
   begin
    MessageBox(Application.Handle,
               Pchar('Erreur lors de l''enregistrement dans la base ' + TableOut.TableName + #13 +
               E.Message),
               'Transposition',
               MB_OK or MB_ICONHAND);
    Exit;
   end;
  end;
  TableIn.Next;
 end;