[VBA-E] Exporter une page Excel vers un Fichier Txt

Version imprimable

Bonjour a tous,

J'espere que je poste au bon endroit... (;^_^)

But
Transferer les donnees d'une page excel quelconque (Celle active en fait) vers un fichier .txt

Etat des lieux
J'arrive a: - Creer mon fichier txt
- Ecrire du texte dedans
Mais je n'arrive pas a lire la feuille Excel.
Voici la partie de code concernee.
Je ne suis vraiment pas familier avec les "fonctions VB d'excel".

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Function Parsing_xls()
 
    Dim tmp_str As String
    Dim i As Integer
 
 
    tmp_str = ""
    tmp_str = tmp_str & "// Screen List"
    tmp_str = tmp_str & "const GAMEN_TABLE main_gamen_flame_table[] = {" & Chr(10)
    i = rStart_Line
 
 
      While (Worksheets(ActiveWorkbook.ActiveSheet).Cells(i, Name_Col).Value <> "")       'Excel file parsing
            'Chr (9) = tabulation
            tmp_str = tmp_str & Chr(9) & "{" & Worksheets(ActiveWorkbook.ActiveSheet).Cells(i, File_Col).Value & "_INIT"
            i = i + 1
            tmp_str = tmp_str & ", " & Worksheets(ActiveWorkbook.ActiveSheet).Cells(i, File_Col).Value & "_INIT"
            i = i + 1
            tmp_str = tmp_str & ", " & Worksheets(ActiveWorkbook.ActiveSheet).Cells(i, File_Col).Value & "_INIT},"
            i = i + 1
            tmp_str = tmp_str & Create_Comment(i - 3)    'Create_Comment ajoute des commentaires en fin de ligne
     Wend
 
    tmp_str = tmp_str & Chr(10) & "};" & Chr(10)
 
    Parsing_xls = tmp_str
 
 
End Function

Question

Apparement la condition du While ne lui plait pas du tout.
Est ce que quelqu'un connaitrait la bonne syntaxe pour retourner la valeur d'une case du fichier excel actif dans la feuille active?

D'avance merci m(_ _)m
A plus
Mam's

08/06/2006, 07h15
SfJ5Rpw8
bien déjà tu peu modifier le while ..:
Code:

1 2 While (ActiveWorkbook.ActiveSheet.Cells(i, Name_Col).Value <> "") 'Excel file parsing ....
ou est défini et initialisé Name_col ..? c'est un entier, contenant le numéro de colonne surveillée....?
08/06/2006, 10h22
AlainTech
Si tu ne dois pas te promener dans plusieurs feuilles ou classeurs, cette syntaxe est plus que suffisante pour la feuille active:

Code:

While Cells(i, Name_Col).Value <> ""

Si tu veux jouer le perfectionnisme, tu peux créer une instance de la feuille:
Code:

1 2 3 4 Dim wksSrc As Worksheet Set wksSrc = ActiveSheet While wksSrc.Cells(i, Name_Col).Value <> "" ...

Citation:

Envoyé par bbil

ou est défini et initialisé Name_col ..? c'est un entier, contenant le numéro de colonne surveillée....?

Oui c'est ca.

En tout cas merci de vous etre penchez sur le sujet.
De mon coter, j'ai fini par mettre la mains sur la solution.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function Parsing_xls()
 
    Dim tmp_str As String
    Dim i As Integer
    Dim wb
 
 
    tmp_str = ""
    tmp_str = tmp_str & "// Screen List" & Chr(10)
    tmp_str = tmp_str & "const GAMEN_TABLE main_gamen_flame_table[] = {" & Chr(10)
    i = rStart_Line
 
 
      While (Workbooks(ActiveWorkbook.Name).Worksheets(ActiveSheet.Name).Cells(i, Name_Col).Value <> "")       'Excel file parsing
            'Chr (9) = tabulation
            i = i + 2
            tmp_str = tmp_str & Chr(9) & "{" & Workbooks(ActiveWorkbook.Name).Worksheets(ActiveSheet.Name).Cells(i, File_Col).Value & "_INIT"
            tmp_str = tmp_str & ", " & Workbooks(ActiveWorkbook.Name).Worksheets(ActiveSheet.Name).Cells(i, File_Col + 1).Value & "_INIT"
            tmp_str = tmp_str & ", " & Workbooks(ActiveWorkbook.Name).Worksheets(ActiveSheet.Name).Cells(i, File_Col + 2).Value & "_INIT},"
            i = i + 1
            tmp_str = tmp_str & Create_Comment(i - 3)
     Wend
 
    tmp_str = tmp_str & Chr(10) & "};" & Chr(10)
 
    Parsing_xls = tmp_str
End Function

Code:

Workbooks(ActiveWorkbook.Name).Worksheets(ActiveSheet.Name).Cells(i, Name_Col).Value

Renvois la cellule a la position i, Name_Col, de la feuille activee dans le book activer.
ActiveSheet.Name et ActiveWorkbook.Name renvoient respectivement le nom de la feuille active et celui du biook actif.

Merci encore
A plus tard
mam's

08/06/2006, 11h09
AlainTech

Autrement dit, pourquoi faire simple quand on peut faire compliqué???