Bonjour à tous,
Jolie ta signature Hervé !
C'est vrai que la taille de la police pour le code est un peu petite. Surtout sur un 17' en 1280*1024 ! B)
Je fais un teste pour voir (Arf !)
Code:
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 & 'rootcimv2'Â'Â')
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
Sur l'aperçu, ça passe. Voyons voir le résultat...
Bin non. Je crois que l'aperçu n'est pas très WYSIWYG.
David ?????
Message édité par: jmps, à: 26/02/2005 12:48