Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Coller des données d'une page web OUVERTE vers feuille Excel

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite un beau WE "calme et tranquille" 🙂

Je n'arrive pas à résoudre mon besoin et, comme d'habitude, j'en appelle à nos Ténors 🙂

Voici mon souci :
J'ai besoin à certains moments de copier les infos d'une page web "OUVERTE" après clic lien OUVERTURE SUR GOOGLE CHROME

Pour l'exemple, à coller dans fichier joint feuille "Coller ici" - J'ai fait des recherches et tentatives sans y parvenir
Important : le site "meilleursreseaux.com" présente toujours la page de la même façon, quel que soit le lien utilisé
Après la présentation des conditions, il y a toujours ensuite la rubrique "Annonces et diffusion"
J'ai donc besoin de copier tout le texte après "Services assurés et coûts" et jusqu'avant "Annonces et diffusion"

J'ai tenté également avec : Données > A partir du web >
sans y parvenir mais ce serait trop long car j'ai besoin que ce soit rapide

Je joins un petit fichier test et je continue mes recherches,
Merci à toutes et à tous
🙂
 

Pièces jointes

Dernière édition:
Solution
job75
Bonjour Lionel,

Perso j'utiliserais cette macro :
VB: 
Sub Coller()
Application.ScreenUpdating = False
On Error Resume Next
With Sheets("Coller ici")
    .Cells.Delete 'RAZ
    Application.Goto .[A2]
    .Paste 'coller
    .DrawingObjects.Delete 'supprime les objets
    .Rows(.Cells.Find("Annonces et diffusion", , xlValues).Row & ":" & .Rows.Count).Delete
    .Rows("2:" & .Cells.Find("Services assurés et coûts").Row - 1).Delete
    .Columns(1).ColumnWidth = 190
    .Rows.AutoFit
    With .[A1]
        .Value = "Réseau " & Sheets("Appels").[B5] & " - Conditions des Agents Mandataires"
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
        .Font.Size = 23
    End With
    Application.Goto .[A1], True 'cadrage
End With...
Trier par date Trier par votes
Bonjour Lionel,
Usine à gaz à dit:
mais ce serait trop long car j'ai besoin que ce soit rapide
Cliquez pour agrandir...
Que signifie "rapide" ? Une à deux seconde c'est rapide ?
Si oui un essai en PJ.
On clique sur une cellule A17:A26, les données sont collées en feuille "Coller ici", le temps d'exécution est donné en A16, pour informations.
 

Pièces jointes

Vote positif 0 Vote négatif
Bjr sylvanu 🙂

Merci pour le retour et ce bel essai super bien.

Evidemment "Usine à Gaz" oblige, ce que je fais n'est jamais simple lol 🙂
Je vais piocher la chose et je reviendrai .....

Super ! C'est super ce que tu as fait?
Je te remercie,
🙂
 
Vote positif 0 Vote négatif
Re-Bjr @sylvanu 🙂

Je n'avais pas vu que tu avais utilisé Power Query.
Malheureusement, je ne connais du tout, ne m'en étant jamais servi.
Je crains que ça créé des soucis dans mes fichiers déjà compliqués.

Dommage. Je garde ton fichier que je trouve super mais que, certainement à cause de Power Query, je ne parviens déjà pas à adapter comme je le souhaite.
Toutefois, si j'avais réussi, je n'aurai pas pris le risque d'intégrer dans mes fichiers de travail.

Merci pour ton travail, je conserve...
🙂
 
Vote positif 0 Vote négatif
Bonsoir,
Je peux te confirmer que Sylvanu( Excel 2007), ne peut, ni n'utilise Power Query....
Ce n'est pas parce qu'il y a "QueryTables", que c'est forcément du PQ...
Et c'est quoi, cet "à-priori", vis à vis de PQ?
Bonne soirée
 
Vote positif 0 Vote négatif
Bjr Cousinhub 🙂

Merci pour le retour et si ce n'est pas du Power Query, je vais voir plus avant pour tenter d'adapter.
Toutefois, il y a une requête qui y ressemble...

'Et c'est quoi, cet "à-priori", vis à vis de PQ"
Ce n'est pas un a priori genre "négatif"
Simplement que je ne l'ai jamais utilisé et que je n'ai de temps pour l'apprendre ... avant longtemps
🙂
 
Vote positif 0 Vote négatif
Bonjour Lionel, sylvanu, Cousinhub, le forum,

Un essai qui utilise Application.OnTime et l'envoi des touches Ctrl+A et Ctrl+C :
VB: 
Const Attente1 = 2 / 86400 '2 secondes
Const Attente2 = 1 / 86400 '1 seconde

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A17:A26]) Is Nothing Then Exit Sub
Cancel = True
With Sheets("Coller ici")
    .Cells.Delete 'RAZ
    Application.Goto .[A1]
End With
ThisWorkbook.FollowHyperlink Target(1, 2).Hyperlinks(1).Address
Application.OnTime Now + Attente1, Me.CodeName & ".Copier"
End Sub

Sub Copier()
CreateObject("WScript.Shell").SendKeys "^a^c" 'touches Ctrl+A et Ctrl+C
Application.OnTime Now + Attente2, Me.CodeName & ".Coller"
End Sub

Sub Coller()
On Error Resume Next
With Sheets("Coller ici")
    .Paste 'coller
    .DrawingObjects.Delete 'supprime les objets
    .Rows(.Cells.Find("Annonces et diffusion", , xlValues).Row & ":" & .Rows.Count).Delete
    .Rows("1:" & .Cells.Find("Services assurés et coûts").Row - 1).Delete
    .Columns(1).ColumnWidth = 255
    .Rows.AutoFit
    Application.Goto .[A1], True 'cadrage
End With
AppActivate Application.Caption 'active Excel
End Sub
Double-clic dans la plage A17:A26.

Si la copie ne fonctionne pas correctement augmenter les durées d'attente Attente1 et Attente2.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Bon on peut fermer le fichier web par l'envoi des touches Alt+F4 :
VB: 
Sub Coller()
On Error Resume Next
With Sheets("Coller ici")
    .Paste 'coller
    .DrawingObjects.Delete 'supprime les objets
    .Rows(.Cells.Find("Annonces et diffusion", , xlValues).Row & ":" & .Rows.Count).Delete
    .Rows("1:" & .Cells.Find("Services assurés et coûts").Row - 1).Delete
    .Columns(1).ColumnWidth = 255
    .Rows.AutoFit
    Application.Goto .[A1], True 'cadrage
End With
CreateObject("WScript.Shell").SendKeys "%{F4}" 'fermeture du fichier web
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
XL 2021 Copier Coller données numériques page WEB
Réponses
1
Affichages
46
Jul1en
J
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
319
mromain
S
  • Résolu(e)
XL 2016 Copier/Coller des cellules en multipliant par des cellules sur une autre page
Réponses
3
Affichages
655
migau
P
  • Question Question
XL 2021 Code VBA pour copier coller des données de cellules d'une feuille a une autre
Réponses
4
Affichages
646
phoceenjo
P
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
523
Nel'
N
  • Résolu(e)
Microsoft 365 VBA - Coller la valeur d'une cellule d'une autre feuille...
Réponses
11
Affichages
861
13Hubert
R
  • Question Question
Microsoft 365 interagir avec une page web
2
Réponses
18
Affichages
2 K
rafi93
R
S
  • Question Question
XL 2016 VBA - copier coller des données d'un onglet vers un nouvel onglet
Réponses
1
Affichages
788
vgendron
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
670
salma_hayek
S
C
  • Question Question
Microsoft 365 Avoir un calendrier d'équipe du type Outlook, mais sur Excel pour bénéficier des champs de listes
Réponses
1
Affichages
460
ChTi160
M
  • Résolu(e)
XL 2016 Copier/Coller case cochée vers feuil2
Réponses
3
Affichages
627
Phil69970
R
  • Question Question
Microsoft 365 VBA copier coller des cellules
Réponses
6
Affichages
858
Phil69970
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
1 K
Alexandrax971
A
A
  • Question Question
Autres Remplir des feuilles a partir d'une autre feuille du même classeur
Réponses
4
Affichages
871
abdallah12
A
A
  • Question Question
XL 2013 importer des données d'une feuille vers un autre classeur
Réponses
9
Affichages
1 K
ATHE RIOVELI
A
B
  • Question Question
XL 2019 Copier-coller des plages d'une feuille vers une autre feuille à une heure T
Réponses
4
Affichages
688
Compte Supprimé 979
C
S
  • Résolu(e)
XL 2019 Couper coller une ligne d'une feuille1 vers feuille2 grâce à un bouton ou case à cocher
Réponses
6
Affichages
889
sylvanu
L
  • Résolu(e)
XL 2016 recopier les informations d'une feuille vers plusieurs autre du même classeur
Réponses
9
Affichages
802
Linda42
L
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
D
  • Question Question
XL 2019 Importation d'une donnée précise du web vers Excel
Réponses
0
Affichages
1 K
Dervichter
D
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…