Bonjour a tous,
Je cherche a ouvrir un fichier .txt en excel a traves une macro en utilisant le character "|" comme separateur. Le probleme que je rencontre provient du fait que le logiciel qui me genere le .txt met au debut et a la fin de certaines lignes le charactere ". Suite a cela lors de l ouverture ces lignes sont considerees comme des chaine inseprable et le pipes (|, je ne connais pas le nom en Francais) a l interieur de ces lignes ne sont pas pris en compte...
La macro d ouverture est la suivante:
Sub Macro5()
'
' Macro5 Macro
' Macro recorded 1/17/2008 by bessya
'
FileToOpenCAB1_path = Application.GetOpenFilename("TXT file coming from the VPM graph (*.txt), *.txt") 'On preleve le chemin d'acces du fichier a charger
'
Workbooks.OpenText FileToOpenCAB1_path, Origin:=437, StartRow:=1 _
, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", _
TrailingMinusNumbers:=True
'
End Sub
Une idee pour surmonter ce petit (j en suis sur) probleme?
Merci de votre aide par avance
Cordialement
Alexandre Bessy
PS: Le fichier .txt d exemple est dans le Zip.
Je cherche a ouvrir un fichier .txt en excel a traves une macro en utilisant le character "|" comme separateur. Le probleme que je rencontre provient du fait que le logiciel qui me genere le .txt met au debut et a la fin de certaines lignes le charactere ". Suite a cela lors de l ouverture ces lignes sont considerees comme des chaine inseprable et le pipes (|, je ne connais pas le nom en Francais) a l interieur de ces lignes ne sont pas pris en compte...
La macro d ouverture est la suivante:
Sub Macro5()
'
' Macro5 Macro
' Macro recorded 1/17/2008 by bessya
'
FileToOpenCAB1_path = Application.GetOpenFilename("TXT file coming from the VPM graph (*.txt), *.txt") 'On preleve le chemin d'acces du fichier a charger
'
Workbooks.OpenText FileToOpenCAB1_path, Origin:=437, StartRow:=1 _
, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", _
TrailingMinusNumbers:=True
'
End Sub
Une idee pour surmonter ce petit (j en suis sur) probleme?
Merci de votre aide par avance
Cordialement
Alexandre Bessy
PS: Le fichier .txt d exemple est dans le Zip.