Extraire des donnée web sur plusieur lien d'un même site web
eliben22
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
eliben22 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
eliben22 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
étant pas très doué pour la programmation j'aurais besoins d'aide. Je dois extraire les données suivante:
- nom de l'architecte
- adresse complète de l'architecte
- code postale
- ville
-Téléphone
-fax
-email
- site web
-nom des associés
sur l'adresse: https://www.archionweb.be/Public/List
Pouvez-vous m'aider car je connais rien en macro,...?
En vous remerciant d'avance
PS: MA VERSION D'EXECL EST 2010
étant pas très doué pour la programmation j'aurais besoins d'aide. Je dois extraire les données suivante:
- nom de l'architecte
- adresse complète de l'architecte
- code postale
- ville
-Téléphone
-fax
- site web
-nom des associés
sur l'adresse: https://www.archionweb.be/Public/List
Pouvez-vous m'aider car je connais rien en macro,...?
En vous remerciant d'avance
PS: MA VERSION D'EXECL EST 2010
A voir également:
- Extraire des donnée web sur plusieur lien d'un même site web
- Web office - Guide
- Création site web - Guide
- Créer un lien pour partager des photos - Guide
- Vers quelle adresse web renvoie ce lien - Guide
- Traduction site web - Guide
6 réponses
Bonjour,
Voici une macro faite avec l'enregistreur de macro:
Voici une macro faite avec l'enregistreur de macro:
Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.archionweb.be/Public/List", _
Destination:=Range("$A$1"))
.Name = "fr-fr?pc=HPDTDFJS&ocid=HPCDHP&cobrand=hp13.msn"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Je te remercie pour ta rapidité et ta gentillesse. Le problème est que je n'obtient que la première page du site et pas les info de chaque liens exemple: https://www.archionweb.be/Public/Company/118 Mais c'est déjà un bon début. En te remerciant encore.
Il suffit d'aller sur la page web, de copier l'adresse et de la coller dans ta macro comme ceci:
Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.archionweb.be/Public/Company/118", _
Destination:=Range("$A$1"))
.Name = "fr-fr?pc=HPDTDFJS&ocid=HPCDHP&cobrand=hp13.msn"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
je te remercie pour toutes tes info. Je me demandais si il y avait pas un moyen de le faire automatiquement car j'ai plus de 12000 liens à faire. Encore merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question