Discussion :

[Gabrieel]

Bonjour,

soit A ma base de donnée frontal a partir de quel je fait un import d'un fichier csv via transfert text dans une table liée de la base B. voici le message d'erreur que j'ai


j'ai cru que j'avais un probleme avec mes spec d'import ou avec le format du fichier ou avec les paramêtrage des champs, mais j'ai tout testé et j'ai quand même les messsages d'erreur

est ce que c'est possible qu'on ne sache pas faire un import transfert texte dans une table liée?

merci de votre aide
Bien cordialement
G

pour info voici mon code de transfert

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Public Sub ImporteNecarex()
 
                'ATL : le 09/11/2012 : appeler un sélecteur de fichier pour le chargement de fichiers textes
                Dim file_name    As String
                Dim position       As Integer
                Dim dossier         As String
                Dim fd                  As Object
                Dim intI                As Integer
 
                Set fd = Application.FileDialog(msoFileDialogFilePicker)
                fd.Title = "! Sélectionner le fichier Necarex..."             ' Titre de la boîte de dialogue
                fd.AllowMultiSelect = True                              ' Ne pas autoriser la sélection multiple
 
                ' Définir les types de fichiers autorisés
                    fd.Filters.Clear
                    fd.Filters.Add "Tous les fichiers", "*.*"
                    fd.Filters.Add "Excel", "*.csv; *.xls; *.xslx"
 
                ' Présélectionner le 2ème type de fichier (Excel)
                    fd.FilterIndex = 1
 
                ' Afficher la boîte de dialogue
                    If fd.Show() Then
                        'fd.SelectedItems
                            file_name = fd.SelectedItems(1)
                            position = InStrRev(file_name, "\")
 
                            ' Extraire le chemin du dossier à partir du nom de fichier sélectionné
                            If position > 0 Then
                                dossier = Left(file_name, position)
                                DoCmd.RunSQL "delete * from tNecarex"
                                DoCmd.TransferText acImportDelim, "SpecNecarex", "tNecarex", file_name, True
 
                                'nom sans fichier
                                  file_name = Dir(file_name)
                                  intI = InStrRev(file_name, ".", -1, vbTextCompare)
                                    If intI = 0 Then
                                    FilenameWithoutExt = file_name
                                    Else
                                    FilenameWithoutExt = Left(file_name, intI - 1)
                                    End If
                                '
                                'reponse = MsgBox(FilenameWithoutExt)
                                'creation du nom de la table d'erreur a l'import necarex
                                msgerrImportNecarex = FilenameWithoutExt & "_ImportErrors"
 
                                'supprime la table d'erreur a l'import necarex
                                DoCmd.DeleteObject acTable, msgerrImportNecarex
                                On Error Resume Next
 
                            End If  ' If position > 0 Then
                    End If  ' If fd.Show() Then                    
                Set fd = Nothing
 
    '-- Fin du Code de Travail
 
    DoCmd.SetWarnings True
    MsgBox "Tache effectuée", vbOKOnly
 
End Sub

[marot_r]

Bonjour.

Autant que je sache, on peut.

Le message suggère un problème de taille des champs de destination.

• Vérifie la largeur de tes champs textes (personnellement je les définis toujours à 255 c).
• Vérifie la largeur des données textes que tu veux importer (Est-ce qu'elle est bien <= 255 c).
• Et cela peut aussi venir des champs décimaux, vérifie si les décimales sont séparées par un point ou un virgule dans ton fichier CSV.
• Vérifie aussi le séparateur de champ et les délimiteurs de champ texte dans le fichier CSV.

Si tes contrôles ne donnent rien, crée un fichier CSV qui ne comporte que une et une seule ligne vide (juste des séparateurs les uns à la suite des autres) avec entête éventuellement et vois si tu peux l'importer.
Si cela marche essaye avec u fichier avec une ligne avec des données, puis une dizaine de lignes.
Si cela passe c'est que cela vient probablement de tes données.

A+