XL 2013 Exportation en .txt

[piegre]

Bonjour à tous,

J'ai un code qui exporte la colonne P dans un fichier texte ( toto.txt ) qui se crée. Il fonctionne parfaitement mais, il y a toujours un mais ^^ , il ne fait pas exactement ce que je souhaite.

Il exporte la cellule ( ce qu'il y a dans la barre formule) alors que je souhaiterai exporter le contenu dans la cellule part exemple : au lieu de ="tata" je voudrais tata

voici le fameux code :

Sub Export()
    
Call Importer.variable
    
    Application.ScreenUpdating = False
    Sheets("Plan donnée").Activate
    Columns("P:P").Select
    Selection.Copy
    Workbooks.Add
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="C:\toto.txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
    Application.ScreenUpdating = True

End Sub

 

[Pierrot93]

Re : Exportation en .txt

Bonjour,

modifie peut être comme suit, non testé ...

Sub Export()
    
Call Importer.variable
    
    Application.ScreenUpdating = False
    Sheets("Plan donnée").Activate
    Columns("P:P").Select
    Selection.Copy
    Workbooks.Add
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
Columns("A:A").Value = Columns("A:A").Value
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="C:\toto.txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
    Application.ScreenUpdating = True

End Sub

bon après midi
@+

 

[piegre]

Re : Exportation en .txt

Arf, ça ne marche pas, j'obtient les #REF à la place du texte.

Mais par contre, de mon côté j'ai trouvé ce code là avec le collage spécial, je pense que y'a moyen d'adapter avec le précédent mais je sèche.

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[Paf]

Re : Exportation en .txt

Bonjour

peut-être en faisant un collage spécial valeur ?

en remplaçant

Columns("A:A").Select
ActiveSheet.Paste

par

Columns("A:A").PasteSpecial Paste:=xlPasteValues

A+


Edit : bonjour Pierrot93

 

[Pierrot93]

Re : Exportation en .txt

Re,
bonjour Paf

Arf, ça ne marche pas, j'obtient les #REF à la place du texte.

Aarf... fonctionne chez moi sous 2010....

 

[piegre]

Re : Exportation en .txt

La différence est peut-être le format du fichier excel ? moi il est en xlsm

 

[Pierrot93]

Re : Exportation en .txt

Re,

La différence est peut-être le format du fichier excel ? moi il est en xlsm

je dirais plus la version excel que le type de fichier... A voir également si cellules fusionnées....

 

[piegre]

Re : Exportation en .txt

nan, il n'y a aucune cellule fusionné.

Dans la colonne, il y a juste des =SI ou du texte

 

[Pierrot93]

Re : Exportation en .txt

Re,

Regarde peut être le collage spécial de Paf post#4....

 

[piegre]

Re : Exportation en .txt

Ouais j'ai essayé , mais il n'accepte pas la ligne ("La méthode Pastespecial de la classe Range a échoué")

Mais l'idée est bonne, j'essaie de creuser.

 

[Pierrot93]

Re : Exportation en .txt

Re,

bah... mets un bout de fichier en pièce jointe permettant de tester et de reproduire le problème...

 

[piegre]

Re : Exportation en .txt

Du coup voici un fichier test, la macro exécute ce que je souhaite hormis les "lalala" qui sont transcrit dans le fichier texte en "0"

 

[Pierrot93]

Re : Exportation en .txt

Re,

Sub Export()
    Application.ScreenUpdating = False
    Sheets("feuil1").Activate
    Columns("A:A").Select
    Selection.Copy
    Workbooks.Add
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Columns("A:A").Value = Columns("A:A").Value
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="toto.txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
    Application.ScreenUpdating = True
End Sub

fonctionne chez moi sur le fichier que tu as joint....

 

[piegre]

Re : Exportation en .txt

Bizarre car moi, j'obtient ça :
bonjour
bonjour
bonjour
bonjour
bonjour
bonjour
bonjour
bonjour
bonjour
bonjour
0
0
0
0
0
0

alors que je devrais obtenir ça :

bonjour
bonjour
bonjour
bonjour
bonjour
bonjour
bonjour
bonjour
bonjour
bonjour
lalala
lalala
lalala
lalala
lalala
lalala
lalala
lalala
lalala
lalala
lalala
lalala
lalala
lalala

 

[Pierrot93]

Re : Exportation en .txt

Re,

ok, autant pour moi essaye ceci :

Sub Export()
    Application.ScreenUpdating = False
    Sheets("feuil1").Activate
    Columns("A:A").Copy
    Workbooks.Add
    Range("A1").PasteSpecial xlPasteValues
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="toto.txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
    Application.ScreenUpdating = True
End Sub