patricktoulon

[CENTER][B]Episode 2[/B]
[COLOR=#b22222][SIZE=2][B]Un calendrier dynamique simple

[/B][/SIZE][/COLOR][/CENTER]
apres moulte versions dans la meme serie a savoir dans un userform dynamiquement créé voici le pseudo calendar
la encore je n'utilise pas de module classe tout est dans la fonction

[LIST=1][*]creation de l'userform[*]des bouton et listbox[*]ecriture du code[/LIST]

la aussi rien n'existe avant /rien n'existe apres autrement ...

[CENTER]
Contrairement a mon abitude de travailler avec des classes j'ai pris un chemin different sur ce theme
les fonctions qui vont suivre concernant des boites de dialogue perso n'utilisent pas de module classe
tout est crée dynamiquement (userform ,controls,code)
rien n'existe avant fonction ,rien n'existe apres que la fonction ai fait son job
tout se passe dans la fonction dans un module standard

[B]episode 1[/B]
[B]
Boite de ...

Images attachées

 

[CODE]Sub test()
Dim objIE As Object
url = "https://www.google.fr/?gws_rd=ssl"
Set objIE = getobject_IE_BY_URL(url)
If Not objIE Is Nothing Then
MsgBox objIE.document.body.innertext
'ici exploitation de objIE.document......
Else
MsgBox "cette page web n'est pas ouverte"
End If
End Sub
Function getobject_IE_BY_URL(url) As Object
Dim Wind As Object ...