Données d'un fichier *.txt ranger dans un tableau excel...Résolu

Question

Bonjour,

Dans un programme (en VB6), je r&#233;cup&#232;re les valeurs de variable dans un fichier *.txt, je voudrais ensuite lire ce fichier avec excel; &#233;videmment, lors de l'&#233;criture dans le fichier je met des sauts de ligne en mettant "vbCrLf" et donc quand j'ouvre avec excel, &#231;a remplie la premi&#232;re colonne et toute mes valeurs sont align&#233;es les une en dessous des autres... OK!

Ce que je voudrais pouvoir faire, c'est d'avoir &#233;galement le nom de la variabl dans mn tableau donc avant chaque valeur, je mettrais le nom dans le fichier (c'est pas un soucis) mais comme je veux une colonne pour les noms et une colonne pour les valeurs, il faut que je s&#233;pare ces deux &#233;l&#233;ments dans le fichier texte par quelque chose... Apparemment, ce n'est ni un ";", ni un ",", ni ":", ni "/" mais un "retrait" (la touche au dessus de Maj sur le clavier &#224; gauche...). Donc &#224; la mani&#232;re de "vbCrLf" pour le saut de ligne, quel est le code pour ce retrait...?

Merci d'avance!!!

CDAlstom · Accepted Answer

Euh mon programme est en VB6, l'histoire avec excel, c'&#233;tait juste pour lire un fichier de donn&#233;es plus facilement puisque ce sera dans un tableau... Merci de vos r&#233;ponses mais je me suis d&#233;pann&#233; tout seul...
Je parlais d'&#233;crire dans mon fichier vbCrLf mais on peut aussi mettre Chr(13)+Chr(10) du coup j'ai pens&#233; &#224; r&#233;cup&#233;rer tous els codes ascii et dedans il y a "Tab", c'est le code ascii 9 donc pour faire un tab dans mon fichier, je peux mettre Chr(9) ou &#231;a marche aussi (j'ai test&#233; au hasard et &#231;a marche!) de mettre vbTab...

Si qq1 passe par ici et comprend pas bien, en gros si on veut un tableau de ce style:
toto      1
tata       2
Bah, on peut &#233;crire dans un fichier texte (via open etc bien s&#251;r en VB):
"toto" & vbTab & "1" & vbCrLf & "tata" & vbTab & "2"

M000004965 · Answer

Pourquoi tu ne pilote pas excel directement dans VB ????
Tu peux cr&#233;er des fichiers excel ou ouvrir et alimenter des fichiers existants !!!

Exemple...
vous pouvez affecter une r&#233;f&#233;rence &#224; un objet Excel &#224; une des deux variables ci-dessous :Dim xlApp1 As Excel.Application
Set xlApp1 = New Excel.Application

Dim xlApp2 As Object
Set xlApp2 = CreateObject("Excel.Application")

M000004965 · Answer

Exemple de code:

Private Sub mnuReportsInvoice_Click()
    Static xl As Excel.Application
    Set xl = New Excel.Application
    
    With xl
        .Visible = True
        .Workbooks.Add
        ' configure la cellule A1
        With .Range("A1")
            .Value = "Ch&#226;teau Saint-Marc - Facture"
            .Font.Bold = True
            .Font.Name = "Times New Roman"
            .Font.Size = 26
        End With
        .Range("A4").Value = "Nom :"
        .Range("B4").Value = txtFirstName.Text & " " & txtLastName.Text
        With .Range("A5")
            .Value = "Adresse :"
            .VerticalAlignment = xlTop
        End With
        With .Range("B5")
            .Value = txtAddress.Text
            .ColumnWidth = 20
            .WrapText = True
        End With
        .Range("A6").Value = "Dur&#233;e du s&#233;jour :"
        .Range("B6").Value = txtNumDays.Text
        .Range("A7").Value = "Tarif :"
        .Range("B7").Value = txtRate.Text
        .Range("A8").Value = "Total d&#251; :"
        ' Calcule le total
        .Range("B8").Value = _
            Format(CSng(txtNumDays.Text) * CSng(txtRate.Text), "Currency")
    End With
    Columns("A:A").ColumnWidth = 25
    xl.ActiveWorkbook.PrintPreview


End Sub

Données d'un fichier *.txt ranger dans un tableau excel...

3 réponses

Discussions similaires