XL 2010 Importer .txt sur feuille Excel

[thunder23]

Bonjour le forum,

Je souhaite importer les données d'un fichier en format texte sur une feuille Excel mais par VBA et avec la même mise en forme que dans le fichier .txt .
Un exemple est disponible en pièce jointe

Merci pour commentaires

 

[Staple1600]

Bonjour thunder23

Sujet multi-traité sur le forum...
Tu n'as rien trouvé dans les archives du forum?

Effectuez une recherche sur Excel Downloads...

www.excel-downloads.com

 

[thunder23]

Bonjour thunder23

Sujet multi-traité sur le forum...
Tu n'as rien trouvé dans les archives du forum?

Effectuez une recherche sur Excel Downloads...

www.excel-downloads.com

Bonjour Staple1600,

J'ai épluché les archives justement, ça parle de page web, d'un fichier PDF ou d'Access, est-ce la même façon ou c'est totalement différent?

 

[Staple1600]

Re

Tu as mal épluché alors
Regarde à droite de ton écran, dans les discussion similaires.

 

[thunder23]

Re

Tu as mal épluché alors
Regarde à droite de ton écran, dans les discussion similaires.

Re,

Ah oui effectivement je n'y ai pas du tout penser
Je vais jeter un coup d’œil, merci

 

[thunder23]

Re Staple1600,

J'ai trouvé ce code où tu avais commenté sauf qu'elle supprime les 5 dernières lignes, est-ce tu serais comment annuler cette manip?

Voici le sujet en question

https://www.excel-downloads.com/threads/importer-une-partie-dun-fichier-txt.162911/

 

[Staple1600]

Re

Tu peux joindre un exemplaire "brut" de ton fichier Txt, stp ?
(en le zippant au préalable)
Cela permettra de faire des tests d'importation sur nos PC.

 

[thunder23]

Re,

Le voici en pièce-jointe

 

[Staple1600]

Re

Cette macro est un peu élaguée et plus simple à modifier.
(toujours adaptée du code produit par l'enregistreur de macros)

Sub Macro1_Bis()
Dim typeCol, Chemin$
Application.ScreenUpdating = False
Chemin = "C:\Users\STAPLE\Documents\bdd.txt"
typeCol = Array(4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chemin, Destination:=Cells(1))
        .Name = "bdd"
        .FieldNames = True
        .PreserveFormatting = True
        .RefreshStyle = xlInsertDeleteCells
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileTabDelimiter = True
        .TextFileColumnDataTypes = typeCol
        .TextFileDecimalSeparator = "."
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

PS: J'ai donc supprimé le précédent message.

 

[thunder23]

Re

Cette macro est un peu élaguée et plus simple à modifier.
(toujours adaptée du code produit par l'enregistreur de macros)

PS: J'ai donc supprimé le précédent message.

Re,

Ok ça marche, je vais testé ça
Merci

 

[thunder23]

Je viens de le tester et ça fonctionne par contre j'ai remarqué que ça créer une plage dans le gestionnaire de nom, est-ce qu'il y a un moyen que ça ne créer pas de plage à chaque action de la macro?

 

[Staple1600]

Re

L’intérêt de cet méthode c'est tu peux actualiser la requête.
En quoi la présence d'une plage nommée te gêne?
Tu peux toujours mettre en commentaire cette ligne
'.Name = "bdd"
Mais cela ne changera pas grand chose

 

[thunder23]

Re

L’intérêt de cet méthode c'est tu peux actualiser la requête.
En quoi la présence d'une plage nommée te gêne?
Tu peux toujours mettre en commentaire cette ligne
'.Name = "bdd"
Mais cela ne changera pas grand chose

Re,

Oui je sais mais je ne serais sans doute pas le seul à avoir ce fichier, c'est que je voudrais qu'il soit le plus simple possible

 

[Staple1600]

Re

Et pour cette question

est-ce qu'il y a un moyen que ça ne créer pas de plage à chaque action de la macro?

La réponse est dans le message#2 sous la forme d'un lien

 

[thunder23]

Ok je vais aller voir ça

Merci pour ton coup de main