transformer un fichier excel en fichier txt

transformer un fichier excel en fichier txt - VB/VBA/VBS - Programmation

Marsh Posté le 28-12-2011 à 11:06:53    

Bonjour,
 
tout d'abord bonnes fêtes de fin d'année
 
Voilà je viens vers vous pour un coup de main pour me faciliter la vie
j ai un fichier excel qui comporte entre 200 et 400 lignes sur 1 à 10000 colonnes
 
je dois transformer ce fichier excel en fichier txt en mettant le colonnes les une a la suite des autres.
 
pour le moment je le fais à la main en ouvrant mon fichier excel et mon fichier txt
et je copie les colonnes du fichier excel vers le txt
 
j aimerais bien le faire par macro si possible
 
Pourriez vous m'aider sur ce sujet
 
Cordialement
Alex

Reply

Marsh Posté le 28-12-2011 à 11:06:53   

Reply

Marsh Posté le 28-12-2011 à 12:29:36    

bonjour, si j'ai bien compris ton besoin ce code devrait faire l'affaire :

Code :
  1. Sub exporttotxt()
  2. Dim maxligne As Integer
  3. Dim maxcolones As Integer
  4. maxlignes = CInt(InputBox("nombre de ligne?", "Nombre de ligne", "" ))
  5. maxcolones = CInt(InputBox("nombre de colonnes?", "Nombre de colonnes", "" ))
  6. myfile = InputBox("Chemin du fichier txt?", "Chemin du fichier txt", "c:\" )
  7. fnum = FreeFile()
  8. Open myfile For Output As fnum
  9.     For i = 1 To maxcolones
  10.            For j = 1 To maxlignes
  11.                Print #fnum, ActiveSheet.Cells(j, i).Value
  12.                Next j
  13.             Next i
  14. Close #fnum
  15. End Sub

Reply

Marsh Posté le 28-12-2011 à 12:36:56    

j essai en début d apres midi
Merci

Reply

Marsh Posté le 28-12-2011 à 13:35:47    

j ai une erreur sur cette ligne
Open myfile For Output As fnum

Reply

Marsh Posté le 28-12-2011 à 13:59:02    

quelle erreur?
Est ce que tu a les droits sur le dossier que tu a spécifié?
Est ce que tu a demandé de créer le fichier a la racine de c:?

Reply

Marsh Posté le 28-12-2011 à 14:01:18    

je suis le super administrateur de mon LAN
et oui j ai mis c: pour le mettre a la racine
 
mais je vais essayer un autre dossier

Reply

Marsh Posté le 28-12-2011 à 14:02:55    

j ai meme essayer sur mon autre disk
pareil

Reply

Marsh Posté le 28-12-2011 à 14:37:09    

met C:\Users\tonusername\Desktop\test.txt par exemple et ça devrait marcher, l’écriture a la racine du disque par un script ne lui plait pas(Pour des raisons de sécurité je pense).

Reply

Marsh Posté le 28-12-2011 à 14:42:47    

Merci
ca fonctionne parfaitement
Bonne fin d'année

Reply

Marsh Posté le 28-12-2011 à 15:06:46    

De rien,
Bonne année.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed