Gestionaire de chargement

j'ai presque trouvé la solution a mon deuxième problème : ouvrir une boite de dialogue avec application.getopenfileName
MAIS ( il ya toujours un mais ) : cette boite de dialogue serait parfaite si elle recuperer le nom ( et juste le nom )

bonsoir Antoine

tu peux tester la macro ci dessous qui affiche les fichiers Txt par GetOpenfileName , puis recupere ( le nom du repertoire en option ) puis du fichier selectionné

Sub AfficheCheminEtNomFichier()
Dim Chemin As String
Dim j As Byte, cible As Byte

Chemin = Application.GetOpenFilename("Fichiers texte (*.txt),*.txt")
If Chemin = "Faux" Then Exit Sub
j = 1
Do Until j = 0
cible = j: j = InStr(j + 1, Chemin, "\")
Loop

MsgBox "Le chemin est : " & Left(Chemin, cible - 1)
MsgBox "Le nom du fichier : " & Right(Chemin, Len(Chemin) - cible)
End Sub



bonne soiree
michel

bonjour Michel, merci bien pour le coups de main. mais je crois que j'ai pas fini de t'embeter ....
ce que je veut faire c'est que le texte séparé par des tabulation du fichier txt séléctionné soit collé dans la feuille donnée du classeur LOR02
j'ai essayé ça. Mais c pas jolie jolie et la fin est produite a partir de l'enregistreur de macro ...

public sub chargeConfig()

Dim chemin As String
Dim j As Byte
Dim cible As Byte
Dim NomFichier As String
Dim LongeurNom As Integer


chemin = Application.GetOpenFilename("Fichiers texte (*.txt),*.txt")
If chemin = "Faux" Then Exit Sub
j = 1
Do Until j = 0
cible = j: j = InStr(j + 1, chemin, "\")
Loop

NomFichier = Right(chemin, Len(chemin) - cible)
chemin = Left(chemin, cible - 1)

ChDir chemin
Workbooks.OpenText Filename:= _
CStr(NomFichier), 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))

LongeurNom = Len(NomFichier) - 4
NomFichier = VBA.Left(NomFichier, LongeurNom)
Windows(CStr(NomFichier) + "xls").Activate ' a partir de la c de la macro
ActiveWorkbook.CELLS.Select
Selection.Copy
Windows("LOR02.XLS").Activate
Sheets("données").Select
Range("A1").Select
ActiveSheet.Paste

end sub


en tout cas déja merci pour le premier coupsd e main, ça me permet d'avancer !