Re-,
Testé sous 2003 et 2007
Enregistre le fichier dans un répertoire quelconque
Tout d'abord, avant de lancer le programme, il faut Ajouter des références.
Cherches sur ton PC, la dll suivante : "shdocvw.dll"
Note son chemin
Dans le fichier, dans le code du ThisWorkbook, tu as ce code (le chemin de la dll est le chemin de mon PC)
Private Sub Workbook_Open()
On Error Resume Next
nom_Ref = "C:\WINDOWS\system32\shdocvw.dll"
ThisWorkbook.VBProject.References.AddFromFile nom_Ref
End Sub
Normalement, ton chemin doit être très peu différent.
Ensuite, tu vas dans l'éditeur VBE (Alt + F11)
Tu fais Outils/Références, et tu recherches ces deux références :
- Microsoft Internet Controls
- Internet Assistant
Si tu as un gros "MANQUANT", décoche-le
Tu as vu, j'ai un peu modifié ta disposition, j'ai rajouté la colonne Prénom
Si tu as plusieurs propositions, tu peux cliquer dans l'usf, pour choisir celle qui te convient.
Par contre, pour rapatrier automatiquement, c'est trop aléatoire...
Tu copies/Colles les numéros dans ton fichier (je sais un peu de boulot....)
Le code va rechercher les numéros qui ne sont pas renseignés dans la colonne F
Si tu n'y arrives pas (ou quelqu'un d'autre), merci de passer par ce fil, et non en MP
https://www.excel-pratique.com/~files/doc2/recherche_internet_yanlord.zip