tests mise en forme messages

Sub Test()
MsgBox 'Le forum XLD'
End Sub

[b]Sub Test()
MsgBox 'Le forum XLD'
End Sub[/b]

[color=#008000]Sub Test()
MsgBox 'Le forum XLD'
End Sub[/color]

[b][color=#008000]Sub Test()
MsgBox 'Le forum XLD'
End Sub[/color][/b]

[size=4]Sub Test()
MsgBox 'Le forum XLD'
End Sub[/size]

[size=4]Sub Test()
MsgBox 'Le forum XLD'
End Sub[/size]

[size=4][color=#0000FF]Sub Test()
MsgBox 'Le forum XLD'
End Sub[/color][/size]

Sub listeImprimantes_et_Statut()
'testé avec Excel2002 et WinXP
Dim objWMIService As Object, colInstalledPrinters As Object, objPrinter As Object
Dim nomPC As String, Resultat As String
nomPC = '.'
Set objWMIService = GetObject('winmgmts:' & _
'{impersonationLevel=impersonate}!\\\\' & nomPC & '\\root\\cimv2')
Set colInstalledPrinters = objWMIService.execQuery('Select * from Win32_Printer')
For Each objPrinter In colInstalledPrinters
Resultat = Resultat & objPrinter.Name & ' imprimante active : ' & objPrinter.Default & vbLf
Next
MsgBox Resultat
End Sub

Sub creerUndossier()
mkDir 'c:\\Mes Documents\\Excel'
End Sub