Exploiter des données issu du web sur VBA

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

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

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

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.

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

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

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

Rechercher des sujets similaires à "exploiter donnees issu web vba"