QueryTables

[Jfazer]

Plusieurs petites questions (a mon avis chiantes):
Je souhaiterais pouvoir faire une fonction qui puisse fonctionner comme une formule sous excel pour ca à la place de créer un Sub .... End Sub
on crée un Function
Ensuite dans cette fonction je veux me connecter à une page web, donc utilisation de QueryTables! par contre à Destination:=XXXXXXXX je veux pas copier le résultat dans une cellule mais le mettre dans une variable de facon a renvoyer le résultat à FormuleDeTest2 et donc elle retrouvera dans la cellule où la formule a été saisie.
Ci dessous le bout de code de test.
Merci une une aide ou un conseil.
Jfazer



Function FormuleDeTest2( A As Integer )

Dim LaString As String

LaString = "URL;http://monsiteweb/menu.php?Ptf_Id=" & A

With ActiveSheet.QueryTables.Add(Connection:=LaString, Destination:= XXXXXXXX )
.Name = ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

FormuleDeTest2 = LA_Valeur_Retournée

End Function