Importer des donnée web dans excel

[lematou]

Bonjour à tous🙂🙂

J'importe des données d'un site web en (https) et je les colle dans ma premiere feuille excel nommée "entrée et à partir de la cellule A1.

Ces données même si le contenu est différent à chaque fois , ont la même structure (le même formatage).
Ex: quand je fais ctr+c et ctr+v j'obtiens toujours le nom et le prenom dans les cellules B19 ET C21. Aisin qu'un bouton gris appartenant au site ou ya marqué recherche.

Ca marche très bien mais c'est un peu long. ET chaque texte vient bien se mettre dans une cellule précise.( comme si dans le site on avait fait un tableau invisible.
Je voudrais savoir 2 choses:
1) est-il possible d'importer ces données par une macro via un bouton.

2) est-il possible de les effacer (et surtout le bouton web) pour ensuite récuperer les données suivantes .Sachant que je veux aussi voir disparaître le fameux bouton qui ne part pas même si j'écrase tout par les données suivantes.

 

[Roland_M]

Re : Importer des donnée web dans excel

bonjour

st tu utilises ce genre de code:

With Sheets("Feuil1").QueryTables.Add(Connection:="URL;http://..........." , Destination:=Range("A1"))
.Name = "Nom ........."
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone ' <<<<<<<<<<<< ici mettre ceci(sans format)
.Refresh BackgroundQuery:=False
End With

 

[Catrice]

Re : Importer des donnée web dans excel

Bonjour,

Roland a donné la solution mais d'apres ce que dit lematou, ça ne va pas etre si simple que ça.
En effet, il parle d'un site https qui par définition est un site securisé auquel on accede avec un ID et un mdp ...
Ca je ne suis pas sur que ça passe dans une requete Excel 🙁

 

[lematou]

Re : Importer des donnée web dans excel

Bonjour Roland, catrice ,le forum,
Pour répondre à catrice, je n'ai aucun problème pour le site https. J'ai l'ID L MDP et je vais avecdes liens trois pages plus loin.
Là , je peux récuperer sans problème dans excel , mais quand j'écrase les données sur la même page excel ,il reste un bouton et une boite "champs".
Et ça me fait grossir le fichier excel très vite.

 

[Roland_M]

Re : Importer des donnée web dans excel

re:

essai ceci !?
Sub DeleteShapesThisWorkbook()
Dim Obj As Shape
For f = 1 To ThisWorkbook.Sheets.Count
For Each Obj In Sheets(f).Shapes
If Obj.Type = 1 Then Obj.Delete
Next
Next
End Sub

mais attention !
peut être as-tu aussi des dessins dans ton classeur comme des buttons !?
aussi devras tu, à chaque fois, sauvegarder en tableaux les noms de tes Shapes
et les tester avant pour les supprimer !?

voir ci-joint:

 

[Catrice]

Re : Importer des donnée web dans excel

Bonsoir Lematou,

Pour répondre à la question 1) est-il possible d'importer ces données par une macro via un bouton.

Importer avec un bouton (à savoir QueryTables.Add(Connection:="URL; http://..........." ) n'est à ma connaissance que possible s'il n'y a pas de ID et mdp à passer dans la requete. C'est pour cela que j'y faisait allusion. Que toi tu aies l'ID et le mdp pour faire ta requete je n'en doute pas mais pour automatiser, c'est la macro qui doit l'avoir ....
http://support.microsoft.com/kb/277596/fr
http://support.microsoft.com/kb/290347/fr

Pour ce qui concerne la reponse à la question 2, Rolan_M a donné une solution qui y repond (enlever les objets dans la feuille) mais une fois que tu as importé les données manuellement.

Pour enlever les objets, tu peux egalement utiliser cette macro :
Sub Test1() 'La feuille active
ActiveSheet.DrawingObjects.Delete
End Sub
ou
Sub Test2() 'Toutes les feuilles du classeur
For Each X In ThisWorkbook.Sheets
X.DrawingObjects.Delete
Next
End Sub

ou faire un Collage special en choisissant "Texte" dans Excel.

 

[MJ13]

Re : Importer des donnée web dans excel

Bonjour à tous
Pour essayer de répondre à ta question 2:

2) est-il possible de les effacer (et surtout le bouton web) pour ensuite récuperer les données suivantes .Sachant que je veux aussi voir disparaître le fameux bouton qui ne part pas même si j'écrase tout par les données suivantes.

Pour les requêtes Web tu devrais normalement avoir si possible 2 ou 3 feuilles

• 1 avec les liens à télécharger (mais cela peut être optionnel si tu n'as qu'une page à charger)
• 1 avec la requête que tu effaceras après chaque requête
• 1 sur laquelle tu recopieras les données qui t'intéresse.

Regardes le fichier sur ce post

https://www.excel-downloads.com/threads/importer-donnees-depuis-internet.81559/

 

[lematou]

Re : Importer des donnée web dans excel

Bonjour à tous ,RolanM, Catrice et Mj13.🙂🙂
Un grand merci à vous tous.
Catrice a raison, on ne peut pas récupérer des données de mon site 'HTTPS'
excel refuse en me disant ' impossible de charger la page HTTPS..Blalbla...
J'ai compris pourquoi. Dont acte. Y a pas de solution je suppose.Tant pis.

Pour ma deuxième question, ce que propose Catrice marche impec. J'ai mis un bouton sur ma deuxième feuille et je peux virer de ma FEUIL1, tous les boutons et "champs" importé à la main par copier collé. Donc çà marche.

Précision pour rolandM, J'ai trouvé à force de me casser la tête comment faire le CC dans outlook je te l'envoie dans la discussion prévue.

Question: avec quoi je peux autopatiser le copier coller dans excel sans utiliser excel? Winmacro? Automate 6? en VB? y a-t-il un logiciel qui puisse?
à bientôt