XL 2010 Liste des imprimantes ds une ComboBox

[Wyrgle]

Bonjour à tous,

Je cherche à obtenir la liste des imprimantes connectées dans une ComboBox.
Le ligne suivante me donne bien la liste :

    Application.Dialogs(xlDialogPrinterSetup).Show

mais dans une MsgBox avec bouton Oui/Cancel.

Est-ce possible ?
Wyrgle

 

[Roland_M]

bonsoir,

qq chose dans le genre !? (à adapter)

Sub ImprimantesListeEtStatut() 'Lister imprimantes installées et préciser laquelle est active
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

 

[Wyrgle]

Merci pour ta réponse Roland_M, mais ton code fait la meme chose que

Application.Dialogs(xlDialogPrinterSetup).Show

 

[ChTi160]

Bonjour Wyrgle
Bonjour le Fil,Le Forum
a partir du Code de Roland (que je salue)
j'ai dans un userform obtenu la liste des Imprimantes et leur status

Private Sub UserForm_Initialize()
 ImprimantesListeEtStatut
End Sub

puis j ai Modifié la Procédure ainsi :

Sub ImprimantesListeEtStatut() 'Lister imprimantes installées et préciser laquelle est active
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
   With UserForm1
       .ComboBox1.AddItem objPrinter.Name & " :  " & objPrinter.Default
   End With
Next
End Sub

Bonne journée
Amicalement
Jean Marie