Importer data dans une feuille ciblée

Bonjour

Je souhaite importer des données contenues dans un fichier texte avec comme séparateur des ";" dans une feuille appelée "IMPORT" d'un classeur Excel.

Après des recherches sur le forum j'ai trouvé qu'on pouvait avantageusement insérer les lignes de code ci-dessous dans l'Objet "feuille" dans VBA.

Sub test()

Application.Dialogs(xlDialogImportTextFile).Show

End Sub

Seulement ça me demande de renseigner les cellules de destination.

Une question alors, que dois je renseigner dans la macro pour lui imposer par défaut les colonnes souhaitées ici A2 à G2 ? le nombre de lignes peut être variable.

Merci d'avance pour vos réponses.

hello

es-tu essayé l'enregistreur de macros ?

parfait pour trouver des idées de code

J'ai commencé par là comme tout débutant mais ça ne réalise pas l'importation dans une feuille déja ouverte.

re à toi

j'ai eu ça

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 24/11/2008 par jmd
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\jmd\Desktop\Nouveau document texte.txt", Destination:=Range( _
        "B12"))
        .Name = "Nouveau document texte"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

et ça fonctionne depuis le fichier Nouveau document texte.txt

Bonsoir JMD

Franchement merci ! j'ai pourtant essayé sans que ça me sorte ce code... et en plus sur d'autres forums on m'expliquait que c'était pas possible

Arf !

des nom, des noms !

jmd a écrit :

Arf !

des nom, des noms !

Râf ch'uis pas une balance

Sinon je vais tenter d'améliorer ça pour que ça ouvre le fichier texte dans une feuille cible du classeur dans lequel est cette macro et là c'est "perfect" !

Bon WE