Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Vba : liste des imprimantes disponibles

9 réponses
Avatar
Jac
Bonjour à tous,

j'ai besoin d'établir la liste des imprimantes disponibles avec, si possible
le nom du port.
Mais je ne vois pas trop ce que je dois expliquer à XL pour qu'il me renvoie
ces renseignements.

Merci d'avance à qui me mettra sur la voie.

Jac

9 réponses

Avatar
Jacques93
Bonjour Jac,

Avec WMI :

Private Sub ListPrinters()
Dim objWMIService As Object
Dim objItem As Object
Dim colItems As Object
Dim strComputer As String
Dim i As Integer

[A1] = "Imprimante"
[B1] = "Port"
i = 2
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & strComputer & "rootCIMV2")
Set colItems = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer")

For Each objItem In colItems
With ActiveSheet
.Range("A" & i) = objItem.Name
.Range("B" & i) = objItem.PortName
i = i + 1
End With
Next
Columns("A:B").Select
Selection.Columns.AutoFit
Set colItems = Nothing
Set objWMIService = Nothing

End Sub

Bonjour à tous,

j'ai besoin d'établir la liste des imprimantes disponibles avec, si possible
le nom du port.
Mais je ne vois pas trop ce que je dois expliquer à XL pour qu'il me renvoie
ces renseignements.

Merci d'avance à qui me mettra sur la voie.

Jac





--
Cordialement,

Jacques.

Avatar
Jac
Merci Jacques93,

je ne sais vraiment pas où j'aurais pu aller chercher celà...

Jac


"Jacques93" a écrit dans le message de news:

Bonjour Jac,

Avec WMI :

Private Sub ListPrinters()
Dim objWMIService As Object
Dim objItem As Object
Dim colItems As Object
Dim strComputer As String
Dim i As Integer

[A1] = "Imprimante"
[B1] = "Port"
i = 2
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & strComputer & "rootCIMV2")
Set colItems = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer")

For Each objItem In colItems
With ActiveSheet
.Range("A" & i) = objItem.Name
.Range("B" & i) = objItem.PortName
i = i + 1
End With
Next
Columns("A:B").Select
Selection.Columns.AutoFit
Set colItems = Nothing
Set objWMIService = Nothing

End Sub

Bonjour à tous,

j'ai besoin d'établir la liste des imprimantes disponibles avec, si
possible le nom du port.
Mais je ne vois pas trop ce que je dois expliquer à XL pour qu'il me
renvoie ces renseignements.

Merci d'avance à qui me mettra sur la voie.

Jac



--
Cordialement,

Jacques.



Avatar
Jacques93
De rien, ça se trouve ici :

http://msdn2.microsoft.com/en-us/library/aa394363.aspx

il n'y a pas de lien direct avec Excel, mais WMI (Windows Management
Instrumentation) est utilisable à partir VBA, VBScript, ou autres ...

Merci Jacques93,

je ne sais vraiment pas où j'aurais pu aller chercher celà...

Jac


--

Cordialement,

Jacques.

Avatar
Misange
et puis là aussi :-)
http://www.excelabo.net/xl/imprimer.php#choiximprimante" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/xl/imprimer.php#choiximprimante

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

De rien, ça se trouve ici :

http://msdn2.microsoft.com/en-us/library/aa394363.aspx

il n'y a pas de lien direct avec Excel, mais WMI (Windows Management
Instrumentation) est utilisable à partir VBA, VBScript, ou autres ...

Merci Jacques93,

je ne sais vraiment pas où j'aurais pu aller chercher celà...

Jac






Avatar
Jacques93
Bonjour Misange,

Oui mais, Excel4, j'étais pas né ;-) !!!
et si j'ai bien compris la macro n'indique le port que pour l'imprimante
active, pas si on change d'imprimante.

Mais peut être ai je mal compris la question de Jac ?

et puis là aussi :-)
http://www.excelabo.net/xl/imprimer.php#choiximprimante" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/xl/imprimer.php#choiximprimante

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

De rien, ça se trouve ici :

http://msdn2.microsoft.com/en-us/library/aa394363.aspx

il n'y a pas de lien direct avec Excel, mais WMI (Windows Management
Instrumentation) est utilisable à partir VBA, VBScript, ou autres ...

Merci Jacques93,

je ne sais vraiment pas où j'aurais pu aller chercher celà...

Jac







--
Cordialement,

Jacques.



Avatar
Misange
non non t'as raison c'est moi qui avait lu trop vite la question ;-)

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://xlwiki.free.fr/wiki
http://www.excelabo.net" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net

Bonjour Misange,

Oui mais, Excel4, j'étais pas né ;-) !!!
et si j'ai bien compris la macro n'indique le port que pour l'imprimante
active, pas si on change d'imprimante.

Mais peut être ai je mal compris la question de Jac ?

et puis là aussi :-)
http://www.excelabo.net" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/xl/imprimer.php#choiximprimante

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://xlwiki.free.fr/wiki
http://www.excelabo.net" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net

De rien, ça se trouve ici :

http://msdn2.microsoft.com/en-us/library/aa394363.aspx

il n'y a pas de lien direct avec Excel, mais WMI (Windows Management
Instrumentation) est utilisable à partir VBA, VBScript, ou autres ...

Merci Jacques93,

je ne sais vraiment pas où j'aurais pu aller chercher celà...

Jac












Avatar
Jac
eh, attend : XL 4 est sorti en 92. Donc si tu n'étais pas né, tu aurais
moins de 15 ans... et tu aurais appris ça en têtant ta mère ???
Moi, j'ai commencé avec Visicalc sur Apple II...

http://fr.wikipedia.org/wiki/Microsoft_Excel
http://fr.wikipedia.org/wiki/Visicalc

"Jacques93" a écrit dans le message de news:

Bonjour Misange,

Oui mais, Excel4, j'étais pas né ;-) !!!
et si j'ai bien compris la macro n'indique le port que pour l'imprimante
active, pas si on change d'imprimante.

Mais peut être ai je mal compris la question de Jac ?

et puis là aussi :-)
http://www.excelabo.net/xl/imprimer.php#choiximprimante" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/xl/imprimer.php#choiximprimante

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

De rien, ça se trouve ici :

http://msdn2.microsoft.com/en-us/library/aa394363.aspx

il n'y a pas de lien direct avec Excel, mais WMI (Windows Management
Instrumentation) est utilisable à partir VBA, VBScript, ou autres ...

Merci Jacques93,

je ne sais vraiment pas où j'aurais pu aller chercher celà...

Jac







--
Cordialement,

Jacques.





Avatar
Jacques93
Bonjour Jac,

On a un point commun alors, Apple II+ (d'occasion) pour moi, avec
DEUX lecteurs de disquette. J'ai encore le bouquin 'langage assembleur
6502' . Bon effectivement j'ai un peu triché sur mon âge :-D

eh, attend : XL 4 est sorti en 92. Donc si tu n'étais pas né, tu aurais
moins de 15 ans... et tu aurais appris ça en têtant ta mère ???
Moi, j'ai commencé avec Visicalc sur Apple II...

http://fr.wikipedia.org/wiki/Microsoft_Excel
http://fr.wikipedia.org/wiki/Visicalc



--
Cordialement,

Jacques.

Avatar
Jac
J'men doutais... car on ne commence pas à utiliser XL en faisant des macros,
ça vient beaucoup plus tard... Et celui qui peut expliquer aux autres n'a
pas commencé hier. Mais il a toujours des questions à poser !!!

Moi, je suis passé par toute la gamme Apple à partir du IIe jusqu'au Starmax
après un ZX81.
Puis des PC depuis 94.
Mais point d'assembleur, des tableurs (Visicalc, Multiplan, Excel, Lotus
123), des intégrés (Appleworks, Works) et des pointus de la préhistoire (Cx
Base 200 avec Cx Texte vers 1983) puis des bd (FileMakerPro, Approach,
Access) et incontournable Word dès sa version 1.

Souvenirs, souvenirs...

Bonjour Jac,

On a un point commun alors, Apple II+ (d'occasion) pour moi, avec DEUX
lecteurs de disquette. J'ai encore le bouquin 'langage assembleur 6502' .
Bon effectivement j'ai un peu triché sur mon âge :-D

eh, attend : XL 4 est sorti en 92. Donc si tu n'étais pas né, tu aurais
moins de 15 ans... et tu aurais appris ça en têtant ta mère ???
Moi, j'ai commencé avec Visicalc sur Apple II...

--

Cordialement,

Jacques.