Discussion :

[cemyr]

Bonjour,

Je souhaite récupérer un tableau dans Excel et le copier dans un fichier text ou csv. Voici ce que j'ai pour le moment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Sélection du tableau 
    Set PlageTab = Range("A" & DebTab & ":M" & FinTab)
 
 'Création du ficher qui va contenir le tableau
    Set FSys = CreateObject("Scripting.FileSystemObject")
    '.... vérification de l'existence de mon fichier
    Set MonFic = FSys.CreateTextFile(Chemin & "\" & Nomtab & ".txt")
 
 'Copie du tableau dans le ficher nouvellement créé
    With MonFic
          .WriteLine '???? et là c'est la grande question
    End With

[mayekeul]

bonjour,

pour ma part, je ferais plus quelque chose dans ce genre là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim wb As Workbook
 
Set wb = Workbooks.Add
ThisWorkbook.Sheets(1).Range("A" & debTAB & ":M" & fintab).Copy
wb.Sheets(1).Range("A1").PasteSpecial xlPasteAll
wb.SaveAs Filename:=Chemin & "\" & Nomtab & ".txt", FileFormat:=xlCSV, CreateBackup:=False, local:=True

[spaiku]

Bonjour,

Je suis d'accord avec Mayekeul. Si tu veux conserver ta méthode, tu peux faire quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Lne as Range
Dim Cel as Range
Dim Sep as String
Dim LneTxt as String
 
Sep = ";" 'par exemple. Tu mets évidemment ce que tu veux.
For Each Lne In PlageTab.Rows
    LneTxt = ""
    For Each Cel In Lne.Cells
        LneTxt = LneTxt & Cel.Value & Sep
    Next Cel
    MonFic.WriteLine LneTxt
Next Lne

[cemyr]

Merci bien,

Sous vos conseils j'ai suivi ta méthode Mayekeul dont je ne comprend pas exactement les rudiments (mais tant pis je regarderai ca plus tard).
Du coup j'abuse et je pose une question idiote :
Comment je ferme mon fichier?

[mayekeul]

en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wb.close false

pour explication

tu ouvre un nouveau classeur
tu copie les données de ton tableau
tu les colle dans le nouveau classeur
que tu sauve au format CSV directement
et puis comme tu me l'a demandé
tu ferme le fichier csv créé

[cemyr]

MERCI BEAUCOUP POUR VOTRE AIDE