Si cela peut t'aider d'avantages:
Cet exemple permet d'importer un fichier texte de type largeur fixe dans une nouvelle table de requête. La première colonne du fichier texte a une largeur de cinq caractères et est importée en tant que texte. La deuxième colonne a une largeur de quatre caractères et est ignorée. Le reste du fichier texte est importé dans la troisième colonne et a le format Standard.
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables. Add ( _
Connection : = "TEXT;C:\My Documents\19980331.txt",
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.TextFileParsingType = xlFixedWidth
.TextFileFixedColumnWidths := Array(5,4)
.TextFileColumnDataTypes := _
Array(xlTextFormat, xlSkipColumn, xlGeneralFormat)
.Refresh
End With
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas: