Bonjour à tous,
Premier post sur ce site qui m'a tant aidé jusqu'ici.
Je suis certain que ce sujet doit être déjà traité mais je n'ai pas trouvé de post en ce sens.
J'importe un fichier CSV dans Excel via un code VBA. Tout vas bien jusque là.
Ce fichier peut avoir n ligne. Je souhaite donc nommer cet import et mon code VBA le fait par defaut. La plage se nomme "WO_Data"
Mon problème vient du fait qui si je fais retourner l'import, il nomme la plage "WO_DATA_1" et non "WO_DATA".
J'ai bien essayé de rajouter un code issue d'une macro pour supprimer le nom de la plage avant, mais Excel doit tout de même garder cela en mémoire qlq part car l'import continue de s'incrémenter.
NB : La raison pour nommer cette plage est pour la réutiliser comme définition de la source dans des tableaux croiséé dynamiques.
Mon code pricipalement réalisé via l'enregistrement de macro.
Premier post sur ce site qui m'a tant aidé jusqu'ici.
Je suis certain que ce sujet doit être déjà traité mais je n'ai pas trouvé de post en ce sens.
J'importe un fichier CSV dans Excel via un code VBA. Tout vas bien jusque là.
Ce fichier peut avoir n ligne. Je souhaite donc nommer cet import et mon code VBA le fait par defaut. La plage se nomme "WO_Data"
Mon problème vient du fait qui si je fais retourner l'import, il nomme la plage "WO_DATA_1" et non "WO_DATA".
J'ai bien essayé de rajouter un code issue d'une macro pour supprimer le nom de la plage avant, mais Excel doit tout de même garder cela en mémoire qlq part car l'import continue de s'incrémenter.
NB : La raison pour nommer cette plage est pour la réutiliser comme définition de la source dans des tableaux croiséé dynamiques.
Mon code pricipalement réalisé via l'enregistrement de macro.
Sub Impor_WO_Detail_CSV_FILE()
'
' Impor_WO_Detail_CSV_FILE Macro
' Macro recorded 05/04/2012 by Tutu
'define file location details from Excel file information
var_path_CSVfile = Worksheets("Settings").Range("C3").Value
var_name_CSVfile = Worksheets("Settings").Range("C4").Value
var_name_InsertWorkSheet = Worksheets("Settings").Range("C5").Value
'start importing CSV
Sheets(var_name_InsertWorkSheet).Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
' ActiveWorkbook.Names("WO_Data").Delete
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & var_path_CSVfile & var_name_CSVfile _
, Destination:=Range("A1"))
.Name = "WO_Data"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("A1:R1").Select
Selection.AutoFilter
Sheets("FDT").Select
Range("A5").Select
End Sub