Discussion :

[hs.hs]

Hello les amis

Je développe une macro qui est sensée saisir des données depuis des feuilles excel dans un site et donc j'essaye de faire en sorte que la macro coche un élement dans une liste (bouton dossier de tva selectionné..) en VBA mais je n'arrive pas "
J ai fait ce code ci dessous mais ça ne fait absolument rien.
Merci de votre aide.

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
 
 Set bouton = IEDoc.all("vatNumberFilter")
    If (Worksheets("Information").Range("B1").Value = "LU99000056 (VAT Systems s.à r.l.)") Then
        bouton.Value = "8263"
  End If
   If (Worksheets("Information").Range("B1").Value = "Husky Injec. Mold. Systems sa") Then
       listSelectElem.Value = "733"
       listSelectElem.Click
   End If
   If (Range("B1").Value = "Arval Lux. Sa") Then
        listSelectElem.Value = "3018"
   End If
   If (Range("B1").Value = "John Zink Int. Lux sarl") Then
        listSelectElem.Value = "8169"
  End If
   If (Range("B1").Value = "Axus Lux. sa") Then
       listSelectElem.Value = "1016"
   End If
   If (Range("B1").Value = "Will Pharma Lux. sarl") Then
        listSelectElem.Value = "10848"
        End If
  If (Range("B1").Value = "Kymco Lux sa") Then
       listSelectElem.Value = "888"
  End If
   If (Range("B1").Value = "Mercedes Benz Financial Serv. Belux sa") Then
        listSelectElem.Value = "10704"
   End If
   If (Range("B1").Value = "Paul Wagner Et Fils sa") Then
        listSelectElem.Value = "1144"
   End If
  If (Range("B1").Value = "Les Domaines de Vinsmoselle") Then
      listSelectElem.Value = "100"
  End If
 If Range("B1").Value = "Sogeti Luxembourg s.a." Then
        listSelectElem.Value = "1193"
  End If