Posez votre question Signaler

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

Messages postés
7
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
10 janvier 2016
 - - Dernière réponse : NHenry
Messages postés
14484
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
15 juin 2019
 - 11 janv. 2016 à 20:24
VBA Office (Excel, Word ...) Posez votre question Signaler
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
Afficher la suite 

1 réponse

Signaler Commenter la réponse de NHenry
Messages postés
14484
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
15 juin 2019
 131
0
Merci
Comme précédemment suggéré, je te conseil de passer un paramètre à ta Sub Import afin de lui donner l'URL cible.
Afficher les 9 commentaires
Signaler Commenter la réponse de Amatheux
Amatheux
Messages postés
7
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
10 janvier 2016
 -
ça coince toujours !
Il me met en jaune la dernière ligne d'instructions
".Refresh BackgroundQuery:=False"
de la deuxième macro !
Signaler Commenter la réponse de Amatheux
Amatheux
Messages postés
7
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
10 janvier 2016
 -
En fait je me rend compte que je n'ai pas une macro qui puisse me réclamer l'adresse internet sur laquelle la macro import puisse s'exécuter...!
Signaler Commenter la réponse de Amatheux
Amatheux
Messages postés
7
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
10 janvier 2016
 -
En analysant le code du bouton de remplissage qui est le suivant:

__________________________________________________________
Private Sub CommandButton1_Click()

Dim VBComp As VBComponent
Dim Anciene_Adresse As String, Nouvelle_Adresse As String, Recherche As String
Dim i As Integer

If TextBox2 = "" Then
MsgBox "Entrer l'adresse du nouveau serveur", vbInformation, "Attention:"
Exit Sub
End If

Anciene_Adresse = TextBox1.Text
Nouvelle_Adresse = TextBox2.Text

Set VBComp = ActiveWorkbook.VBProject.VBComponents("Module1")

With VBComp
For i = 1 To .CodeModule.CountOfLines
Recherche = .CodeModule.Lines(i, 1)
Recherche = Replace(Recherche, Anciene_Adresse, Nouvelle_Adresse)
.CodeModule.ReplaceLine i, Recherche
Next
End With

Sheets("Feuil1").Range("A2") = TextBox2.Text
Ma_Macro (TextBox2)
Unload Me


End Sub
__________________________________________________________
Private Sub CommandButton2_Click()
Unload Me
Ma_Macro (TextBox2)
End Sub
__________________________________________________________
Private Sub UserForm_Initialize()
Adresse_Serveur = Sheets("Feuil1").Range("A2").Text
TextBox1 = Adresse_Serveur

End Sub
__________________________________________________________

" TextBox2 " joue le rôle de " adresse " dans mes précédentes macros.
J'ai donc essayé d'incorporer la ligne de commande " import (TextBox2) " un peu de partout dans les différentes macros ci-dessus, mais ça ne fonctionne toujours pas....! J'ai même Excel qui se ferme par frustration...!
Signaler Commenter la réponse de Amatheux
Amatheux
Messages postés
7
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
10 janvier 2016
 -
En étant moins ambitieux, j'ai fait modifié ma première macro par :
__________________________________________________________
Sub Appel()
'
' Appel Macro
Dim adresse As String
adresse = Range("A1").Value
import (adresse)
End Sub

__________________________________________________________

Il me suffit alors de rentrer l'adresse voulue en A1 puis de lancer la macro Appel et ça marche...!
Faudra que j'y revienne une autre fois avec l'histoire du bouton qui permet de changer les choses....!

Encore merci M. Henry pour cet échange qui m'a permis d'apprendre quelque chose aujourd'hui..!

Bien cordialement,
A très bientôt !
Signaler Commenter la réponse de NHenry
NHenry
Messages postés
14484
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
15 juin 2019
 131 -
De rien :)
Commenter la réponse de NHenry
Répondre Posez votre question