Modification_Extract_URL

NiFi · 28 Septembre 2017

Bonjour,

Je ne trouve pas de solution pour modifier le code d'extraction que vous trouverez plus bas.
J'aimerais modifier l'URL en fonction de cellule.
Exemple: A1: Hugo -> "URL;http//www.google.com"
B6: Ben -> "URL;http//www.excel-downloads.com"

une idée :S ?

"Sub GPTExt()

Sheets("ExtractGPT").Cells.Clear

With Sheets("ExtractGPT").QueryTables.Add(Connection:= _
"URL;http//XXXXX.COM" _
, Destination:=Range("$A$5"))
.Name = "frmProjectListGpt"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub"

Staple1600 · 28 Septembre 2017

Bonsoir le fil, le forum

Lien supprimé

VB:

Sub Extraire_HL_Address()
Dim hL As Hyperlink
For Each hL In ActiveSheet.Hyperlinks
hL.Range.Offset(, 1) = hL.Address
Next
End Sub

NiFi · 28 Septembre 2017

hhum en fait j'aimerais construire completement l'url en fonction de plusieur cellule.

Dans l'exemple ci-dessous:
p=1&s=&o=&empn=&bus=+&group=0&mydevst=+&myprjst=0&tname=&prid=

Chaque &xxxx doit correspondre à une cellule, exemple:

(pour chaque cellule ainnoncé ci-dessous se trouve une liste de choix)

Si A3=Voiture j'ajoute &empn=151854
SI C7=Bonbon j'ajoute &myprjst=104

résultat sur l'url du code:
With Sheets("ExtractGPT").QueryTables.Add(Connection:= _
"URL;http//XXXXX.COM/XXX.asp?p=1&empn=151854&myprjst=104" _

Modification_Extract_URL

NiFi

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

NiFi

XLDnaute Nouveau

Discussions similaires