Exporter des données d'excel en format texte brut
Première soluce Copier dans word pad puis resélectionner et coller dans notepad...
Deuxième soluce, par VBA
sub Exporttexte() numfic = FreeFile() Dim LeTexte As String Dim lignelue As Integer
Contrairement à l'instruction Print #, l'instruction Write # insère des virgules entre les éléments et des guillemets doubles de part et d'autre des chaînes de caractères au moment de leur écriture dans le fichier. L'instruction Write # insère un caractère de passage à la ligne, c'est-à-dire un retour chariot-saut de ligne (Chr(13) + Chr(10)), après l'écriture dans le fichier du dernier caractère contenu dans l'argument outputlist. CONCLUSION : il ne faut pas utiliser l'instruction WRITE # voir également la rubrique d'aide concernant PRINT # (probleme pour relecture !)
Open "temporaire.htm" For Output As #numfic With ActiveSheet lignelue = 1 While Not IsEmpty(.Cells(lignelue, 1)) LeTexte = ActiveSheet.Cells(lignelue, 1).Value Print #numfic, LeTexte lignelue = lignelue + 1 Wend Close #numfic ' Ferme le fichier. End With end sub
Auteurs : Laurent Mortézai, GeeDee
Mots clefs associés à cette page : texte, exporter
- Vous devez vous identifier ou créer un compte pour écrire des commentaires
