[Résolu] Copier données Excel dans un fichiers .txt

[Lone-wolf]

Bonsoir à tous,


j'aimerais copié les données en colonne dans le fichier .txt;

Sub Test
Dim fs, ftxt, xl As Object
Dim fichier As String

' creation du fichier texte d'extraction
fichier = "D:\Main.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set ftxt = fs.CreateTextFile(fichier, True)

' ouverture fichier + selection
Set xl = New Excel.Application
xl.Workbooks.Open FileName:="D:\Dossiers Excel\VBA Excel\Divers\Copier", UpdateLinks:=3
Worksheets.Select (1)
Rows("A1:B100").Select

Clipboard.Clear
Selection.Copy
ftxt.writeline Clipboard.GetText
Clipboard.Clear

set xl = Nothing
set fs = Nothing

End Sub

mais, j'ai une erreur sur ClipBoard.Clear > Objet requis

et j'ai vu dans l'aide que Clipboard.GetText n'était pas accepté.



A+ 😎

 

[Lone-wolf]

Re : Copier données Excel dans un fichiers .txt

Voilà, j'ai trouvé un code sur le site de C.Pearson qui fonctionne très bien.

Lien: Exporting And Importing Text Into Excel

Comme mon fichier maintenant va de A1 à B600, le code doit s'arrêter à cette ligne et ignoré les lignes vides.

A la place du signe |, j'aimerais la tabulation.

Voici ce que ça donne dans le fichier .txt

Resources|access.cpl|"" 'ici Ressources est le dossier
""|acctres.dll|""
""|accwiz.exe|""
""|admparse.dll|""
""|ahui.exe|""
""|appmgr.dll|""
""|asctrls.ocx|""
""|Audiodev.dll|""
""|avtapi.dll|""
""|batmeter.dll|""

'ligne 600 Fin - ensuite

""|""|""
""|""|""
""|""|""
""|""|""
""|""|""
""|""|""
""|""|""
""|""|""
""|""|""
""|""|""
' puis

""|10.71|""
""|10.71|""
""|10.71|""
""|10.71|""
""|10.71|""
""|10.71|""
""|10.71|""
""|10.71|""