Suppression des guillemets autour d'une variable

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

22/11/2017, 21h07
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 :mouarf:

@+JP
22/11/2017, 21h16
munity

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

Code:

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

cela reste comme ci dessous

Code:

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

Code:

"xlTextFormat,xlTextFormat,xlTextFormat,xlTextFormat,xlTextFormat"

snif snif
22/11/2017, 21h28
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 :calim2:
serait la bienvenue...
23/11/2017, 07h38
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/
23/11/2017, 07h54
anasecu
Bonjour à tous,

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

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.
23/11/2017, 08h05
unparia
Bonjour
Je crois comprendre que tu récupères le contenu de ces variables dans un fichier .txt.
Deux questions :
- comment (par quelles instructions/code) a été écrit ce fichier ?
- comment (par quelles instructions) lis-tu ce fichier ?

EDIT : il est par exemple clair que :
- si tu as écrit ton fichier txt par instruction Write -->> exemple --->>
Code:

1 2 3 Open "D:\tat.txt" For Output As #1 Write #1, "titi", "totu" Close #1
,
ce qui se traduit par ceci écrit dans ton fichier --->>

Citation:

"titi","totu"

- et qu'ensuite tu importes les données de ce fichier en "importation de fichier texte" --->> titi sera sans guillemets, mais totu sera, lui, encadré de guillemets !

EDIT : et si tel est le cas : ce n'est pas le furoncle (ce que tu importes) qu'il faut soigner, mais bel et bien la furonculose (ton fichier, mal écrit)
23/11/2017, 10h38
munity
salut unparia, anasecu, RyuAutodidacte
tout d'abord merci de t’intéresser à ma problématique

RyuAutodidacte

Citation:

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/

effectivement je n'ai pas déclaré mes variables mais bon cela ne change pas grand choses car les "" sont là que je déclare en string ou variant
je cherche à faire une macro d'importation de fichier délimité en limitant au maximum le nombre d'opération manuelle...

anasecu

Citation:

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

je vais tester ta soluce mais j'ai peur que les guillements soient toujours présentes

unparia
non en fait je récupérer un fichier texte délimité
ma macro fait en sorte de choisir ce fichier puis de l'intégrer automatiquement
j'ai créé deux formules qui me permettent de définir la longueur de tous les champs ainsi que leur format
ce qui me donne au final

Citation:

TailleColonne = .Range("b" & .Range("A" & Rows.Count).End(xlUp).Row)
FormatColonne = .Range("e" & .Range("A" & Rows.Count).End(xlUp).Row)

et mon problème c'est qu'il met les " en début et fin de la variable ce qui cause un plantage de la macro pour argument ou appel de procédure incorrect
or dans les critères
Code:

1 2 3 .TextFileColumnDataTypes = Array(FormatColonne) 'type de données .TextFileFixedColumnWidths = Array(TailleColonne) 'largeurs des colonnes
il ne demande aucune ""
mais comme suit
Code:

1 2 3 .TextFileColumnDataTypes = Array(xlTextFormat,xlTextFormat) 'type de données .TextFileFixedColumnWidths = Array(1,10) 'largeurs des colonnes
donc au final ma problématique est de pouvoir récupérer mes deux variables et de pouvoir les inclure dans les Array sans les guillemets afin que mon importation soit automatique

merci d'avance

david
23/11/2017, 10h41
unparia

Citation:

non en fait je récupérer un fichier texte délimité

mets ici un copié/collé de quelques lignes de ce fichier délimité (copié/collé à faire en l'ouvrant par le bloc-notes).
Car je pense que le problème est probablement là : dans ce fichier (sa structure même)
23/11/2017, 10h41
munity

Citation:

anasecu
.TextFileColumnDataTypes = FormatColonne 'type de données
.TextFileFixedColumnWidths =TailleColonne 'largeurs des colonnes
je vais tester ta soluce mais j'ai peur que les guillements soient toujours présentes

et non la soluce d'anasecu ne fonctionne pas, toujours le meme message d'erreur

:aie:
23/11/2017, 10h42
mjpmjp

bonjour,

Citation:

salut unparia, anasecu, RyuAutodidacte

donc : pas salut :ptdr::ptdr:

y a pas de mal :ptdr::ptdr:

@+JP
23/11/2017, 10h48
munity
Citation:

mets ici un copié/collé de quelques lignes de ce fichier délimité (copié/collé à faire en l'ouvrant par le bloc-notes).
Car je pense que le problème est probablement là : dans ce fichier (sa structure même)

non la structure est OK car si je colle le résultat de ma formule depuis une cellule excel directement dans le module, le fichier s'importe bien
je m'explique
j'indique la longueur de chaque champ dans une cellule quelconque
ex
2,5,25,30
le format
xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat
je prends ces valeurs que je mets dans
Code:

1 2 3 .TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat) type de données .TextFileFixedColumnWidths =array(2,5,25,30) 'largeurs des colonnes
cela fonctionne, c'est cette étape manuelle que je veux éviter par la récupération automatique de la variable issue d'une cellule
et c'est là que le problème commence car la variable string met en début et fin des "" qui sont systèmatique en vba (j'ai bien compris ce principe)

donc est il possible de les supprimer ou avoir une variable qui soit sans ""

david
23/11/2017, 10h54
mjpmjp

bonjour,
je n'ose comprendre le problème 8-)

Data = "uiiuykjkj" --> avec
Texte = Data --> sans

@+JP
23/11/2017, 10h56
unparia

Désolé, mais je veux vraiment le voir, ce fichier .txt
Tu dis vouloir automatiser ce que tu fais manuellement. Bon ... mais moi, j'ai besoin (je n'aime pas du tout me contenter de ce que tu dis avoir fait) de savoir ce qu'il y A à FAIRE. ;)
23/11/2017, 11h05
mjpmjp

re,
dans le même sens,

msgbox Data ou msgbox Texte --> sans ""

donc c'est l'entrée ou la sortie le problème ?

@+JP
23/11/2017, 11h12
munity

1 pièce(s) jointe(s)

Citation:

re,
dans le même sens,

msgbox Data ou msgbox Texte --> sans ""

donc c'est l'entrée ou la sortie le problème ?

@+JP

c'est la sortie le problème et oui je veux un string sans "" pour éviter le plantage de la macro
a priori cela semble impossible dans ce sens
peut être une autre solution pour que le Array(xlTextFormat,etc....) puisse se compléter en fonction du nombre de champ à intégrer ?

ci joint un fichier basique avec deux colonnes
Pièce jointe 329532
23/11/2017, 11h18
mjpmjp

re,

je suis null en DB,
juste pour chercher :

.TextFileTextQualifier = xlTextQualifierDoubleQuote

@+JP
23/11/2017, 11h22
mjpmjp

re,
dans le code du post #1
@+JP

Je n'ai eu aucun problème en important ton fichier ainsi :

Code:

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
With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\aaaa.txt", Destination _
        :=Range("$A$1"))
        .Name = "tata"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileCommaDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

23/11/2017, 11h30
munity

pour mjpmjp

je pense que cette instruction est seulement pour définir si le texte importé depuis le fichier est délimité par des "" ou autres

Citation:

.TextFileTextQualifier = xlTextQualifierDoubleQuote

cela indique le caractère séparateur à utiliser pour délimiter le texte. (aide microsoft)
mais pas comment supprimer les "" d'une variable string

:aie:

Voir 40 message(s) de cette discussion en une page