Split d'une case et choix du fichier d'importation

Bonjour j'importe un fichier texte mais j'aimerais qu'il me propose le bon répertoire d'importation.

en utilisant ça :

fich_txt = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")

Workbooks.OpenText Filename:=fich_txt, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True

il me propose : C:\Users\100011494\AppData\Roaming\Microsoft\Excel\XLSTART et j'aurais aimé qu'il me propose c:\Toto\tata

mais bon ....

après quand je lui demande çà :

ActiveWorkbook.Sheets(1).Range("A1") = fich_txt

afin qu'il me mette le nom du fichier texte j'aurais aimé splitter la valeur qui est dans fichier text

[attachment=0]TOTO.xlsm

d'abord supprimer une partie du nom mais je sais faire, puis il devrait me rester "Tartampion_choupette"

et j'aurais aimé qu'il me colle "tartampion", dans une case et en dessous (ou à coté je ne suis pas si chiant que ça et "choupette" dans l'autre.

Merci d'avance

bonjour,

voici pour la première question, la deuxième je n'ai pas compris.

Option Explicit

Sub import()
Dim fich_txt As String
Dim fich_source As String

fich_source = ActiveWorkbook.Name
'effacement des données présentes
Feuil1.Range("A1:A" & Feuil1.Cells(Rows.Count, 2).End(xlUp).Row).ClearContents
ChDir "c:\Toto\tata"
'demande a l'utilisateur de choisir un fichier
fich_txt = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
'ouverture du fichier txt
Workbooks.OpenText Filename:=fich_txt, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True

'copie des lignes
ActiveWorkbook.Sheets(1).Range("A1") = fich_txt
ActiveWorkbook.Sheets(1).Range("A1:A" & ActiveWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Copy 'Workbooks(fich_source).Feuil1.Range("A1")
'collage spéciale des valeurs
Workbooks(fich_source).Sheets(1).[A4].PasteSpecial xlValues
'fermeture du fichier
Application.DisplayAlerts = False
ActiveWorkbook.Close False
Application.DisplayAlerts = True
End Sub

Ok ça marche super

Pb 2 alors

en A4 de la feuil1 j'ai ça : "C:\ISD\test_DFI\00776F48_US55554103.properties"

Je supprime c:\isd\test_DFI\ et .properties comme ça

Sheets("feuil1").Select

Range ("A4").Select

Selection.Replace What:="C:\ISD\test_DFI\ ", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

il me reste donc en A4 : 00776F48_US55554103

je voudrais avoir en A5 00776F48 et en A6 : US55554103

mais je crois avoir lu comment faire quelque part sur le forum je vais chercher un peu mieux

Bonjour

Range("A5").Resize(2) = application.Transpose(Split(Range("A4"), "_"))

MErci beaucoup au top merci !!!!!