Discussion :

[munity]

bonsoir le phorum

je lance un appel à l'aide pour la résolution de mon problème
voilà j'ai développé une macro en piochant deci dela sur le site pour importer un fichier délimité
cette macro me cree deux variables que j'utilise pour définir le format et longueur des colonnes
jusque là tout va bien mais lorsque je veux utiliser celle ci j'ai des " avant et après la chaine
ce qui est normal en vba mais je souhaiterai les supprimer, je ne peux pas les convertir en nombre car il s'agit de texte
et les guillement font planter la macro ci dessous au ligne en rouge
j'ai tenté le replace, mid, etc... mais rien n'y fait les "" sont toujours présentes et bloque mon développement

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
61
62
63
64
65

Sub importation_texte_delimité()

'Définition des champs délimités et format
With Sheets("LISTE LONGUEUR ET CHAMPS")
    .Range("b2").FormulaR1C1 = "=R[-1]C[-1]&"",""&RC[-1]"
    .Range("b3:b" & .Range("A" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=R[-1]C&"",""&RC[-1]"
    .Range("d1:d" & .Range("A" & Rows.Count).End(xlUp).Row) = "xlTextFormat"
    .Range("e2").FormulaR1C1 = "=R[-1]C[-1]&"",""&RC[-1]"
    .Range("e3:e" & .Range("A" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=R[-1]C&"",""&RC[-1]"
    TailleColonne = .Range("b" & .Range("A" & Rows.Count).End(xlUp).Row)
    FormatColonne = .Range("e" & .Range("A" & Rows.Count).End(xlUp).Row)
    test = Right(TailleColonne, Len(TailleColonne) - 1)
    test2 = Left(TailleColonne, Len(TailleColonne) - 1)
    laChaine = Replace(TailleColonne, """", "")
    laChaine = Replace(TailleColonne, Chr(160), "")
End With

'Récupération fichier
    Filt = "Fichier Txt (*.txt),*.txt,"
    Title = "Selectionnez un Fichier Txt a Importer : "
    Filename = Application.GetOpenFilename(FileFilter:=Filt, Title:=Title)
    If Filename = False Then
    MsgBox "Aucun fichier choisi"
    Exit Sub
    End If
    ActiveWorkbook.Worksheets.Add
    
'Traitement du fichier
    With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;" & Filename, Destination:=Range("A1"))
        .Name = "fichier"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(FormatColonne) 'type de données
        .TextFileFixedColumnWidths = Array(TailleColonne) 'largeurs des colonnes
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

'Purge données obsolètes
With Sheets("LISTE LONGUEUR ET CHAMPS")
    .Range("a1:e" & .Range("A" & Rows.Count).End(xlUp).Row).ClearContents
End With

End Sub

j'espère avoir un peu d'aide car sinon je suis obligé de faire le copié coller à la main ce qui n'est évidemment pas pratique

merci d'avance

david

[mjpmjp]

bonjour,
tu peu remplacer " par chr(34)
regarde vers Chr(), Asc() et code ASCII

exemple = "tu peu remplacer " & chr(34) & " par chr(34)" --> ce qui correspond à la ligne en dessous de bonjour

@+JP

[munity]

j'ai essayé cela ne me supprime pas les " de la variable qui est en string
avec la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

laChaine = Replace(FormatColonne, Chr(34), "")

cela reste comme ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"4,40,40,40,40,40,40,4,10,8,2,15,4,1,8,1,3,5,2,1,12,8,2"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"xlTextFormat,xlTextFormat,xlTextFormat,xlTextFormat,xlTextFormat"

snif snif

[munity]

la solution serait peut être de un tableau redim etc mais je suis pas trop a l'aise avec ces developpements
un peu d'aide
serait la bienvenue...

[RyuAutodidacte]

Bonjour,

1re chose, je ne vois aucune variable de déclarer dans ta macro !
2 - tu n'expliques ce ce tu veux faire avec tes variables au final
=> expliquer en détails avec les tenants et aboutissants et le but final …
3 - Tu devrais commencer par lire ceci : http://silkyroad.developpez.com/VBA/LesVariables/

[anasecu]

Bonjour à tous,

Je pense (sans avoir testé) que tu devrais essayer ainsi ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        .TextFileColumnDataTypes = FormatColonne 'type de données
        .TextFileFixedColumnWidths =TailleColonne 'largeurs des colonnes

Les guillemets que tu vois sont tout à fait logiques puisque tes zones ne sont pas numériques.

[RyuAutodidacte]

2 - tu n'expliques pas ce ce tu veux faire avec tes variables au final
=> expliquer en détails avec les tenants et aboutissants et le but final …

Voilà ce que j'avais demandé en post #5 vu le manque de clarté

Pour ma part le fichier le suffit pas, il me se serait plus clair de voir visuellement (captures)
- le texte du fichier sur 10 lignes (avec différents types de cas)
- le résultat de l'importation du fichier texte dans Excel
- et le résultat final de ce que tu veux dans Excel

En regardant sur mon phone, j'aurais déjà un aperçu.