Bonjour à tous,
Je fais appel à vos lumières car je rencontre une erreur VBA sur un code qui précédemment fonctionnait sous Windows Vista et ne fonctionne plus sous Windows 7.
La macro a pour objectif de "piloter" Internet Explorer.
Le code:
Le code plante sur La ligne "Set mapage = ie.document"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Sub traitement_t() Dim ie As New InternetExplorer Dim x As Integer Set Monclasseur = ActiveWorkbook Set Mafeuille = Monclasseur.Worksheets(5) cheminXl = Monclasseur.Path 'tri la feuille par pdl (permet de traiter tous les pdl d'un centre) Lignefin = Mafeuille.Range("B:B").End(xlDown).Row 'Affiche la page Internet ie.Visible = True 'Se connect au site demandé nom fenetre ie.Navigate2 ("http://distri-raccordement.edf.fr/") 'boucle qui attend le chargement de la page Attendre "OSR - noeyy3gg.noe.edf.fr" 'Prend le nom de la fenêtre 'Récupérer le code source de la page Dim mapage As HTMLDocument Set mapage = ie.document End Sub
Merci d'avance pour votre aide
Partager