[VBA-E]Créer un fichier txt depuis une feuille Excel

Version imprimable

16/02/2006, 12h14
marie10

[VBA-E]Créer un fichier txt depuis une feuille Excel

Bonjour!
Je souhaite programmer une manipulation depuis VBA pour copier une feuille active dans un fichier texte, et je ne sais vraiment pas comment faire.
En fait, je voudrais que depuis ma feuille, je lance une macro qui me copie les données de la feuille dans un fichier .txt existant ou que l'on créée par la manipulation...
je ne sais vraiment pas comment procéder et je n'ai rien trouver dans les tutoriels!! :cry:

Merci d'avance!!!
16/02/2006, 12h17
Megaxel

Petite recherche avancée sur le forum, et voila:
http://www.developpez.net/forums/vie...=fichier+texte

A toi d'adapter ça à ton propre cas.
16/02/2006, 12h29
marie10

Bin en fait je ne veux pas faire un Enregistrer sou mais une copie.. c'est a dire que mon fichier excel source ne soit pas impacté! est ce possible ou dois je passer par la méthode Save as obligatoirement?

Tu peux enregistrer la feuille courante en format csv. C'est un txt.
Attention : Enregistré manuellemnet, les séparateur sont des points-virgules mais enregistré par macro, les séparateurs sont des virgules.
Syntaxe pour obtenir des virgules comme séparateurs

Code:

1
2
    ActiveWorkbook.SaveAs FileName:="D:\NomRep\NomFich.csv", _
        FileFormat:=xlCSV, CreateBackup:=False

Le mieux, si tu veux conserver le point-virgule comme séparateur est de créer le txt de toute pièce en enregistrant cellule par cellule.
Enfin, ce code permet d'ajouter les données de plusieurs feuilles de calculs dans ton txt, contrairement au csv (version VBA97) qui n'enregistre que la feuille active.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub CréerFichierCSV()
Dim i, j, DernièreLigne, DernièreColonne
    NbreDeFeuilles = ActiveWorkbook.Worksheets.Count 'compte le nombre de feuille de ton classeur
    Application.ScreenUpdating = False  'Fige l'écran (évite les mvt d'écran)
    Open "d:\FichierTextSéparateurPointVirgule.csv" For Output As #1  'Tu crées le fichier text
    For FeuilleAcopier = 1 To NbreDeFeuilles
        Worksheets(FeuilleAcopier).Select
        'Dernière colonne :
        'On suppose qu'il existe une entête pour toutes les colonnes renseignées
        DernièreColonne = Cells(1, 1).SpecialCells(xlCellTypeBlanks).Column - 1
        'Dernière ligne renseignée
        DernièreLigne = Cells(1, 1).SpecialCells(xlCellTypeLastCell).Row - 1
         'La lecture des cellules commence en A1 dans chaque feuille de calcul
        For i = 1 To DernièreLigne
            For j = 1 To DernièreColonne - 1
                Print #1, Cells(i, j).Value + ";"; 'ici, le séparateur
            Next j
            Print #1, Cells(i, j + 1).Value ' ici pas de séparateur pr le saut de ligne
        Next i
    Next FeuilleAcopier
    Close #1
    Application.ScreenUpdating = true
End Sub

Tu dis

17/02/2006, 13h09
marie10

Super!! merci bcq!!

Un grenoblois en plus.. :D

J'essaye avec ca. Merci!
17/02/2006, 13h16
Megaxel

Je ne veux pas faire le grognon, marie10, mais le lien que je t'ai donné hier contenait une réponse de Ouskeln'or à peu près identique à celle qu'il a du te redonner...
Mais bon, il fallait descendre jusqu'à la 4ème réponse...
Après, moi, ce que j'en dis...

Bin oui dslée... mais j'ai pas reussi a faire marcher le code du lien, et puis je ne l'avais pas trouvé avant que tu me le donnes! Donc vraiment dslée...

Enfin quoiqu'il en soit, j'ai encore une petite question.... Le code marche donc bien maintenand, mais il ne revient pas a la ligne dans le fichire texte en meme temps que sur Excel.. est ce normal et comment paramétré ca autrement??
Voila mon code si jamais c'est possible avec:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Open "c:\FichierTextSéparateurPointVirgule.txt" For Output As #1 'Tu crées le fichier text Sheets("Upload").Select Cells(1, 1).Select i = 1 While Len(Cells(i, 1)) > 0 For j = 1 To 3 Print #1, Cells(i, j).Value; Next j i = i + 1 Wend Close #1
:?:

Hello,

Dans le code que je t'ai donné, il y a ça
Code:

1 2 3 4 5 6 For i = 1 To DernièreLigne For j = 1 To DernièreColonne - 1 Print #1, Cells(i, j).Value + ";"; Next j Print #1, Cells(i, j + 1).Value Next i
le deuxième Print #1, Cells(i, j + 1).Value n'était pas là pour faire joli mais pour faire le passage à la ligne suivante
Le point virgule évite ce saut à la ligne pour chaque écriture d'une cellule.

Plus d'explications sur simple demande :wink:

A+

20/02/2006, 17h24
marie10

Ouii super ca marche!
Merci bcq!!!
20/02/2006, 17h36
ouskel'n'or

Super ! :lol: Alors un petit coup de "Résolu" pour fêter ça, tu sais, le bouton :resolu: en bas et à gauche... :wink: