Discussion :

[deubelte]

Bonjour
Je voudrais copier tout un tableau d'une feuille Excel 2007, qui ressemble a cela:
GS 30/04/2008 07:30:01 BUY 124.65 -300 192.68 1
GS 30/04/2008 07:30:01 BUY 134.65 -500 192.68 1
GS 30/04/2008 07:30:01 BUY 137.65 -100 192.68 1
GS 30/04/2008 07:30:01 BUY 139.65 -5300 192.68 1

dans un fichier.txt. Voilà comment je fais:

Code :

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

1
2
3
SourceFile = "C:\GS\mars2008\GS_20080303.xlsx"
DestinationFile = "C:\Nyse\Fichier_primaire.txt"
FileCopy SourceFile, DestinationFile

Le pb, c'est que quand j'ouvre le fichier .txt, voilà ce que j'obtiens:

@4Z>\Q[2ŸjneßÀÂÝ•w‹Òìbp÷Ì|*·ƒ]Y¸9 �aÐTlƒf™†q)ã±4*#�[ �œ;>�¼¿4†Áô6y1òVÄp¢”„*#Ì45'åf>^dš]>YP®÷¥1~wkA¹Ür«1™P5 '%åf>^h³KÂmÜ3Êû‹ÚlÛº¡r%Ÿj[*žâ«ifK¤©÷ƒ©êžQM‡@¥4,*[Í(iq|FyQCZzüžÊYM9ðÙJ>Qá!8£Ô˜%›„…gϦQš]æþgžWvþ“µ]!

Comment résoudre ce genre de pb? C'est un pb de format je pense

Merci

[aalex_38]

bonjour à tous,

Code :

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

FileCopy

C'est pour recopier un fichier non ?

a mon avis, vaut mieux enregistrer ton classeur au format text, utilises l'enregistreur de macro pour trouver la bonne syntaxe


Edit: ce que tu fais dans ton code, c'est la même chose que si tu recopie un fichier excel et que tu l'ouvres avec notepad, essais pour voir

Edit2 : La méthode de ESVBA est bien aussi.

[ESVBA]

Code :

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

FileCopy

copie un fichier mais ne change pas son format (sa structure) même s'il porte une autre extension.

Le plus simple est de faire une exportation avec Excel en format texte (voir les menus). Comme le suggère aalex_38

Sinon en programmation, voici un code qui copie les cellules dans un fichier texte :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub CopyTxt()
    Open "FichierExport" For Output As #1
    For l = 1 To 5 'lignes
        For c = 1 To 4 'colonnes
            Print #1, Str(Cells(l, c).value);" ";
        Next c
        Print #1, ""
    Next l
Close #1
End Sub

ESVBA