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 🙂

 

[thunder23]

Je viens de copier ton code et ça me note "Erreur de compilation": Déclaration existante dans la portée en cours

 

[patricktoulon]

oui je declare 2 fois le x pardon

 

[thunder23]

Ok ça marche, est-ce que dans ton code jeux modifier 2 choses?

-mettre un GetOpenFilename
-au lieu de Activesheet que ce soit sur une feuille que je veux

 

[patricktoulon]

ben la reponse est dans la question
t'en a beaucoup comme ca 🙂😛😛😛😛
edit

Sub test()
    Dim tout As String, x, fichier As String, tbl, colonnes
    fichier = "C:\Users\polux\DeskTop\bdd.txt"
    fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt", 1, "ouvrir un fichier")
    If fichier = "" Then Exit Sub
    x = InputBox("tapez les numero de colonnes séparée par une virgule", "liste des colonnes")
    If x <> "" Then colonnes = Split(x, ",")
    x = FreeFile: Open fichier For Binary Access Read As #x: tout = String(LOF(x), " "): Get #x, , tout: Close #x
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText tout: .PutInClipboard: End With
    With Sheets(1).Cells(1, 1)
        .Parent.Activate
        .CurrentRegion.Clear
        .EntireColumn.NumberFormat = "mm/dd/yyyy"
        .Select
        ActiveSheet.Paste
        DoEvents
        tbl = Application.Index(.CurrentRegion.Value, Evaluate("ROW(" & 1 & ":" & .CurrentRegion.Rows.Count & ")"), colonnes)
        .CurrentRegion.ClearContents
        .EntireColumn.NumberFormat = "m/d/yyyy"
        .Resize(UBound(tbl), UBound(tbl, 2)) = tbl
        .Select
    End With

End Sub

😉

 

[thunder23]

Justement je te posais la question car ça me bloquait à la ligne .Select

 

[patricktoulon]

??????????
With Sheets(1).Cells(1, 1)
.Parent.Activate

 

[thunder23]

??????????
With Sheets(1).Cells(1, 1)
.Parent.Activate

Oui oui je viens de faire la modif c'est juste que ça m'est arrivé avant que je te pose la question (#63)

 

[patricktoulon]

Alors rapido ou pas rapido 😉

 

[thunder23]

Ahh oui il n'y a pas photo par contre j'ai remarqué que ça m'efface le tout au lieu que ça me mets à la suite, est-ce normal?

 

[patricktoulon]

ben oui je l'ai concu comme ca
si tu veux ajouter a la suite c'est

Sub test()
    Dim tout As String, x$, fichier As String, tbl, colonnes
    Application.ScreenUpdating = False
        fichier = "C:\Users\polux\DeskTop\bdd.txt"
    fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt", 1, "ouvrir un fichier")
    If fichier = "" Then Exit Sub
    x = InputBox("tapez les numero de colonnes séparée par une virgule", "liste des colonnes")
    If x <> "" Then colonnes = Split(x, ",")
    x = FreeFile: Open fichier For Binary Access Read As #x: tout = String(LOF(x), " "): Get #x, , tout: Close #x
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText tout: .PutInClipboard: End With
    With Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1)
        .Parent.Activate
        '.CurrentRegion.Clear
        .EntireColumn.NumberFormat = "mm/dd/yyyy"
        .Select
        ActiveSheet.Paste
        DoEvents
        tbl = Application.Index(.CurrentRegion.Value, Evaluate("ROW(" & 1 & ":" & .CurrentRegion.Rows.Count & ")"), colonnes)
        .CurrentRegion.ClearContents
        .EntireColumn.NumberFormat = "m/d/yyyy"
        .Resize(UBound(tbl), UBound(tbl, 2)) = tbl
        .Select
    End With

End Sub

mais c'est risqué vu le nombre de ligne tu risque de pas avoir assez de place au bout de la Nème fois

 

[patricktoulon]

c'est bon on est ok je peux virer la maquette ?

 

[thunder23]

c'est bon on est ok je peux virer la maquette ?

Alors pour le transfert plus de soucis, par contre deux petits soucis, les premières dates sont nickel mais après quelques ligne ça me mets au format jj/mm/aa et non jj/mm/aaaa. Pour se qui est de rajouter les lignes ensuite je crois que ça me supprime les premières lignes mais sinon la vitesse d'exécution 😵

 

[patricktoulon]

a bon chez moi pas de soucis pour les dates
je vais vérifier

 

[thunder23]

tu veux que je t'envoie mon fichier pour voir se qui s'y passe?

 

[patricktoulon]

re
ah oui ca vien du fait qu'a un moment dans le txt c'est décalé de 1 a droite
chez moi a partir de la ligne 1345
ben t'es dans la M.. mon pauvre