Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

import de texte VBA avec excel2000

oliv67

XLDnaute Occasionnel
Bonjour j'ai réalisé une importation de texte via le code ci dessous, sous excel 2002 ca fonctionne

sous 97, object non reconnu

qqn a t il une solution

MERCI

With ActiveSheet.QueryTables.Add(Connection:= _
'TEXT;' & ouvertureFichier, Destination:=Range('A5'))
.Name = 'Tedic440_1'
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 11
.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)
.TextFileFixedColumnWidths = Array(1, 7, 1, 3, 1, 7, 6, 32, 1, 9, 1, 25)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns('A:A').Select
Selection.Delete shift:=xlToLeft
Range('A1').Select
 

Discussions similaires

Réponses
4
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…