Exporter des données d'excel en format texte brut

Je voudrais exporter vers note pad (format text brut donc pour les incorporer dans un éditeur HTML) des données contenues dans plusieurs cellules excel en colonne. Le copier coller me crée des guillemets supplémentaires....

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 : ,

Mots clefs associés à cette page : ,