C'est un simple fichier texte au format fixe …
Ce qui est gênant par contre est le manque de logique :
![Citation](https://forum.developpez.be/images/misc/quote_icon.png)
Envoyé par
stum32
[…] avec le nouveau liens des fichiers *.TXT qui change chaque jour.
A quoi bon enregistrer des connexions sur des noms de fichiers changeant chaque jour ?‼
Autant ne pas enregistrer de connexion mais importer directement un fichier texte dans une feuille :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub ImportFixe(SRC$, Ws As Worksheet, Optional TRI As Boolean)
If Dir(SRC) = "" Then Beep: Exit Sub
With Ws
.Cells(1).CurrentRegion.ClearContents
With .QueryTables.Add("TEXT;" & SRC, .Cells(1))
.AdjustColumnWidth = False
.PreserveFormatting = True
.RefreshStyle = xlOverwriteCells
.TextFileParseType = xlFixedWidth
.TextFilePlatform = xlWindows
.TextFileColumnDataTypes = [{4,1,1,1,1,1,1}]
.TextFileFixedColumnWidths = [{16,11,11,11,11,11}]
.Refresh False: .Delete
End With
If TRI Then .Cells(1).CurrentRegion.Sort .Cells(2), xlAscending, Header:=False
End With
End Sub |
Exemple d'importation d'un fichier texte dans la seconde feuille du classeur contenant le code :
ImportFixe "D:\Tests4Noobs\test.txt", Feuil2 …
Et en ajoutant à la fin de cette ligne
, True un tri est effectué sur la deuxième colonne.
_____________________________________________________________________________________________________
Merci de cliquer sur
![+1](https://www.developpez.net/forums/images/smilies/poucevert.gif)
pour chaque message ayant aidé puis sur
![:resolu:](https://www.developpez.net/forums/images/buttons/resolu.gif)
pour clore cette discussion …
Partager