Discussion :

[hs.hs]

Bonjour,
ça fait au moins 1 semaine que je me casse la tete avec ce code et je n ' y arrive toujours pas. Donc si quelqun me résout ce probleme je serai tres reconnaissante.
Alors c est une macro qui établit une connexion avec une page internet.Il faut remplir un formulaire ou on va saisir des factures automatiquement en lançant la macro Tout marche sauf que j'ai sur mon tableau une colonne Code qui est sous forme "1.1 2.2 6.3 5.9" en gros Code.Subcode et dans mon formulaire je fais une extraction du code dans la zone code et puis une extraction sub code dans la zone sub code et ça marche sauf que normalement quand le subcode est saisi il oit y avoir un texte dans une zone de texte qui apparait automatiquement et c est ce que j arrive pas à faire. Manuellement ça marche mais avec la macro la zone de texte est toujours vide.
Je vous mets en piece jointe un capture d ecran de mon tableau et de la zone de la page internet ou il y a le souci et le code source de cette page

Voila le code que j utilise

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
 
 
  Dim CodeSubCode(3) As Integer
 
    Set theElementCollection = IEDoc.all("goodsCodesList[0]")
 
    For Each oElement In theElementCollection
 
        If Worksheets("DATA").Range("M" & i).Value = 10 Then
        oElement.Value = 10
        Set bouton = IEDoc.all("goodsTitlesList[0]")
        bouton.Value = Worksheets("DATA").Range("N" & i).Value
 
      Else
 
         Debug.Print oElement
         Range("M" & i) = Replace(Range("M" & i), ",", ".")
            CodeSubCode(0) = Split(Worksheets("DATA").Range("M" & i), ".")(0)
            If oElement.Value = CodeSubCode(0) Then
                oElement.Selected = True
            End If
 
            Set bouton = IEDoc.all("goodsSubCodesList[0]")
            CodeSubCode(1) = Split(Worksheets("DATA").Range("M" & i), ".")(1)
            bouton.Value = CodeSubCode(1)
 
            Set bouton = IEDoc.all("goodsTitlesList[0]")
 
 
 
      End If
    Next

Voila voilaa
Merci en tous cas

[Slooby]

Bonjour,

Ce que tu veux, c'est que dans ta zone de texte, par défaut il y ai une valeur déjà présente ?

Ta zone de texte, c'est quoi ? un objet "TextBox" ?

Si oui, tu peux jouer sur les événements.
Quand l'utilisateur clic dessus (ou clic sur le formulaire par exemple) alors la valeur de ton TextBox devient '%mon_text%' .
Bien sûr, tu définis comme tu le souhaites la valeur de '%mon_text%' et le tour est joué !

Slooby

[hs.hs]

Bonjour,
Merci pour ta réponse mais moi je ne peux modifier que sur la macro. Je peux pas modifier sur la page ou il y a les zones que la macro doit remplir . C ets un portail deja defini.
Si t as d autres solutions ou quelqun a des idées Please Help je suis vraiment bloquée la

[Slooby]

Bonjour,

Si tu ne réponds pas à mes questions, je ne risque pas de pouvoir t'aider plus ...


Slooby

[hs.hs]

Bonjour,
Je sais pas ce que tu veux dire avec ta question
Oui c est une zone de texte mais elle est bloquéé si on saisit un code de 0 a 9 parce que dans ce cas une fois le code est saisi cette zone est renseignée automatiquement.
Normalement a la main c est comme ca que ca marche mais en macro ca saute cette etape


J ai affiché le code source de ma page et voila ce que j ai eu pour ce qui concerne cette zone de texte

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

<th width="50%" scope="col" class="sorting">Omschrijving</th>

J ai mis en piece jointe sur mon premier message des captures d ecran
Merci beaucoup