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 : Sélectionner tout - Visualiser dans une fenêtre à part
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