convertir un fichier texte en excel ?

[assniok]

Bonjour a tous,

voila je voulais me faire une petite macro pour automatiser une tache de conversion de fichier assez lourde alors j'ai enregistré une macro en automatique avec la fonction enregistreur de macro...

j'ai alors obtenu une partie de code que j'ai modifié...

cependant, dans mon enregistrement, j'ouvre un fichier bien precis :

    Workbooks.OpenText Filename:="C:\DISQUE\TOTO.TXT", Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(8, _
        1), Array(14, 1), Array(20, 1), Array(26, 1), Array(32, 1), Array(62, 1), Array(70, 1), _
        Array(78, 1), Array(84, 1), Array(92, 1), Array(101, 1), Array(110, 1), Array(119, 1), _
        Array(120, 1)), TrailingMinusNumbers:=True

je voulais donc modifier cela pour que je puisse choisir mon fichier a ouvrir et c'est la que ça ne vas plus...

je ne sais pas utiliser GetOpenFilename avec les propriétés ci dessus...

j'ai bien essayé de faire :

    Application.GetOpenFilename ("Text Files (*.txt), *.txt) Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(8, _
        1), Array(14, 1), Array(20, 1), Array(26, 1), Array(32, 1), Array(62, 1), Array(70, 1), _
        Array(78, 1), Array(84, 1), Array(92, 1), Array(101, 1), Array(110, 1), Array(119, 1), _
        Array(120, 1)), TrailingMinusNumbers:=True

mais sans succes 🙁

avez vous une idée ou un debut de piste qui pourrait m'aiguiller ?

merci d'avance et @++

 

[assniok]

Re : convertir un fichier texte en excel ?

j'ai encore un soucis :s

j'ai donc mon code qui ressemble a ça :

Dim fileToOpen As String
 
    fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
 
    'Si aucun fichier n'a été choisit on sort
    If fileToOpen = "" Then Exit Sub ' si fileToOpen esr vide on sort
        Workbooks.OpenText Filename:=fileToOpen, Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(8, _
        1), Array(14, 1), Array(20, 1), Array(26, 1), Array(32, 1), Array(62, 1), Array(70, 1), _
        Array(78, 1), Array(84, 1), Array(92, 1), Array(101, 1), Array(110, 1), Array(119, 1), _
        Array(120, 1)), TrailingMinusNumbers:=True

cependant, lors que je suis sur la boite de dialogue pour l'ouverture de mon fichier, si jamais je fais annuler, j'ai un message d'erreur m'indiquant que le fichier faux.xls n'existe pas....

avez vous une idée de ce qui se passe ?

merci d'avance 😉

 

[jp14]

Re : convertir un fichier texte en excel ?

Bonjour

Si on utilise le bouton annuler la variable fileToOpen contient "Faux" donc il faut écrire

If fileToOpen = "Faux" Then Exit Sub

JP

 

[assniok]

Re : convertir un fichier texte en excel ?

merci !!!

ça fonctionne parfaitement 😀

encore merci 😉