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

[Usine à gaz]

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

 

[job75]

Oui mais du coup quand tu fermes l'UserForm sans rien sélectionner la sélection reste sur B5.

Il faut changer de sélection et revenir en B5.

 

[Usine à gaz]

OUI mais si rien n'est sélectionné, il y a un message qui les averti.
Elle doivent sélectionner le réseau des Prospects qu'elles appellent pour avoir les conditions dans leurs fichiers.
Et si elles appellent des prospects d'un autre réseaux un message leur demande de changer pour avoir les bonnes conditions.

 

[Usine à gaz]

Bjr Gérard , le Fil , Le Forum
@Gérard

Code génial = fonctionne nickel

Evidemment, je l'ai un "p'tit peu" modifié
Et ayant besoin d'un formatage cellules de la feuille "Coller ici", j'ai ajouter un code.

Tout semble nickel
- Partant du principe qu'au moment du traitement, nous sommes déjà sur Google Chrome, l'ouverture de l'onglet est quasi-instantanée,
- la fermeture de l'onglet est également quasi-instantanée,
Seul petit souci
Le retour à Excel pour la fin du traitement est un peu long (3/5 sec),

J'essaie de voir comment aller plus vite...
Voici le fichier en pièce jointe,

 

[job75]

Bonjour Lionel,

Perso j'utiliserais cette macro :

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
AppActivate Application.Caption 'active Excel
End Sub

C'est plus simple de faire la RAZ juste avant le collage (qui se fait sur la cellule A2).

A+

 

[Usine à gaz]

Bjr Gérard
Vraiment merci pour ta patience.
Effectivement, ton code est mieux que le mien (tu m'étonnes lol).

Le retour à Excel pour la fin du traitement me semble également plus rapide.
Je ne comprends pas encore pkoi.
Merci à toi

 

[Usine à gaz]

Re-Gérard
Le retour à Excel pour la fin du traitement
J'ai mis : Const Attente2 = 0 / 86400 '1 seconde
Et c'est bien plus rapide

 

[job75]

Attente1 et Attente2 sont des paramètres modifiables en fonction de l'environnement.

 

[Usine à gaz]

Const Attente2 = 0 / 86400 '1 seconde
C'est bon sans modifier le 86400 ?

 

[job75]

0/86400 = 0

 

[job75]

Je reviens sur ce fil pour signaler que dans la macro du post #34 l'instruction :

AppActivate Application.Caption 'active Excel

est inutile puisqu'Excel est forcément activé lorsque la fenêtre web est fermée par la macro Copier.

 

[Usine à gaz]

Re-Gérard,
Oui mais si j'enlève cette instruction, ça ne revient pas sur Excel

 

[job75]

Où veux-tu que ça aille puisque que la fenêtre web a été fermée ?

 

[Usine à gaz]

Oui Gérard, mais d'autres onglets sont ouverts sur Google Chrome pendant qu'on travaille.

- Partant du principe qu'au moment du traitement, nous sommes déjà sur Google Chrome, l'ouverture de l'onglet est quasi-instantanée,
- la fermeture de l'onglet est également quasi-instantanée,

 

[job75]

Oui Gérard, mais d'autres onglets sont ouverts sur Google Chrome pendant qu'on travaille.

Ah oui tu l'avais dit en effet, au temps pour moi.