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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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.
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.
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.
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.
Merci Jacques93,
je ne sais vraiment pas où j'aurais pu aller chercher celà...
Jac
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
uCerhPWbHHA.1244@TK2MSFTNGP04.phx.gbl...
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.
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.
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.
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
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
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
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
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.
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
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
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
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.
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
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
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
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/xl/imprimer.php#choiximprimante
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
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
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
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...
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
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.
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...
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
uDNxQAXbHHA.1300@TK2MSFTNGP02.phx.gbl...
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
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
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...
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
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.
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...
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...
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...
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.
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...
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...