Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1337 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Caractère séparateur sous excel VBA

 
 

Sujet(s) à lire :
    - Visual C++
 

 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Caractère séparateur sous excel VBA

n°1898202
mmmxtina
Posté le 23-06-2009 à 14:49:19  profilanswer
 

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! :)

mood
Publicité
Posté le 23-06-2009 à 14:49:19  profilanswer
 

n°1898255
Ptit loup
Quand c'est flou, y'a un loup
Posté le 23-06-2009 à 15:29:50  profilanswer
 

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

n°1898340
mmmxtina
Posté le 23-06-2009 à 17:01:11  profilanswer
 

ca fonctionne!!!!
merci Ptit loup!

n°1898351
Ptit loup
Quand c'est flou, y'a un loup
Posté le 23-06-2009 à 17:10:26  profilanswer
 

You're welcome !


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Caractère séparateur sous excel VBA

 

Sujets relatifs
[ VBA ] Afficher sous excel la date & Heure de la derniere sauvegarde[Resolu]Tronquer une chaine de caractère
Erreur Excel nombre de polices [RESOLU]Fermer un formulaire VBA
Export Excel vers Access à l'aide de VBA[VBA] liste deroulante dans ComboBox : comment creer liste ??
[ksh] Récupérer un morceau d'une chaine de caractèreEncore une question sur la pagination dans une feuille Excel
Plus de sujets relatifs à : Caractère séparateur sous excel VBA

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.039 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR