Bonjour,
J'ai bien avancé sur mon problème d'hier qui était d'importer un fichier texte dans excel et de le découper en colonnes....
Je suis cependant bloqué à nouveau par une macro que j'ai faite en enregistrement et que je n'arrive pas à modifier....
voici mon code:
Sub importation_txt()
'
' importation_txt Macro
' importer et découper le fichier texte
'
ChDrive "C:"
ChDir "C:\Users\guillaume\Desktop\"
fichier = Application.GetOpenFilename("Texte fichiers (*.txt), *.txt")
With ActiveSheet.QueryTables.Add(
Connection:= _
"TEXT;C:\Users\guillaume\Desktop\OFMANITO.TXT", Destination:=Range("$A$1"))
.Name = "OFMANITO"
.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 = 28
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(15, 37, 3, 3, 8, 12, 13, 10, 6, 11, 10, 9, 9, 9, 10, 9, _
9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Ma question est la suivante: par quoi il faut que je remplace "C:\Users\guillaume\Desktop\OFMANITO.TXT" et que faut-il mettre à name= pour que ce soit le fichier que je choisi dans C:\users\guillaume\desktop qui soit pris en compte et non toujours le même fichier?
Merci d'avance pour votre aide!