Exploiter des données issu du web sur VBA

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
msaupin
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 28 mai 2019
Version d'Excel : 2013 FR

Message par msaupin » 28 mai 2019, 11:38

Bonjour tout le monde,

Je dois dans un cadre professionnel éffectuer un travail nécessitant de comparer des données excels sous forme de texte avec des données d'un site officiel.

Imaginons que j'ai une feuille N°1 appellée "Temp", une feuille N°2 appellée "Accueil" et une feuille N°3 appellée "Clients"

Je veux faire en sorte que le lien URL ouvert par ma fonction ci dessous, ne soit pas fixé de la sorte mais que ma macro fasse appel à un lien généré dans ma feuille clients (Colonne G),


Sub Nom()

Sheets("Temp").Cells.Clear

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.ordre.pharmacien.fr/%20annuaire/pharmacien?search=pharmacist&lastname=levy&maiden=&firstname=guileine&institution=&date=&zipcode=&city=&op.x=79&op.y=16" _
, Destination:=Sheets("Temp").Range("$A$1"))
.Name = "www.ordre.pharmacien"
.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

compteur = 0

For ligne = 1 To 1000

If Left(Sheets("Temp").Cells(ligne, 1), 5) = "Nom :" Then
compteur = compteur + 1
Sheets("Accueil").Cells(3, 1) = Sheets("Temp").Cells(ligne, 1)
If compteur = 2 Then Exit For
End If
Next
End Sub


Je débute sur VBA , j'apprécierai des conseils pour m'aider dans cette tache qui me semble très complexe.
A terme l'objectif est de comparer les cellules générées par la macro aux cellules de mon fichier client.
Je pensais utiliser des formules types =exact(). Est ce une bonne idée ?

Merci beaucoup pour votre aide à venir
Test destinataires finaux.xlsm
(65.15 Kio) Téléchargé 3 fois
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'361
Appréciations reçues : 231
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 28 mai 2019, 12:22

bonjour

as-tu téléchargé
https://www.data.gouv.fr/fr/datasets/finess-extraction-du-fichier-des-etablissements/

c'est directement en Excel
avec des RECHERCHEV tu visualises les écarts entre ton tableau et celui-ci

note : l'analyse plus globale entre 2 fichiers tu peux passer sur Power BI (version gratuite) super complément d'Excel. Et à qui des millions/milliards de lignes ne font pas peur !

amitiés
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'361
Appréciations reçues : 231
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 28 mai 2019, 12:22

bonjour

as-tu téléchargé
https://www.data.gouv.fr/fr/datasets/finess-extraction-du-fichier-des-etablissements/

c'est directement en Excel
avec des RECHERCHEV tu visualises les écarts entre ton tableau et celui-ci
sans VBA du tout

note : l'analyse plus globale entre 2 fichiers tu peux passer sur Power BI (version gratuite) super complément d'Excel. Et à qui des millions/milliards de lignes ne font pas peur !

amitiés
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
Avatar du membre
msaupin
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 28 mai 2019
Version d'Excel : 2013 FR

Message par msaupin » 29 mai 2019, 09:06

merci jmd,

D'un point de vue réglementaire je suis contraint de verifier de manière périodique la bonne inscription sur le site de l'ordre des pharmaciens. Mais c'est vrai que ta technique est beaucoup plus pratique en soit.
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'361
Appréciations reçues : 231
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 29 mai 2019, 17:47

re

si c'est règlementaire, l'ordre devrait pouvoir te mettre à dispo la liste à jour

non ?
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
Avatar du membre
msaupin
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 28 mai 2019
Version d'Excel : 2013 FR

Message par msaupin » 31 mai 2019, 14:16

jmd a écrit :
29 mai 2019, 17:47
re

si c'est règlementaire, l'ordre devrait pouvoir te mettre à dispo la liste à jour

non ?
La liste est mise à jour quotidiennement mais je ne sais pas si ils mettent à disposition une liste aussi complete (+ de 22 000 pharmacies en france). Je vais me renseigner.

Moi ce qui m'interesserai c'est de pouvoir exploiter via mon excel les données de l'ordre ouvrir la page avec le nom d'un pharmacien et le code postal de son établissement (provenant des données du fichier de mon entreprise) puis importer les données de la page qui m'intéressent ( nom, prénom, code postal numéro de téléphone, nom de l'établissement du pharmacien). Les coller dans un tableau à coté des données de l'entreprise et de pouvoir les comparer
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'361
Appréciations reçues : 231
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 31 mai 2019, 14:48

re

je comprends la démarche
je comprends moins le besoin car dans tous les cas, les tél par exemple ne peuvent être exploités par un ordi, mais uniquement par des humains, qui ont vite fait de mettre à jour la base manuellement, juste avant de passer un coup de fil

gare au RGPD concernant les mails des personnes ! GRAVE danger 8[]

amitiés
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
Avatar du membre
msaupin
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 28 mai 2019
Version d'Excel : 2013 FR

Message par msaupin » 3 juin 2019, 09:17

jmd a écrit :
31 mai 2019, 14:48
re

je comprends la démarche
je comprends moins le besoin car dans tous les cas, les tél par exemple ne peuvent être exploités par un ordi, mais uniquement par des humains, qui ont vite fait de mettre à jour la base manuellement, juste avant de passer un coup de fil

gare au RGPD concernant les mails des personnes ! GRAVE danger 8[]

amitiés
Le besoin est d'ordre légal, mon entreprise doit pouvoir vérifier la totalité de ses clients de manière périodique pour être sur qu'ils sont autorisés à recevoir des médicaments.
Le mail est celui sur le site est bien entendu le mail professionnel (donc les RGPD ne poseront pas de problèmes). Et tu as raison pour le numero de telephone, pas forcément judicieux de ma part haha.

Merci bien,

Amitiés
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message