Requête excel : Coordonnées GPS google Map

Phagege@

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

Discussions similaires

Statistiques des forums

Discussions
311 713
Messages
2 081 808
Membres
101 819
dernier inscrit
lukumubarth