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