mise a jour d'info du net

[mike55]

Bonjour !
Voila mes connaissance sur excel sont limités cest pourquoi jai besoin d'aide, je souhaite obtenier une mise a jour d'un fichier client selon des données disponible sur le net....3 champs doivent en fin de compte se mettre a jour Admin NEW - TEL NEW et FAX NEW......voila le pb merci par avance pour toute aide.

 

[vbacrumble]

Re : mise a jour d'info du net

Bonjour

Et sur quel site sont ces données ?

 

[mike55]

Re : mise a jour d'info du net

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

 

[vbacrumble]

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

 

[mike55]

Re : mise a jour d'info du net

le site pour ce indos est totalement gratuit

 

[vbacrumble]

Re : mise a jour d'info du net

Re

EDITION : pourtant ...



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

 

[mike55]

Re : mise a jour d'info du net

jai un peut parcourru mais cest du chinois pour moi

qqq a mon secour ?

 

[vbacrumble]

Re : mise a jour d'info du net

Re

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

 

[mike55]

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.

 

[mike55]

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

 

[Catrice]

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.

 

[mike55]

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

 

[mike55]

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

 

[Catrice]

Re : mise a jour d'info du net

Bonjour,

ci-joint une version qui gere ce cas de figure

 

[mike55]

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.