Passer données txt vers xls !

[kikim]

Re Forum,

Comment faire pour appliquer la conversion txt vers xls pour toutes les feuilles du classeur à part "Feuille1" ?

voir adapter cette macro à mon classeur :

Sub Rectangle1_Clic()
.........................................................................
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True
End Sub

Merci d'avance

 

[Épaf]

Re : Passer données txt vers xls !

Tu ne dis pas quelle version d'Office tu utilises 😉
Pour 2003, tu peux tester ça qui copie, sur la dernière ligne du classeur contenant cette macro, un fichier Texte ayant des tabulations pour séparateurs.

Sub Test()
Dim FirstLineFree As Long, FL1 As Worksheet
Dim Plage As Range
    Set FL1 = ThisWorkbook.Worksheets("feuil1")
        FirstLineFree = FL1.Range("A1").SpecialCells(xlLastCell).Row + 1
        'Ouverture du fichier texte
        Workbooks.OpenText Filename:="D:\txt\Fichier.txt", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, Tab:=True, Semicolon:=False
        DoEvents
    Set Plage = ActiveSheet.UsedRange
        Plage.Copy FL1.Range("A" & FirstLineFree)
    
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub

Bonne après-midi

 

[kikim]

Re : Passer données txt vers xls !

RE
Merci Epaf

A vrais dire je veux finalisé la macro de Jean-Marcel
Et me reste donc de convertir les fichier importés sauf ceux qui porte le bouton de la macro nommé "FeuilledeTravail"

Possible?

 

[Épaf]

Re : Passer données txt vers xls !

Jean-Marcel

Il serait bien que tu mettes le lien, que nous puissions voir de quoi tu parles (icône dans la barre d'outils) Merci

 

[kikim]

Re : Passer données txt vers xls !

Re

https://www.excel-downloads.com/threads/macro-unique.132681/

J'ai deja mis le fichier en piece jointe, le collage se fait sans convertir, la chose qui reste à realiser !

Merci d'avance