Discussion :

[Anaxagore]

Bonjour a tous,

Je vous soumets le pb que je n'arrive pas a résoudre depuis début d'apres midi.
je dois importer environ 30 000 lignes de 51 colonnes toutes les semaines pour des raisons statistiques. J'ouvre le ficheir texte et la parcours sans pb.
Les données collectées sont forcement toutes de type String et donc je convertis en différent type : Date avec CDATE(), Entier avec CInt(), etc.. et j'utilise aussi la fonction Var().
Je constate la chose suivante sur les valeurs numériques :

1) Les data contenus dans la colonnes vont de 1 à 10 donc j'ai déterminé le type de champ a entier. qud j'utilise la fonction Var() en debug.print, il m'affiche la totalité des données soit les 30 000 lignes. Par contre si j'utilise la fonction Clon() il s'arrête a 3 692 avec un type mismatch.
2) Concernant les dates, la fonction CDATE() s'arrete aussi a 3 692 avec le debug.print sur un autre champ.

Cet arret sur la ligne 3 692 m'intrigue bcp. Quelqu'un sait s'il y a une raison pour que ces fonction n'aille pas au dela?

Pour mes test je ne travaille que sur une seule colonne et je mets les autres en commentaire.

Pour ajouter a tout cela, j'ai testé mes 51 colonnes une par une en debug.print sans erreur. Qud je lance l'import dans ma table il se met en erreur à la ligne 3 692 !!!!!

Merci d'avance pour vos réponse afin que je puisse comprendre et résoudre ce problème.

Anax

[LedZeppII]

Bonjour,

Il semblerait que cette fameuse ligne 3 692 a quelque chose de différent des autres lignes.

Sans voir le fichier texte (un extrait d'une dizaine de lignes incluant la 3692) ou ton code,
il est difficile de pouvoir te donner une réponse pertinente.

A+

[Anaxagore]

Bonjour et merci d'avoir pris le temps de lire.
EN y passant une partie de la nuit j'ai trouvé la données qui pose pb mais je ne sais pas comment faire ma gestion d'erreur
ma fameuse données qui est supposé être une date est la suite (elle se trouve dans le fichier attaché)


Le fichier d'export qu'on me fourni est vraiment pourri... je dois contrôler toutes les données.
Si je supprime cette donnée à la main, j'importe mon fichier de 30 000 lignes correctement
Comment puis je faire pour dire : j'ai un pb sur cette ligne et la passer pour continuer l'import?

Merci d'avance pour vos suggestion

Anax

[LedZeppII]

Bonjour,

Voici un exemple de code avec gestion d'erreur :

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
29
30
31
32
33
34
35
36
Sub TestConv()
Dim bErr As Boolean
Dim arrStr(1 To 3), lgIdx As Long
Dim strIn As String
Dim dtDate As Date
 
On Error GoTo GestionErr
 
arrStr(1) = "Déc 05 2009 16:55"
arrStr(2) = "D 05 2009 16:55"
arrStr(3) = "Mar 12 2009 16:55"
 
For lgIdx = 1 To 3
    bErr = False
    strIn = arrStr(lgIdx)
    dtDate = CDate(strIn)
    If bErr = False Then
       ' si pas d'erreur de conversion
       ' ...
    End If
Next
 
Fin:
Exit Sub
 
GestionErr:
Select Case Err.Number
    Case 13 ' Incompatibilité de type
         Debug.Print "Lig:" & Format(lgIdx, "000000") & _
                     " strIn=""" & strIn & """ -> Erreur " & Err.Number & " : " & Err.Description
         bErr = True
         Resume Next
End Select
MsgBox "Erreur " & Err.Number & " : " & Err.Description
Resume Fin
End Sub

Avant chaque conversion on met la variable bErr à Faux.
Si une erreur d'incompatibilité de type (erreur 13) se produit bErr est mise à Vrai.
Après la conversion, on vérifie que bErr est à Faux avant d'exploiter le résultat de la conversion.

Le caractère ¿ (¿) est vraisemblablement un caractère de substitution résultant d'un échec de conversion de page de code.
Ce qui est étrange c'est qu'il codé pour du HTML.

A+

[Anaxagore]

Merci bcp pour ta réponse,

apres bcp de recherche pour comprendre comment améliorer ma gestion des erreur (basé sur ton code), j'ai pu résoudre mon pb.

Mille merci encore une fois a tous pour votre travail

Anax