zestedorange
XLDnaute Nouveau
Salut à tous,
J'essaie de résoudre un petit problème concernant une macro (trouvée sur le net et adaptée)
Je ne vais vous montrer que la partie qui me chagrine.
La macro est censée rapatrier, sur la feuille nommée "temp", la page web du lien contenu dans la cellule active.
Ca marche, mais il me manque une info : l'adresse e-mail.
Or quand on va soi-même sur la page web en question, qu'on fait un Ctrl A / Ctrl C et qu'on colle ensuite dans la feuille excel, l'adresse mail est bien présente !
Dès lors, que dois-je modifier dans mon code?
Et voici deux-trois url testées :
Lien supprimé
Lien supprimé
troisième
En fichier joint un petit excel avec la macro incriminée.
Est-ce que quelqu'un ici se sent l'âme à aider un novice curieux?
Par avance un tout grand merci !
J'essaie de résoudre un petit problème concernant une macro (trouvée sur le net et adaptée)
Je ne vais vous montrer que la partie qui me chagrine.
La macro est censée rapatrier, sur la feuille nommée "temp", la page web du lien contenu dans la cellule active.
Ca marche, mais il me manque une info : l'adresse e-mail.
Or quand on va soi-même sur la page web en question, qu'on fait un Ctrl A / Ctrl C et qu'on colle ensuite dans la feuille excel, l'adresse mail est bien présente !
Dès lors, que dois-je modifier dans mon code?
Code:
Public Sub rapatrier_page_web()
Dim sht As Worksheet ' la feuille de rapatriement
Dim url As String ' l'adresse url
url = Selection
Set sht = Sheets("temp")
' la manip suivante efface toutes les données présentes sur la
' feuille temp
sht.Cells.Clear
' la procédure de rapatriement proprement dite
With sht.QueryTables.Add("URL;" & url & "", sht.Range("A1"))
'sht.range("A1") = cellule cible où doit être rapatrié le contenu web
.RefreshStyle = Excel.XlCellInsertionMode.xlInsertDeleteCells
.SaveData = True
.Refresh BackgroundQuery:=False
End With
sht.Cells.MergeCells = False 'supprime toutes les celules
'fusionnées dans la feuille
End Sub
Et voici deux-trois url testées :
Lien supprimé
Lien supprimé
troisième
En fichier joint un petit excel avec la macro incriminée.
Est-ce que quelqu'un ici se sent l'âme à aider un novice curieux?
Par avance un tout grand merci !