Discussion :

[ouskel'n'or]

La der des ders mais tu en auras deux pour le pris d'un.
Proposition 1
Tu ouvres ton fichier dans Excel, séparateur "," ou ";". On s'en fout.
Et tu reconstitues ta ligne comme tu veux en respectant les virgules (autant de colonnes que de virgules) et tu enregistres ton fichier en tant que txt.
On renomme et on vérifie
Proposition 2
Si tu connais le N° de ligne sur laquelle faire ton charcutage, peut-être cela peut-il fonctionner en ouvrant le txt en mode Random. dans lequel tu peux fixer la longueur de la ligne. Pas garanti ! Du tout ! J'ai planté Excel ... J'ai dû laissé une petite erreur en modifiant mon code pour passer du mode input au mode random
On apprend aussi en travaillant

[mayekeul]

bonjour,
et désolé du retard, j'ai du fuir comme un lache
alors qu'est-ce que j'allais je dire?

je ne parviens pas à faire bouffer une valeur > 3 bytes au prompt de parametre. J'en déduis que je ne peux combiner plusieurs critère OR dans mon parametre. il y a une parade ou je dois définir un nombre de parametre maxi et les initialiser tous à la valeur unique si je ne veux tester que sur une valeur. ?(tu piges mon chinois).

euh pas trop lol
avoir plusieurs parametres ne pose en principe pas de problemes.

sinon, j'ai un autre truc, peut-etre plus "simple" si je puis dire.

[Godzestla]

Voici le Code de Ouskelnor que j'ai adapté.

Le remplacement est en dur mais je vais paramétrer cela maintenant.

Merci Mayekeul pour ton aide, mais comme je ne t'entendais plus, j'ai continué à avancé par une solution de code comme proposé par Ouskelnor.

Bonne journée à tous les 2 et encore merci.

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
 
Sub Test()
Dim LaLigne As String, tablo As Variant
Dim Where_pos As Long
Dim End_Where As Long
Dim beg_ligne As String
Dim End_ligne As String
 
    Open "C:\DATA\Test\Selective Sorties Mois 0.dqy" For Input As #1
    Open "C:\DATA\Test\TonFichierCorrigé.txt" For Output As #2
    Do While Not EOF(1)
        Line Input #1, LaLigne
        Where_pos = InStr(1, LaLigne, "WHERE", vbTextCompare)
        If Where_pos > 0 Then
           End_Where = InStr(Where_pos, LaLigne, ")", vbTextCompare)
           If End_Where > 0 Then
              beg_ligne = Left(LaLigne, Where_pos - 1)
              End_ligne = Right(LaLigne, Len(LaLigne) - End_Where)
              LaLigne = beg_ligne & "WHERE (LST_SORM1C.DEPAZT='605') OR (LST_SORM1C.DEPAZT='606') OR (LST_SORM1C.DEPAZT='615')" & End_ligne
           End If
        End If
        Debug.Print LaLigne
        Print #2, LaLigne
    Loop
    Close #1
    Close #2
    Kill "C:\TonRep\TonFichier.dqy"
    Name "c:\TonRep\TonFichierCorrigé.txt" As "C:\TonRep\TonFichier.dqy"
End Sub

[mayekeul]

De rien, et désolé de n'avoir pu t'aider plus!

[Godzestla]

De rien, et désolé de n'avoir pu t'aider plus!

C'est déjà Nickel comme cela. merci encore.