Bjr le forum,
Mon besoin est d'importer quotidiennement des fichiers texte depuis Excel.
Le fichier texte se trouve sur un répertoire Y:\cuba\extraction\
Le fichier à importer est nommé CUBA_TEXT_20070921090733 avec la date et l'heure de l'horodatage du fichier texte qui se trouve sur le même répertoire.
Ce que j'aimerai, c'est pouvoir choisir dans la liste du répertoire le fichier du jour à importer.
Ma macro :
je crois qu'il faut utiliser la fonction chdir pour ouvrir la boîte de dialogue du répertoire où se trouve les fichiers.
J'aimerai avoir obtenir des infos, si vous avez un code mieux que ça, n'hésitez pas.
Merci d'avance.
Mon besoin est d'importer quotidiennement des fichiers texte depuis Excel.
Le fichier texte se trouve sur un répertoire Y:\cuba\extraction\
Le fichier à importer est nommé CUBA_TEXT_20070921090733 avec la date et l'heure de l'horodatage du fichier texte qui se trouve sur le même répertoire.
Ce que j'aimerai, c'est pouvoir choisir dans la liste du répertoire le fichier du jour à importer.
Ma macro :
Code:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Y:\cuba\extraction\CUBA_NOMAD_20070921090733.txt", Destination:=Range( _
"A1"))
.Name = "CUBA_NOMAD_20070921090733"
.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 = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 1, 1, 2, 1, 9, 9, 9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
J'aimerai avoir obtenir des infos, si vous avez un code mieux que ça, n'hésitez pas.
Merci d'avance.