Caractère séparateur sous excel VBA

Caractère séparateur sous excel VBA - VB/VBA/VBS - Programmation

Marsh Posté le 23-06-2009 à 14:49:19    

Bonjour tout le monde!!!
 
J'ai un soucis!
Je dois importer un fichier texte sous excel, mais le problème c'est que mon séparateur c'est ":" et pas ";", donc cu coup c'est mal délimiter.
je vous montre le code:
 
 

Code :
  1. With ActiveSheet.QueryTables.Add(Connection:= _
  2.             "TEXT;" & Monchemin _
  3.             , Destination:=Range("A1" ))
  4.             .FieldNames = True
  5.             .RowNumbers = False
  6.             .FillAdjacentFormulas = False
  7.             .PreserveFormatting = True
  8.             .RefreshOnFileOpen = False
  9.             .RefreshStyle = xlInsertDeleteCells
  10.             .SavePassword = False
  11.             .SaveData = True
  12.             .AdjustColumnWidth = True
  13.             .RefreshPeriod = 0
  14.             .TextFilePromptOnRefresh = False
  15.             .TextFilePlatform = xlMSDOS
  16.             .TextFileStartRow = 1
  17.             .TextFileParseType = xlFixedWidth
  18.             .TextFileTextQualifier = xlTextQualifierDoubleQuote          'ça ne fonctionne pas avec les ":"           
  19.              .TextFileConsecutiveDelimiter = False
  20.             .TextFileTabDelimiter = True
  21.             .TextFileSemicolonDelimiter = False
  22.             .TextFileCommaDelimiter = False
  23.             .TextFileSpaceDelimiter = False
  24.             .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
  25.             , 1, 1, 1, 1, 1)
  26.             .TextFileFixedColumnWidths = Array(3, 14, 32, 32, 5, 20, 10, 30, 9, 12, 8, 32, 5, 32, 2, 15, 1 _
  27.             , 10, 1, 20, 10, 9)
  28.             .TextFileTrailingMinusNumbers = True
  29.             .Refresh BackgroundQuery:=False
  30.         End With


 
Une idée? j'ai repris la fonction d'un collègue il me semble qu'il a paramétrer la taille des colonne, m'enfin pas trop compris j'avou.
 
Merciiiiiiiii à tous d'avance! :)

Reply

Marsh Posté le 23-06-2009 à 14:49:19   

Reply

Marsh Posté le 23-06-2009 à 15:29:50    

Essaie en rajoutant ça :
.TextFileOtherDelimiter = ":"
 
de rien ! ;)

Reply

Marsh Posté le 23-06-2009 à 17:01:11    

ca fonctionne!!!!
merci Ptit loup!

Reply

Marsh Posté le 23-06-2009 à 17:10:26    

You're welcome !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed