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

 

[piegre]

Re : Exportation en .txt

Super, ça marche niquel, merci Pierrot

 

[piegre]

Re : Exportation en .txt

J'ai une dernière petite question, savez vous comment faire pour supprimer les blancs lors de l'exportation.

Par exemple si j'exporte la colonne A comme tout à l'heure ( dans le fichier essai ) , et que entre les "bonjour" et les "lalala" il y a des cases vides, et que je ne souhaite pas qu'elles soient présentes dans le fichier .txt exporté.

 

[Pierrot93]

Re : Exportation en .txt

Re,

essaye comme ceci :

Sub Export()
    Application.ScreenUpdating = False
    Sheets("feuil1").Activate
    Columns("A:A").Copy
    Workbooks.Add
    Range("A1").PasteSpecial xlPasteValues
    On Error Resume Next
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Delete
    On Error GoTo 0
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="toto.txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
    Application.ScreenUpdating = True
End Sub