Suppression des guillemets autour d'une variable

Version imprimable

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

Citation:

Envoyé par unparia

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

oui mais si tu mets en variable les valeurs

Code:

.TextFileColumnDataTypes = Array(1, 1)

comme suit

Code:

.TextFileColumnDataTypes = Array(variable1)

variable1=Range("b2") par exemple
la macro plante car il y a des guillemets et c'est là mon problème
snif snif

david

23/11/2017, 11h35
mjpmjp

re,

le fautif serait ? : .TextFileSemicolonDelimiter = False

et le remede ? : .TextFileCommaDelimiter = True

@+JP
23/11/2017, 11h45
munity
non le problème ne vient pas des paramètres de l'instruction QueryTables
mais des variables à intégrer dans
Code:

1 2 3 .TextFileColumnDataTypes = Array(FormatColonne) 'type de donnée .TextFileFixedColumnWidths = Array(TailleColonne) 'TailleColonne
23/11/2017, 13h06
unparia

Dès lors qu'on affirme, on affirme. Et si on affirme, on reste sur ses affirmations.
Je sors donc ...
Non sans avoir dit ce que j'ai dit et que je redis en persistant et signant.
Et en ajoutant ceci : avec les paramètres de ton code (à commencer par le choix du séparateur), je les avais, tes guillemets ... Et pour cause ...
Bonne chance

Avec Workbooks.Open egalement, la lecture du fichier se fait correctement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim c As Range
Dim wb As Workbook
Set twb = ThisWorkbook
 
ch = "C:\Users\Admin\Downloads\Classeur1.txt"
Set wb = Workbooks.Open(ch, local:=True)
Set c = wb.Worksheets(1).Cells(2, "b")
 
t = Split(c.Value, Chr(9))
twb.Activate
For i = LBound(t) To UBound(t)
 twb.Worksheets("Feuil3").Cells(1, i + 1) = t(i)
Next
 
End Sub

23/11/2017, 14h47
munity
désolé unparia mais je pense que l'on ne se comprend pas ou que c'est moi qui ne comprend rien
je n'ai pas de problème à l'importation
je veux juste rendre dynamique les longueurs de champ pour un fichier délimité et appliqué un format texte pour chacun des champ importés
je pense que mjpmjp a mis le doigt sur ce que je souhaite faire

Citation:

bonjour,
je n'ose comprendre le problème

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

@+JP

cette variable data remplacerait dynamiquement les champs
Code:

1 2 3 .TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat) type de données en manuel .TextFileColumnDataTypes = Array(variable) type de données en DYNAMIQUE
La variable ne devant plus comporter de guillement car l'instruction array() les rejettent
donc au lieu d'avoir
variable = "xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat"
je veux donc
variable = xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat

david
23/11/2017, 15h43
unparia

Je commence en effet à ne plus te comprendre du tout.
A quel résultat final (à montrer ici) veux-tu très exactement arriver ?
Car je ne sais même plus s'il s'agit de modifier/restructurer différemment le fichier .txt ou s'il s'agit d'un résultat direct sur ta feuille de calcul.
Car s'il s'agit de modifier la structure du .txt lui-même, je ne vois pas la nécessité de passer par le tremplin d'une feuille de calcul.
23/11/2017, 16h00
munity

non je ne souhaite pas modifier la structure du fichier mais juste à l'importer dans excel
en lui indiquant dynamiquement comment découper le fichier délimité et en lui indiquant également dynamiquement le format des champs
par exemple si mon fichier comporte 5 champs découpé comme suit (mais c'est un exemple, je veux rendre la macro universelle pour tout fichier délimité)
colonne 1 = longueur 5
colonne 2 = longueur 2
colonne 3 = longueur 1
colonne 4 = longueur 10
colonne 5 = longueur 35

format des champs de la colonne 1 a 5 = texte (xlTextFormat)

j'ai donc créé par formule dans ma macro les éléments permettant de créer les variables
TailleColonne pour la longueur
FormatColonne pour le format

je mets donc ces variables dans les instructions
.TextFileColumnDataTypes = Array(FormatColonne)
.TextFileFixedColumnWidths = Array(TailleColonne)

et donc mon problème c'est que ces instructions ne veulent pas de guillemets et donc je souhaite supprimer les guillemets des variables pour les mettre dans les instructions
.TextFileColumnDataTypes = Array(FormatColonne)
.TextFileFixedColumnWidths = Array(TailleColonne)

voilà j'espère avoir réussi a me faire comprendre... :oops:
23/11/2017, 17h20
Invité

Bonsoir,
Peux tu fournir un fichier texte en exemple stp?
23/11/2017, 17h39
Marc-L

'soir !

Pas possible via Array (suffit juste de consulter l'aide VBA !), utiliser plutôt Evaluate …

Ou encore avec deux sous de jugeote niveau débutant : dimensionner une variable tableau puis l'alimenter via une boucle …

___________________________________________________________________________________________________________
Je suis Paris, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
23/11/2017, 17h44
munity

1 pièce(s) jointe(s)

bonsoir à tous les deux

dysorthographie
le fichier que j'ai mis en exemple pour tout a l'heure te suffit il ?
Pièce jointe 329636

merci du compliment marc_l

Citation:

Ou encore avec deux sous de jugeote niveau débutant : dimensionner une variable tableau puis l'alimenter via une boucle …

:aie:
j'ai un peu tenté de ce coté la mais dès que j'insère la virgule la boucle plante....
et dimensionner une variable tableau j'avoue qu'un peu d'aide serait la bienvenue

et evaluate me donne la meme erreur appel de procédure incorrect
23/11/2017, 17h49
Invité

Je ne sais pas si je regarderai ce soir mais j'ai. Vais regarder!

Pour le fichier c'est impec.
23/11/2017, 17h49
Marc-L

Vraiment pas clair !

Est-ce si difficile d'expliquer techniquement le résultat souhaité ?
Si cela avait été présenté comme il se doit - cf règles du forum - la solution aurait été apportée lors de la première réponse !

Donc oui c'est simple, niveau débutant : créer la variable qui va bien puis l'alimenter à partir du fichier …
Évidemment comme l'exigent les règles de ce forum merci de nous présenter le code de cette tentative !
23/11/2017, 18h08
munity

Désolé Marc-L
Je pensais que mes explications étaient claires
J’ai mis au début du post la macro avec les variables que je calcule via des formules Excel
Une fois ces informations disponibles je souhaite les intégrer pour renseigner dynamiquement la longueur et le format des champs du fichier délimite que je veux intégrer dans les array
Seulement ces variables étant en string et donc avec guillemets avant et après
Le array les rejettent
Tu me dit que ce n’est pas possible donc j’ai essayé évaluate comme tu le suggère mais toujours le même problème
Pour faire un tableau sous vba
J’avoue qu’un exemple serait sympa
Et enfin je suis sur le site depuis 2007 et je pense ou du moins je fais en sorte de respecter les règles et quand je le peux apporte mon aide sans être agressif....
23/11/2017, 18h10
RyuAutodidacte

Citation:

Envoyé par 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é :roll:

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.
23/11/2017, 18h17
Marc-L

@munity :
As-tu au moins ouvert l'aide VBA concernant Array & Evaluate ?!
Comment as-tu vérifié le contenu des variables ?

Et j'attends toujours les tenants et les aboutissants, une présentation claire & exhaustive …
Je peux donner un exemple niveau débutant mais qui aucunement ne fera avancer le schmilblick !

Sinon dis-moi de quoi tu as besoin, je te dirais comment t'en passer ‼ (Coluche)

___________________________________________________________________________________________________________
Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
23/11/2017, 18h42
unparia

Au risque que tu fasses également à mon égard une remarque (totalement injustifiée) du genre de celle que tu as faite à l'égard de Marc-L :
Serais-je moi aussi "agressif" de te faire remarquer que tu bavardes beaucoup, mais n'as toujours pas montré ce que je t'ai demandé --->>
Je commence en effet à ne plus te comprendre du tout.

Citation:

A quel résultat final (à montrer ici) veux-tu très exactement arriver ?
Car je ne sais même plus s'il s'agit de modifier/restructurer différemment le fichier .txt ou s'il s'agit d'un résultat direct sur ta feuille de calcul.
Car s'il s'agit de modifier la structure du .txt lui-même, je ne vois pas la nécessité de passer par le tremplin d'une feuille de calcul.

Faut-il te secouer plus fort ? Tu sembles en avoir besoin ...
Et si tu ne fais pas cela, je te laisse personnellement en plan.
Est-ce clair ?
23/11/2017, 18h52
Marc-L

En complément de l'aide VBA concernant la puissante fonction Evaluate, voir le post #51 de cette discussion et les 55 & 59 …

Suivre chaque démonstration en mode pas à pas en contrôlant le contenu de la fenêtre Variables locales.

___________________________________________________________________________________________________________
Un problème sans solution est un problème mal posé. (Albert Einstein)
23/11/2017, 19h04
mjpmjp

bonjour,
il devient de plus en plus clair que ton problème est ICI dans ce texte : 8O

Citation:

La variable ne devant plus comporter de guillement car l'instruction array() les rejettent
donc au lieu d'avoir
variable = "xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat"
je veux donc
variable = xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat

la remarque de Marc_L avec array et evaluate est fondée ;)

respire un grand coup :mouarf:
et explique "xlTextFormat" et xlTextFormat...

ainsi :
variable1 = xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat
variable2 = xlTextFormat & "," & xlTextFormat & "," & xlTextFormat & "," & xlTextFormat

msgbox variable1 & vbcrlf & variable2 ...???

@+JP
23/11/2017, 19h06
munity

3 pièce(s) jointe(s)

Ci joint le fichier texte que j'intégre dans excel (fichier delimité avec 98 colonnes)
je n'ai mis que 3 lignes
Pièce jointe 329651

ci joint ce que me donne les variables (mon problème ce sont les guillemets au début et à la fin)
Pièce jointe 329647

array et evaluate ne semble pas correspondre au besoin en l'état
j'explique donc mon besoin
j'ai un fichier texte a largeur fixe que je souhaite intégrer dans excel
je renseigne les longueurs des champs dans la colonne A de la feuille LISTE LONGUEUR ET CHAMP
je lance la macro qui me permet de concaténer les valeurs de la colonne en une seule cellule sous la forme 1,15,5,6,1, etc....
ensuite la macro m'ouvre l'explorateur de fichier pour que je récupère mon fichier
et la je souhaiterai que la valeur de ma cellule soit récupérer pour que l'instruction ci dessous soit mise à jour

Code:

.TextFileFixedColumnWidths = Array(valeur cellule longueur champ)

une fois cela fait mon fichier s'integre dans excel avec le découpage correct des colonnes par rapport au dessin d'enregistrement
j'applique le meme fonctionnement pour le format des colonnes sachant qu'il s'agit toujours de texte

Code:

.TextFileColumnDataTypes = Array(valeur cellule format colonne)

j'espère avoir réussi à bien expliquer mon besoin

et donc mon problème est que les variables sont en string et par conséquent cela ne fonctionne pas

je mets en pièce jointe le résultat souhaité
Pièce jointe 329653

david

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