convertion de données sous Excel en VB

Question

Bonjours,

Je cherche à convertir des données sous excel en VB mais apparement le code que j'utilise n'est pas bon.

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 5), Array(6, 1), Array(10, 1), Array(12, 1), Array(13, 1), _
        Array(14, 1), Array(15, 1), Array(21, 1), Array(27, 1), Array(33, 1))

Ce code est tiré d'une macro VBA faite sous Excel.

Si quelqu'un peut m'aider

aieeeuuuuu · Answer

salut

que veux-tu faire

qu'est ce que tu as comme erreur ?

Vcode · Answer

Le but ultime est de copier le contenu d'un doc txt et de le coller dans une feuille excel en convertissant les données pour les ranger dans des colonnes différentes.

sacha1435 · Answer

Bonjour,

Pourquoi tu n'ouvres pas directement ce fichier .txt dans excel ?

Sacha

  \!/
    00
     !

Vcode · Answer

Si je fais cela, le format de mes données n'est pas correct.

Il faut que j'ouvre une feuille excel et que je paramètre en format teste ma colonne avant.

Tout cela fonctionne, mais en ouvrant mon fichier texte avec word, celui-ci me convertit les données. donc le résultat est faussé.

Voici un bout de mon code 

If Elémentfichier.Name = StrLot2 Then
    'ouverture du fichier texte et lecture des données
    'Set Fichier1 = file.OpenTextFile(StrLot3, ForReading)
    'Fichier1.Item.OpenAsTextStream ForReading
    'Fichier1.
   
    Set wrd = New Word.Application
    'wrd.ShowMe
    'wrd.Visible = True
    wrd.Documents.Open (StrLot3,,,,,,,,,)
    wrd.Selection.WholeStory
    wrd.Selection.Copy
    
    
    Set xls = Workbooks.Add
    xls.Worksheets(1).Columns("A:A").Select
    Selection.NumberFormat = "@"
    xls.Worksheets(1).Range("A1").Select
    ActiveSheet.Paste
    
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(10, 1), Array(12, 1), Array(13, 1), _
        Array(14, 1), Array(15, 1), Array(21, 1), Array(27, 1), Array(33, 1))
    'xls.Worksheets(1).Range("A1").Select
    'Selection.NumberFormat = "yy/mm/dd"
    
    'Set Entete = Workbooks.Open(Config.ConfigMod)
   ' Entete.Worksheets(1).Rows("1").Select
    'Selection.Copy
        
   ' xls.Worksheets(1).Rows("1:1").Select
    'Selection.Insert shift:=xlDown
   ' xls.Worksheets(1).Rows("1:1").Select
   ' ActiveSheet.Paste
    
    xls.SaveAs Config.ConfigStrE & StrNlot & ".xls"
    
    wrd.Documents.Close
    wrd.Quit
    xls.Close
   ' Entete.Close
    Set xls = Nothing
   'Set Entete = Nothing

sacha1435 · Answer

Salut,

une piste peut-&#234;tre, 

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(10, 1), Array(12, 1), Array(13, 1), _
        Array(14, 1), Array(15, 1), Array(21, 1), Array(27, 1), Array(33, 1))
    'xls.Worksheets(1).Range("A1").Select

dans "FieldInfo:=Array(Array(0, 1)" le second chiffre fait r&#233;f&#233;rence au format

1 format g&#233;n&#233;ral
2 format texte
4 format date
5 pas importer

si cela peut aider.

  \!/
    00
     !

Vcode · Answer

Désolé cela ne passe pas non plus.

En fait j'ai l'impression que mon pb ce situe au moment où je colle les données dans Excel. Il n'interprète pas les données comme étant du texte simple.

Merci pour ton aide ;>

Vcode · Answer

sais-tu comment ouvrir mon document sous word en le convertissant ?

Dans la propriétée open, on peut lui passer des paramètres, mais je ne sais pas à quoi cela correspond.

sacha1435 · Answer

Re,

Quand tu utilises la fonction paste avec excel il colle aussi bien la formule,la valeur et le format de cellule,
Pour coller avec des option utilise la m&#233;thode PasteSp&#233;cial.

dans excel : click droit et pastesp&#233;cial tu as d&#233;ja plein d'option de collage regarde celle qui te convient, apr&#232;s enregistre une macro en effectuant la manip souhait&#233;e>lis dans l'&#233;diteur VBA comment r&#233;cup&#233;r&#233; la m&#233;thode.
Quand tu utilises la fonction paste avec excel il colle aussi bien la formule,la valeur et le format de cellule,

Pour ce qui est de word j'ai jamais fait de vba avec cet appli donc ...

Sacha
  \!/
    00
     !

cs_etniqs · Answer

à mon avis, tu devrais voir autrement, les array sont pas formater comme les tables dans excel (et vu que je fais l'inverse de excel vers word ou ppt pour le boulot) :
- tu récup l'objet tableau dans word (objet avec colonnes et lignes, mais pas foutu pareillement que dans excel)
- pour chqe colonne : tu gères un tableau ou une collection de données, mais que tu convertis entre temps, avant de remplir ta collection
- après, pour éviter de gèrer les copiés/collés sans gèrer les tailles des tableaux, un double for each elements dans macollection/for each item dans macollection range.offset.value madonnee et range.offset.format monnouveauformat

...

coïto ergo sum

Convertion de données sous Excel en VB

9 réponses

Discussions similaires