Bonjour,
ma bonne vieille requête ne fonctionne plus. Quelqu'un aurait-il une idée?
Sub recup_maps()
'
' recup_maps Macro
' Macro enregistrée le 27/08/2009 par Stéphane GIRON
'
'
'Range("E2").Select
Dim n As Integer
Dim source As Range
Set source = ActiveSheet.Range("D2")
source.Select
n = 0
Do While (source.Offset(n, -1) <> "")
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & source.Offset(n, -1) & """" _
, Destination:=source.Offset(n, 0))
.Name = _
""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = False
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
n = n + 1
source.Offset(n, 0).Select
Loop
Columns("D:G").Select
Columns("D:G").EntireColumn.AutoFit
Range("A1").Select
End Sub
ma bonne vieille requête ne fonctionne plus. Quelqu'un aurait-il une idée?
Sub recup_maps()
'
' recup_maps Macro
' Macro enregistrée le 27/08/2009 par Stéphane GIRON
'
'
'Range("E2").Select
Dim n As Integer
Dim source As Range
Set source = ActiveSheet.Range("D2")
source.Select
n = 0
Do While (source.Offset(n, -1) <> "")
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & source.Offset(n, -1) & """" _
, Destination:=source.Offset(n, 0))
.Name = _
""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = False
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
n = n + 1
source.Offset(n, 0).Select
Loop
Columns("D:G").Select
Columns("D:G").EntireColumn.AutoFit
Range("A1").Select
End Sub