Avec la commande suivante j'ouvre un fichier texte et je le copie dans
une feuille vierge.
fich = directory & "\" & sheetname & ".afl"
With ActiveSheet. (Connection:="TEXT;" & fich,
Destination:=Range("A2"))
.Name = fich
.TextFileSpaceDelimiter = False
.Refresh BackgroundQuery:=False
End With
Columns("A:A").AutoFit
Certaines lignes sont dispatchées sur plusieurs colonnes à cause de
certains signes tel que quote
La ligne originale du fichier texte que j'aimerai retrouver en colA est :
EncodeColor(colorTurquoise) + "34EMA" + ",\n" +
J'obtiens en colD :
EncodeColor(colorTurquoise) + "34EMA" +
Puis j'obtiens en colE :
,\n +
alors que l'original est
",\n" +
Les quotes ont induit des tabulations. Parfois ces tabulations sont
incluses dans le fichier texte original.
L'option TextFileSpaceDelimiter = False ne résoud pas tout.
Comment puis-je supprimer ces tab et garder la ligne originale en ColA ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Fetna,
essaie en y ajoutant :
.TextFileParseType = xlFixedWidth
isabelle
fetnat a écrit :
Bonsoir,
Avec la commande suivante j'ouvre un fichier texte et je le copie dans une feuille vierge.
fich = directory & "" & sheetname & ".afl" With ActiveSheet. (Connection:="TEXT;" & fich, Destination:=Range("A2")) .Name = fich .TextFileSpaceDelimiter = False .Refresh BackgroundQuery:úlse End With Columns("A:A").AutoFit
Certaines lignes sont dispatchées sur plusieurs colonnes à cause de certains signes tel que quote
La ligne originale du fichier texte que j'aimerai retrouver en colA est : EncodeColor(colorTurquoise) + "34EMA" + ",n" +
J'obtiens en colD : EncodeColor(colorTurquoise) + "34EMA" +
Puis j'obtiens en colE : ,n + alors que l'original est ",n" +
Les quotes ont induit des tabulations. Parfois ces tabulations sont incluses dans le fichier texte original. L'option TextFileSpaceDelimiter = False ne résoud pas tout.
Comment puis-je supprimer ces tab et garder la ligne originale en ColA ?
Merci pour votre aide
Cordialement
Fetnat
bonjour Fetna,
essaie en y ajoutant :
.TextFileParseType = xlFixedWidth
isabelle
fetnat a écrit :
Bonsoir,
Avec la commande suivante j'ouvre un fichier texte et je le copie dans
une feuille vierge.
fich = directory & "" & sheetname & ".afl"
With ActiveSheet. (Connection:="TEXT;" & fich,
Destination:=Range("A2"))
.Name = fich
.TextFileSpaceDelimiter = False
.Refresh BackgroundQuery:úlse
End With
Columns("A:A").AutoFit
Certaines lignes sont dispatchées sur plusieurs colonnes à cause de
certains signes tel que quote
La ligne originale du fichier texte que j'aimerai retrouver en colA est :
EncodeColor(colorTurquoise) + "34EMA" + ",n" +
J'obtiens en colD :
EncodeColor(colorTurquoise) + "34EMA" +
Puis j'obtiens en colE :
,n +
alors que l'original est
",n" +
Les quotes ont induit des tabulations. Parfois ces tabulations sont
incluses dans le fichier texte original.
L'option TextFileSpaceDelimiter = False ne résoud pas tout.
Comment puis-je supprimer ces tab et garder la ligne originale en ColA ?
Avec la commande suivante j'ouvre un fichier texte et je le copie dans une feuille vierge.
fich = directory & "" & sheetname & ".afl" With ActiveSheet. (Connection:="TEXT;" & fich, Destination:=Range("A2")) .Name = fich .TextFileSpaceDelimiter = False .Refresh BackgroundQuery:úlse End With Columns("A:A").AutoFit
Certaines lignes sont dispatchées sur plusieurs colonnes à cause de certains signes tel que quote
La ligne originale du fichier texte que j'aimerai retrouver en colA est : EncodeColor(colorTurquoise) + "34EMA" + ",n" +
J'obtiens en colD : EncodeColor(colorTurquoise) + "34EMA" +
Puis j'obtiens en colE : ,n + alors que l'original est ",n" +
Les quotes ont induit des tabulations. Parfois ces tabulations sont incluses dans le fichier texte original. L'option TextFileSpaceDelimiter = False ne résoud pas tout.
Comment puis-je supprimer ces tab et garder la ligne originale en ColA ?
Merci pour votre aide
Cordialement
Fetnat
fetnat
Isabelle,
Oh lala lala lala...
C'est parfait ! J'ai passé des heures là-dessus sans voir la petite option qui va bien. Vous me sauvâtes la vie, très chère...
Mille merci
Cordialement
Fetnat
isabelle a écrit :
bonjour Fetna,
essaie en y ajoutant :
.TextFileParseType = xlFixedWidth
isabelle
fetnat a écrit :
Bonsoir,
Avec la commande suivante j'ouvre un fichier texte et je le copie dans une feuille vierge.
fich = directory & "" & sheetname & ".afl" With ActiveSheet. (Connection:="TEXT;" & fich, Destination:=Range("A2")) .Name = fich .TextFileSpaceDelimiter = False .Refresh BackgroundQuery:úlse End With Columns("A:A").AutoFit
Certaines lignes sont dispatchées sur plusieurs colonnes à cause de certains signes tel que quote
La ligne originale du fichier texte que j'aimerai retrouver en colA est : EncodeColor(colorTurquoise) + "34EMA" + ",n" +
J'obtiens en colD : EncodeColor(colorTurquoise) + "34EMA" +
Puis j'obtiens en colE : ,n + alors que l'original est ",n" +
Les quotes ont induit des tabulations. Parfois ces tabulations sont incluses dans le fichier texte original. L'option TextFileSpaceDelimiter = False ne résoud pas tout.
Comment puis-je supprimer ces tab et garder la ligne originale en ColA ?
Merci pour votre aide
Cordialement
Fetnat
Isabelle,
Oh lala lala lala...
C'est parfait ! J'ai passé des heures là-dessus sans voir la petite
option qui va bien. Vous me sauvâtes la vie, très chère...
Mille merci
Cordialement
Fetnat
isabelle a écrit :
bonjour Fetna,
essaie en y ajoutant :
.TextFileParseType = xlFixedWidth
isabelle
fetnat a écrit :
Bonsoir,
Avec la commande suivante j'ouvre un fichier texte et je le copie dans
une feuille vierge.
fich = directory & "" & sheetname & ".afl"
With ActiveSheet. (Connection:="TEXT;" & fich,
Destination:=Range("A2"))
.Name = fich
.TextFileSpaceDelimiter = False
.Refresh BackgroundQuery:úlse
End With
Columns("A:A").AutoFit
Certaines lignes sont dispatchées sur plusieurs colonnes à cause de
certains signes tel que quote
La ligne originale du fichier texte que j'aimerai retrouver en colA est :
EncodeColor(colorTurquoise) + "34EMA" + ",n" +
J'obtiens en colD :
EncodeColor(colorTurquoise) + "34EMA" +
Puis j'obtiens en colE :
,n +
alors que l'original est
",n" +
Les quotes ont induit des tabulations. Parfois ces tabulations sont
incluses dans le fichier texte original.
L'option TextFileSpaceDelimiter = False ne résoud pas tout.
Comment puis-je supprimer ces tab et garder la ligne originale en ColA ?
C'est parfait ! J'ai passé des heures là-dessus sans voir la petite option qui va bien. Vous me sauvâtes la vie, très chère...
Mille merci
Cordialement
Fetnat
isabelle a écrit :
bonjour Fetna,
essaie en y ajoutant :
.TextFileParseType = xlFixedWidth
isabelle
fetnat a écrit :
Bonsoir,
Avec la commande suivante j'ouvre un fichier texte et je le copie dans une feuille vierge.
fich = directory & "" & sheetname & ".afl" With ActiveSheet. (Connection:="TEXT;" & fich, Destination:=Range("A2")) .Name = fich .TextFileSpaceDelimiter = False .Refresh BackgroundQuery:úlse End With Columns("A:A").AutoFit
Certaines lignes sont dispatchées sur plusieurs colonnes à cause de certains signes tel que quote
La ligne originale du fichier texte que j'aimerai retrouver en colA est : EncodeColor(colorTurquoise) + "34EMA" + ",n" +
J'obtiens en colD : EncodeColor(colorTurquoise) + "34EMA" +
Puis j'obtiens en colE : ,n + alors que l'original est ",n" +
Les quotes ont induit des tabulations. Parfois ces tabulations sont incluses dans le fichier texte original. L'option TextFileSpaceDelimiter = False ne résoud pas tout.
Comment puis-je supprimer ces tab et garder la ligne originale en ColA ?
Merci pour votre aide
Cordialement
Fetnat
isabelle
ce fut avec plaisir Fetna, isabelle
fetnat a écrit :
Isabelle,
Oh lala lala lala...
C'est parfait ! J'ai passé des heures là-dessus sans voir la petite option qui va bien. Vous me sauvâtes la vie, très chère...
Mille merci
Cordialement
Fetnat
isabelle a écrit :
bonjour Fetna,
essaie en y ajoutant :
.TextFileParseType = xlFixedWidth
isabelle
fetnat a écrit :
Bonsoir,
Avec la commande suivante j'ouvre un fichier texte et je le copie dans une feuille vierge.
fich = directory & "" & sheetname & ".afl" With ActiveSheet. (Connection:="TEXT;" & fich, Destination:=Range("A2")) .Name = fich .TextFileSpaceDelimiter = False .Refresh BackgroundQuery:úlse End With Columns("A:A").AutoFit
Certaines lignes sont dispatchées sur plusieurs colonnes à cause de certains signes tel que quote
La ligne originale du fichier texte que j'aimerai retrouver en colA est : EncodeColor(colorTurquoise) + "34EMA" + ",n" +
J'obtiens en colD : EncodeColor(colorTurquoise) + "34EMA" +
Puis j'obtiens en colE : ,n + alors que l'original est ",n" +
Les quotes ont induit des tabulations. Parfois ces tabulations sont incluses dans le fichier texte original. L'option TextFileSpaceDelimiter = False ne résoud pas tout.
Comment puis-je supprimer ces tab et garder la ligne originale en ColA ?
Merci pour votre aide
Cordialement
Fetnat
ce fut avec plaisir Fetna,
isabelle
fetnat a écrit :
Isabelle,
Oh lala lala lala...
C'est parfait ! J'ai passé des heures là-dessus sans voir la petite
option qui va bien. Vous me sauvâtes la vie, très chère...
Mille merci
Cordialement
Fetnat
isabelle a écrit :
bonjour Fetna,
essaie en y ajoutant :
.TextFileParseType = xlFixedWidth
isabelle
fetnat a écrit :
Bonsoir,
Avec la commande suivante j'ouvre un fichier texte et je le copie
dans une feuille vierge.
fich = directory & "" & sheetname & ".afl"
With ActiveSheet. (Connection:="TEXT;" & fich,
Destination:=Range("A2"))
.Name = fich
.TextFileSpaceDelimiter = False
.Refresh BackgroundQuery:úlse
End With
Columns("A:A").AutoFit
Certaines lignes sont dispatchées sur plusieurs colonnes à cause de
certains signes tel que quote
La ligne originale du fichier texte que j'aimerai retrouver en colA
est :
EncodeColor(colorTurquoise) + "34EMA" + ",n" +
J'obtiens en colD :
EncodeColor(colorTurquoise) + "34EMA" +
Puis j'obtiens en colE :
,n +
alors que l'original est
",n" +
Les quotes ont induit des tabulations. Parfois ces tabulations sont
incluses dans le fichier texte original.
L'option TextFileSpaceDelimiter = False ne résoud pas tout.
Comment puis-je supprimer ces tab et garder la ligne originale en ColA ?
C'est parfait ! J'ai passé des heures là-dessus sans voir la petite option qui va bien. Vous me sauvâtes la vie, très chère...
Mille merci
Cordialement
Fetnat
isabelle a écrit :
bonjour Fetna,
essaie en y ajoutant :
.TextFileParseType = xlFixedWidth
isabelle
fetnat a écrit :
Bonsoir,
Avec la commande suivante j'ouvre un fichier texte et je le copie dans une feuille vierge.
fich = directory & "" & sheetname & ".afl" With ActiveSheet. (Connection:="TEXT;" & fich, Destination:=Range("A2")) .Name = fich .TextFileSpaceDelimiter = False .Refresh BackgroundQuery:úlse End With Columns("A:A").AutoFit
Certaines lignes sont dispatchées sur plusieurs colonnes à cause de certains signes tel que quote
La ligne originale du fichier texte que j'aimerai retrouver en colA est : EncodeColor(colorTurquoise) + "34EMA" + ",n" +
J'obtiens en colD : EncodeColor(colorTurquoise) + "34EMA" +
Puis j'obtiens en colE : ,n + alors que l'original est ",n" +
Les quotes ont induit des tabulations. Parfois ces tabulations sont incluses dans le fichier texte original. L'option TextFileSpaceDelimiter = False ne résoud pas tout.
Comment puis-je supprimer ces tab et garder la ligne originale en ColA ?
