Connection à internet + sauvegarde/restauration

Bonjour le Forum,

Deux questions pour faire évoluer une de mes applications.

La première concerne l’accès à un site Internet (avec paramètre) .

(Voir si le paramètre entré suffit au bon fonctionnement dans le temps)

La seconde est la méthode pour sauvegarder puis restaurer les données

d’une application pour ne pas perdre le travail effectué.

Voir le fichier exemple ci-joint.

https://www.excel-pratique.com/~files/doc/Demande_pour_connection_internet_et_sauv_restaur.xls

Amicalement.

Annette

Salut le forum

Pour la première question, tu peux essayer ceci (trouver sur dev.net)

Il reste à automatiser la cellule active.

Sub Connection_Web()
    'Nécessite d'activer la référence Microsoft HTML Objects Library
    'Nécessite d'activer la référence Microsoft Internet Controls

    Dim IE As internetExplorer
    Dim yaEL As IHTMLElement

    Set IE = CreateObject("InternetExplorer.Application")

    With IE
        .Visible = False
        .Silent = True
        .navigate "www.fftt.com/sportif/pclassement/php3/FFTTfo.php3?Menu=J2"
        .Visible = True
        Do Until .readyState = READYSTATE_COMPLETE
        DoEvents
        Loop 'attend la fin du chargement

        If YaChercheHTmlEl("precision", "", yaEL, IE.document) Then
           yaEL.Value = "922752"
        Else
           MsgBox "Erreur sur Ecriture numero de licence"
           Exit Sub
        End If
        If YaChercheHTmlEl("reqid", "200", yaEL, IE.document) Then '200 MAsculin, 300 Feminin
           yaEL.Checked = True
        Else
           MsgBox "Erreur sur Ecriture sur choix sexe"
           Exit Sub
        End If
         If YaChercheHTmlEl("submit", "Envoyer", yaEL, IE.document) Then
            yaEL.Click
        Else
           MsgBox "Erreur sur Click sur envoyer"
           Exit Sub
        End If

    End With

    Set IE = Nothing

End Sub

Function YaChercheHTmlEl(yaNom As String, yaValeur As String, yaEL As IHTMLElement, YaDoc As HTMLDocument) As Boolean
  On Error GoTo yaErreur
  Dim mYaEL As IHTMLElement
        For Each mYaEL In YaDoc.getElementsByName(yaNom)
          If mYaEL.Value = yaValeur Then
             Set yaEL = mYaEL
             YaChercheHTmlEl = True
             Exit Function
          End If
        Next
yaErreur:
YaChercheHTmlEl = False

End Function

Mytå

Re le forum

La Charte est pourtant assez claire Annette

Dans la charte l'Administrateur a écrit :

EN POSTANT UNE QUESTION VOUS VOUS ENGAGEZ A DONNER OBLIGATOIREMENT UNE REPONSE SI VOUS AVEZ OBTENU DE L'AIDE (cela représente un minimum de respect pour les membres qui prennent le temps de vous aider, c'est également leur seul remerciement ... si vous ne voulez pas respecter les personnes à qui vous demandez de l'aide, ne posez pas de question, merci).

Mytå

P.S. J'efface le code ou tu veux adapter ?

Bonjour à tout le Forum,

Mon retard pour la réponse vient du fait que je suis encore sur le code pour essayer de l'adapter.Pour l'instant J'ai pu ''activer la référence Microsoft HTML Objects Library"

mais je ne trouve pas dans ma liste de références 'l'activation dee Microsoft Internet Controls".J'ai modifié 'Dim IE As internetExplorer' du code en ' Dim IE As Variant'.

Maintenant je suis sur un message d'erreur

Erreur d'éxécution '-2147467259 (80004005)':

"La méthode 'Document' de l'objet 'IWebBrowser2' a échoué

en Déboguant j'arrive sur la ligne du code:

If YaChercheHTmlEl("precision", "", yaEL, IE.document) Then

yaEL.Value = "922752"

Pour l'instant je n'ai pas de solution.Un idée de la raison de cette erreur serait la bien venu.

Pour Mytå: Il est vrai que ton dévouement demande de notre part une" certaine politesse"

J'aurai pu faire part de ma recherche il est vrai, avant ta remarque tout à fait justifiée.

Que cela me serve de leçon

Amicalement

Annette

bonsoir Annette, bonsoir cher Myta

je ne trouve pas dans ma liste de références 'l'activation dee Microsoft Internet Controls"

Quelles versions d'Internet Explorer et de Windows utilises tu ?

bonne soirée

michel

Re le forum

An.pi pour la référence Microsoft Internet Controls

utilise le bouton parcourir et recherche shdocvw.dll,

si il n'est pas dans ta liste, il devrait s'installer.

Mytå

Bonsoir à tous,

Pour répondre à MichelXld,

J'utilise Mozilla Firefox et Windows XP.

J'ai malgré tout j'ai d' installé Internet Explorer7 version 7.0.5730.11 version de mise à jour 0

Amicalement

Annette

Bonoir,

Pour répondre à Mytå,

La recherche me ramène trois shdocvw.dll, sous

C:\WINDOWS\system32; D:\WINDOWS\system32; C:\WINDOWS\ServicePackFiles\i386

A suivre

Amicalement

Annette

Re le forum

Dans VBA > Outilis > Référence > Clique le bouton parcourir, tu devrait en avoir juste un

sinon C:\WINDOWS\system32 devrait être le bon

Mytå

Bonjour le Forum,

Cher Mytå, en suivant ta procédure, je trouve maintenant "Internet Microsoft Controls" dans Recherches .

Dans VBA > Outilis > Référence > Clique le bouton parcourir, tu devrait en avoir juste un

sinon C:\WINDOWS\system32 devrait être le bon

je trouve "Internet Microsoft Controls" dans Recherches et je t'en remercie.

Question sur le maintient.

Est il Normal que "Internet Microsoft Controls" se déverrouille lorsque je sort de l'application.

Je suis obligé de le réactiver à chaque utilisation.

NB: Par "création de Macro" on ne peut agir sur cet élément.

Amicalement

Annette

Bonjour,

un code de Frédéric Sigonneau :

A insérer dans l'évènement du classeur (ThisWorbook)

Private Sub Workbook_Open()
'ajoute une référence à la bibliothèque
  On Error Resume Next
  'nom et chemin de la bibliothèque
  nomRef = "C:\WINDOWS\system32\shdocvw.dll"
  ThisWorkbook.VBProject.References.AddFromFile nomRef
End Sub

Re le forum

An.pi a écrit :

Est il Normal que "Internet Microsoft Controls" se déverrouille lorsque je sort de l'application.

Je suis obligé de le réactiver à chaque utilisation.

Il suffit de sauvegarder le fichier et la sélection va rester, pas besoin de macro.

Mytå

Bonjour le Forum

Merci à

Mytå et à Félix, cette partie de la procédure fonctionne grâce à vous.A bientôt.

En attente la question sur les sauvegardes.

Rappel:

Lorsque l'on fait des modifications sur une procédure quelle est la" meilleures" méthode pour sauvegarder les données puis les restaurer dans la nouvelle version.

Avec et sans insertion(s) de cellules dans les feuilles

Merci d'avance

Annette