Rapport de message :*
 

Re: Import de fichier

Titre du sujet : Re: Import de fichier
par Alragorn le 25/08/2009 21:53:39

Merci beaucoup Guy

Comme toujours tes solutions sont efficaces.

Je te joins un fichier d'exemple pour l'import.
L'import manuel est très simple et le seul fait d'appuyer sur terminer met en forme le fichier, ensuite il suffit de choisir l'option nouvelle feuille et tout est ok

Voici ce que donne une macro enregistrée avec un import sans la fonction Application.Dialogs(xlDialogImportTextFile)

    ChDir "C:\Documents and Settings\user\Bureau"
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\user\Bureau\1089017.tsv", _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
        Array(22, 1)), TrailingMinusNumbers:=True
    Windows("Classeur1").Activate

L'idée est de créer une nouvelle feuille portant le nom du fichier importer et non de créer un nouveau classeur

Par avance Merci

Cordialement