Requete sur le Web
Bonjour à toutes et à tous
Comment relier un bouton "CommandButton1" à une "Requette sur le Web" ??
J'ai bien un exemple dans une application où le clic sur un bouton commande une recherche sur le Web et rapporte les données sur la "Feuil1"
Mais impossible dans les macros ou autre de trouver le lien entre le bouton et la requette.
Merci
Cordialement
Bonjour picsou59gg
Le mieux si tu souhaites passer par une macro, est de créer une nouvelle macro qui va lancer l'enregistreur, fais tes différentes manipulations habituelles sur ta feuille Excel et stoppes ta macro.
Quand tu iras dans l'éditeur tu auras tes manipulations en codage VBA.
Bonne chance.
hello
picsou,
peux-tu joindre ton exemple d'appli où il y a le bouton qui fonctionne ?
Merci pour vos réponses,
ça fonctionne en créant une nouvelle macro dans laquelle sont intercalées mes manipulations. J'ai associé cette macro à un bouton.
La réponse du Web se compose d'un petit tableau de données sur 6 lignes et 2 colonnes
(A1:B6)
Le seul inconvénient, est que si j'appuie de nouveau sur le bouton, 2 colonnes s'intercalent devant A, l'ancien tableau passe en C1:D6 et le nouveau en A1:B6 et ainsi de suite...
J'aurais aimé que le nouveau tableau prenne la place de l'ancien.
Cordialement
PS. Je ne sais comment joindre un fichier
Bonsoir,
Pour joindre un fichier tu as le lien "Joindre un fichier " dans le menu du haut.
Si tu ne parviens pas à joindre un fichier dans ce cas colle le contenu de ta macro dans le corps du message.
Bonne soirée.
Bonjour,
Je joint la macro qui me sert de requette sur le Web
Sub XXXXX()
'
' XXXXX Macro
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;
" _
, Destination:=Range("S4"))
.Name = "taux_et_montants_6"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "28,32"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Cordialement
Salut Picsou,
C'est normal que tu récupères les infos les unes à côté des autres, car dans ta macro tu ne demande pas la suppression du contenu des cellules avec requête, s'il y en a
Rajoute :
Range("S4:T9").Select
Selection.ClearContents
Selection.QueryTable.Delete
Juste au début de ta macro.
Attetnion j'ai mi S4 à T9 selon ton exemple après c'est à toi d'adapter en fonction de ce que tu veux vraiment supprimer.
Bonne journée.
Merci Samimi94
C'est la solution que j'avais trouvé, sauf qu'au lieu de sélectionner "S4:T9", j'ai sélectionné les 2 colonnes pour les effacer Columns("S:T").select
Problème résolu
@+