" Modifier une partie d'une macro à partir d'une autre macro "Résolu

Question

Bonjour tout le monde,

Je suis complètement novice en VBA, et à mes heures perdues j'essaie de m'amuser à apprendre comment faire des macros sous excel. 
N'ayant pas de formation là dedans, j'arrive tant bien que mal à bidouiller, mais là je suis sur un problème dont je n'arrive pas résoudre: 
" Modifier une partie d'une macro à partir d'une autre macro en utilisant un userform". 
Je suis tombé dans un "vieux" forum donnant le code suivant: 

Public Adresse_Serveur As String
__________________________________________
Sub Ma_Macro()
Dim Ttl As Long
Dim i As Integer
Ttl = 1
For i = 1 To 10
 Ttl = Ttl * i
Next
Workbooks.Open Filename:="essai" & gmao & ".slk"
End Sub
___________________________________________
Sub usf()
UserForm1.Show
End Sub



En fait j'aimerai faire quelque chose d'équivalent :
1) Une première macro qui ouvre une page internet et qui la recopie sur une page excel comme celle-ci:



Sub import()
' import Macro
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.turfomania.fr/fiches/jockeys/gelormini-g.html?idjockey=7721", _
        Destination:=Range("$A$1"))
        .Name = "gelormini-g.html?idjockey=7721_2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

2) Puis une deuxième macro qui, avec un userform, me permettrait d'exécuter la première macro mais avec la nouvelle adresse internet que j'aurai rentrée dans le userform.

Je ne sais pas si vous avez un peu de temps pour vous plonger dans ce problème? 
En tout cas ça m'aiderai bien...!

bien cordialement,
Amatheux

NHenry · Answer

Comme précédemment suggéré, je te conseil de passer un paramètre à ta Sub Import afin de lui donner l'URL cible.

" Modifier une partie d'une macro à partir d'une autre macro "

1 réponse

Votre réponse

Discussions similaires