Pour chipoter un peu plus on pourrait mettre un LCase sur le Mid.


PremiereLettreMaj = UCase(Left(texte,1))& LCase(Mid(texte,2))

Ainsi on aurait "JANVIER" qui deviendrait "Janvier"

J'ai trouvé l'erreur apparemment...
Il y a deux "Microsoft Internet Controls" (c'est normal ??)
J'ai sélectionné le second et mis une priorité plus haute que l'autre et ca fonctionne !
Désolé pour le dérangement et merci pour ta disponibilité.

Bonjour, je suis débutant en Visual Basic et cherchais a travaillé sur ce genre de choses, j'ai repris ton code et l'ai copié coller dans un nouveau projet, ainsi que ton bouton et ton textbox. J'ai ajouté les références qu'il fallait, mais à l'éxécution un erreur apparait :
"Erreur d'exécution '430'
La classe ne gère pas soit Automation ou l'interface attendue"

Ai-je oublié de faire quelquechose de précis ?

Merci