freddycruger59
XLDnaute Nouveau
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!
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!