Bonjour à vous
je suis en train, de m'initier à ACCESS , via un formulaire simple de constitution
scénario suivant :
1) 1er "zone de texte" de saisie d'une URL, et 2) 2iem "zone de texte" de restitution de la page; afin de le lire
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
25
26
27
28
29
30
31
32
33
34
35
36
37 Private Sub ImporterWebRecettes_Click() Dim demandeHTTP As Object Dim URL As String Dim reponse As String Dim TxtAdresse As Access.TextBox Dim TxtContenus As Access.TextBox ' Assigner les contrôles aux variables Set TxtAdresse = Me!TxtAdresse Set TxtContenus = Me!TxtContenus ' Assigner les contrôles aux variables URL = Me.TxtAdresse.Value ' Vérifier que l'URL n'est pas vide If URL = "" Or URL = "URL de la page recette; ou du fichier recette distant à importer" Then MsgBox "Veuillez entrer une URL valide.", vbExclamation Exit Sub End If ' Vérifier si l'URL commence par "http://" ou "https://" If Not (Left(URL, 7) = "http://" Or Left(URL, 8) = "https://") Then MsgBox "L'URL doit commencer par 'http://' ou 'https://'", vbExclamation Else Exit Sub End If On Error Resume Next Set demandeHTTP = CreateObject("MSXML2.ServerXMLHTTP") On Error GoTo 0 If demandeHTTP Is Nothing Then MsgBox "Erreur lors de la création de l'objet HTTP.", vbCritical Exit Sub End If
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 On Error GoTo ErrorHandler demandeHTTP.Open "GET", URL, False ----' mon erreur système se situe a se niveau (je ne comprends pas, à se niveau ) merci a tous suggestions, et conseils..!!! demandeHTTP.Send
j'informe qu'avant a se niveau, j'ai coché la bibliothèque "Microsoft 6 XML " qu'elle chose comme ça..
par contre si une personne, pouvait me dire pourquoi celle-ci sont volatiles?? qu'il faille plusieurs fois cochés à plusieurs essais??merci
reste du code ci-dessous
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 ' Vérifier si la requête a réussi If demandeHTTP.Status = 200 Then reponse = demandeHTTP.ResponseText Me.TxtContenus.Value = reponse Else MsgBox "Erreur HTTP: " & demandeHTTP.Status & " - " & demandeHTTP.StatusText, vbCritical End If Set demandeHTTP = Nothing Exit Sub ErrorHandler: MsgBox "Erreur d'exécution: " & Err.Number & " - " & Err.Description, vbCritical Set demandeHTTP = Nothing
vraiment c'est pour me familiarisé avec Access, et merci a tous conseils, et pistes .....
Partager