mise a jour d'info du net

vbacrumble

XLDnaute Accro

• 10 Mai 2009

• #2

Re : mise a jour d'info du net

Bonjour

Et sur quel site sont ces données ?

 

Vote positif 0 Vote négatif

M

mike55

XLDnaute Occasionnel

• 10 Mai 2009

• #3

Re : mise a jour d'info du net

dans mon fichier tu verras un lien que jai recuperer sur le site manageo.fr

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 10 Mai 2009

• #4

Re : mise a jour d'info du net

Re



Sauf qu'il faut s'identifier

Sinon voir dans les pages de MichelXLD de la FAQ
https://www.excel-downloads.com/threads/ref-wiki-page-7-de-michelxld.92375/
puis utiliser le moteur de recherche du forum
Excel Downloads Forums - Recherche dans les forums

 

Vote positif 0 Vote négatif

M

mike55

XLDnaute Occasionnel

• 10 Mai 2009

• #5

Re : mise a jour d'info du net

le site pour ce indos est totalement gratuit

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 10 Mai 2009

• #6

Re : mise a jour d'info du net

Re

EDITION : pourtant ...



Pour le reste
Voir l'édition de mon message précédent

 

Dernière édition: 10 Mai 2009

Vote positif 0 Vote négatif

M

mike55

XLDnaute Occasionnel

• 10 Mai 2009

• #7

Re : mise a jour d'info du net

jai un peut parcourru mais cest du chinois pour moi 😕

qqq a mon secour ?

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 10 Mai 2009

• #8

Re : mise a jour d'info du net

Re

Voir à nouveau mon message précédent (que je viens d'éditer )

 

Vote positif 0 Vote négatif

M

mike55

XLDnaute Occasionnel

• 10 Mai 2009

• #9

Re : mise a jour d'info du net

tu as raison tu ne reve pas mais jai expliqué precedement que les infos qui m'interessent sont gratuites et ne necessitent pas d'identification......lis le rese de la page et tu vera les infos que je desir importer sont presentes....
cordialement.

 

Vote positif 0 Vote négatif

M

mike55

XLDnaute Occasionnel

• 10 Mai 2009

• #10

Re : mise a jour d'info du net

voila ce que j'arrive a ecrire mais cest pas top......au secour😕

Sub import_admin()
'
' import_admin Macro
' Macro enregistrée le 10/05/2009 par
'

'
Range("H2").Select
Sheets("Feuil2").Select
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.manageo.fr/fiche_info/302020532/57/rocha.html", Destination:= _
Range("A1"))
.Name = "rocha_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "30"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Cells.Find(What:="nom", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Range("B2").Select
Selection.Copy
Sheets("Feuil1").Select
Range("P2").Select
ActiveSheet.Paste
End Sub

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 10 Mai 2009

• #11

Re : mise a jour d'info du net

Bonjour,


Je propose l'exemple joint.
Il faudrait un exemple avec un N° de Fax pour tester.

 

Dernière édition: 30 Octobre 2009

Vote positif 0 Vote négatif

M

mike55

XLDnaute Occasionnel

• 10 Mai 2009

• #12

Re : mise a jour d'info du net

ecoute je sais pas comment te dire merci .....😀 jai tester avec un fax ca marche tres bien
Meric 😉

 

Vote positif 0 Vote négatif

M

mike55

XLDnaute Occasionnel

• 11 Mai 2009

• #13

Re : mise a jour d'info du net

apres test jai un cas pas prevu : la societe n'existe plus😕...la macro plante....ci joint le fichier cest la derniere importation qui fait planter....peut ton dire que si il ne trouve pas d'info alors mette le texte "inconnu" par exemple...
Merci en cor en tout cas

 

Pièces jointes

• Copie de Test.xls

  36 KB · Affichages: 91
• Copie de Test.xls

  36 KB · Affichages: 91
• Copie de Test.xls

  36 KB · Affichages: 91

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 11 Mai 2009

• #14

Re : mise a jour d'info du net

Bonjour,

ci-joint une version qui gere ce cas de figure

 

Dernière édition: 30 Octobre 2009

Vote positif 0 Vote négatif

M

mike55

XLDnaute Occasionnel

• 11 Mai 2009

• #15

Re : mise a jour d'info du net

il rest apparement un cas non gere 😱 le client existe encor mais sur le site on tombe sur une page qui ne fourni pas tous les renseignements....alors que lorsque le client est radie cest toujours la meme page qui revient....peut ton differencier ?
(fichier ci-joint la derniere ligne )

en tout cas je te REREmerci pour cette aide precieuse ca me soulage drolement.

 

Pièces jointes

• Copie de Test2.xls

  47 KB · Affichages: 105
• Copie de Test2.xls

  47 KB · Affichages: 107
• Copie de Test2.xls

  47 KB · Affichages: 109

Vote positif 0 Vote négatif