FORUM Tom's Hardware » Programmation » VB / VBA / VBS » vba excel et html
 

vba excel et html

Il y a 415 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : vba excel et html
 
Plus d'informations

Bonjour, :)
Je pilote un logiciel intranet avec VBA Excel avec le code suivant :
' Formulaire

'Remplie les champs nécessaires...
IE.DOCUMENT.All("NumExp" ).Value = CodeEctien
IE.DOCUMENT.All("motDePasse" ).Value = Pass
IE.DOCUMENT.All("envoyer" ).Click 'clique sur le bouton...

Do While IE.ReadyState <> 4
DoEvents
Loop

IE.navigate "http://www.intranet-ecti.org/asp/Missions/menu.asp" 'new/new.asp"

IE.navigate http://www.intranet-ecti.org/asp/Missions/New/new.asp

If IE.DOCUMENT.All("MISS_ETR" ).value= "MISS_ETR " then IE.DOCUMENT.All("MISS_ETR" ).click 'clique sur le bouton...
Do While IE.ReadyState <> 4
DoEvents
Loop

… et je plante! :pt1cable: --> variable objet ou bloc with non défini

… et voila le code source
<tr>
<td colspan="1" class="cellBold"><input type="radio" name="TypeDocument" value="MISS_FR" checked onClick="afficheFraisSelonTypeDocument()">Mission France</td>
<td colspan="3" class="cellBold"><input type="radio" name="TypeDocument" value="MISS_ETR" onclick="afficheFraisSelonTypeDocument()">Mission Hors de France</td>

Quelqu'un peut-il m'aider ?
Merci.

zeb
Profil : Modérateur libre
Plus d'informations

Citation :

Quelqu'un peut-il m'aider ?


Non. Ici, il y a un règlement que tu ne respectes pas. En conséquence, tu ne recevras d'aide que lorsque tu auras modifié ton sujet.

Pour le plaisir de lire ton sujet, mon message s'auto-détruira quand le tien sera correctement présenté.


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

Bonjour Zeb,
J'ai lu le règlement et j'ai regardé les autres messages.
Sans savoir exactement à quel partie du règlement j'ai contrevenu, j'ai corrigé mon message. Si ça n'est pas bon, sois plus explicite.
Merci

Bonjour,
Je pilote un logiciel intranet avec VBA Excel avec le code suivant :

[Code ]

' Formulaire

'Remplie les champs nécessaires...
* IE.DOCUMENT.All("NumExp" ).Value = CodeEctien
* IE.DOCUMENT.All("motDePasse" ).Value = Pass
* IE.DOCUMENT.All("envoyer" ).Click 'clique sur le bouton...

* Do While IE.ReadyState <> 4
* DoEvents
* Loop

*IE.navigate "http://www.intranetecti.org/asp/Missions/menu.asp" 'new/new.asp"

* IE.navigate <a href="http://www.intranet-ecti.org/asp/Missions/New/new.asp" target="_blank">http://www.intranet-ecti.org/asp/Missions/New/new.asp</a>

*If IE.DOCUMENT.All("MISS_ETR" ).value= "MISS_ETR " then IE.DOCUMENT.All("MISS_ETR" ).click 'clique sur le bouton

* Do While IE.ReadyState <> 4
* DoEvents
* Loop

… et je plante! --> variable objet ou bloc with non défini

… et voila le code source

[Code]
* <tr>
* <td colspan="1" class="cellBold"><input type="radio" name="TypeDocument" value="MISS_FR" checked onClick="afficheFraisSelonTypeDocument()">Mission France</td>
* <td colspan="3" class="cellBold"><input type="radio" name="TypeDocument" value="MISS_ETR" onclick="afficheFraisSelonTypeDocument()">Mission Hors de France</td>

Merci.

Plus d'informations

Bonjour je fais une petite macro qui ne marche pas au fait je veux juste dire à Excel de repérer les cellules en gras dans la colonne "D" et si gras sélectionner la même ligne de "A" à "R"
Merci de votre aide.

Sub Gris()
'
' Gris Macro
' Macro enregistrée le 2008-05-22 par Radia
Dim i As Integer
For i = 1 To 2200
If Cells(i, 4).Font.Bold = True And Cells(i, 4).Value <> "" Then
Range("A:R" ).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If

Next i

End Sub

Plus d'informations

Ton erreur est là, tu sélectionnes de la colonne A à la colonne R, sans préciser la ligne concerné

Code :
  1. Range("A:R" ).Select



Il faut que tu l'appliques sur la ligne courante plutot.

[code]
range("A" & i & ":R" & i).colorindex = 15
[code]

Lis les règles au passage pour les balises code.


---------------
S'il n'y a pas de solution c'est qu'il n'y pas de problème
Plus d'informations

Curieux,
Je pose une question et j'ai une fin de non recevoir sans explication J'essaie de rectifier le tir ... Silence radio. Et près de 2 semaines plus tard, un internaute se greffe sur mon sujet, mais pour une toute autre question, sans mettre de balises et on lui répond fort aimablement.
Il y a quelque chose de pourri au royaume du Danemark!
Je vais aller chercher ailleurs une réponse à mes questions. Mais que dis-je ? Je l'ai fait et j'ai eu la réponse.
Que con salud le profites !


Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » VB / VBA / VBS » vba excel et html
 

Annonces Google
Publicité