Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !
www.tohubohu.fr <<<
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !
www.tohubohu.fr <<<
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
www.tohubohu.fr <<<
"Daniel" a écrit dans le message de news:
Bonjour.
Essaie :
MsgBox Left(Application.ActivePrinter, _
InStr(Application.ActivePrinter, "sur") - 1)
Cordialement.
Daniel
"Gadget" a écrit dans le message de news:
463f264e$0$25940$Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
www.tohubohu.fr <<<
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Bonjour.
Essaie :
MsgBox Left(Application.ActivePrinter, _
InStr(Application.ActivePrinter, "sur") - 1)
Cordialement.
Daniel
"Gadget" <asd@zdifu.fr> a écrit dans le message de news:
463f264e$0$25940$ba4acef3@news.orange.fr...
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !
www.tohubohu.fr <<<
www.tohubohu.fr <<<
"Daniel" a écrit dans le message de news:
Bonjour.
Essaie :
MsgBox Left(Application.ActivePrinter, _
InStr(Application.ActivePrinter, "sur") - 1)
Cordialement.
Daniel
"Gadget" a écrit dans le message de news:
463f264e$0$25940$Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
www.tohubohu.fr <<<
"jps" a écrit dans le message de news:
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" a écrit dans le message de news:
463f264e$0$25940$Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
www.tohubohu.fr <<<
"jps" <vaderetrosp@mas> a écrit dans le message de news:
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" <asd@zdifu.fr> a écrit dans le message de news:
463f264e$0$25940$ba4acef3@news.orange.fr...
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !
www.tohubohu.fr <<<
www.tohubohu.fr <<<
"jps" a écrit dans le message de news:
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" a écrit dans le message de news:
463f264e$0$25940$Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !
www.tohubohu.fr <<<
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
www.tohubohu.fr <<<
"MichDenis" a écrit dans le message de news:
Bonjour JPS,
(pas trop la gueule de bois après avoir fêter la victoire de Sarko ?
;-)) )
Et pour lister la liste des imprimantes et de leur "porcs" et identifier
l'imprimante par défaut :
DISPONIBLE SOUS : windows Xp
'---------------------------------
Sub ListerLesImprimantesEtLeursPorts()
Dim A As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objprinter In colPrinters
'Pour connaître l'imprimante par défaut de l'ordi:
'Un message box s'affichera avec le nom et le port
If objprinter.Default = True Then
MsgBox objprinter.name
End If
'Imprime dans la colonne A de la feuille active
'toutes les imprimantes et les ports qu'elles utilisent
A = A + 1
Range("A" & A) = objprinter.name & " sur " & objprinter.PortName
Next
End Sub
'---------------------------------
"jps" a écrit dans le message de news:
uLU%
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" a écrit dans le message de news:
463f264e$0$25940$Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
www.tohubohu.fr <<<
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
Bonjour JPS,
(pas trop la gueule de bois après avoir fêter la victoire de Sarko ?
;-)) )
Et pour lister la liste des imprimantes et de leur "porcs" et identifier
l'imprimante par défaut :
DISPONIBLE SOUS : windows Xp
'---------------------------------
Sub ListerLesImprimantesEtLeursPorts()
Dim A As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objprinter In colPrinters
'Pour connaître l'imprimante par défaut de l'ordi:
'Un message box s'affichera avec le nom et le port
If objprinter.Default = True Then
MsgBox objprinter.name
End If
'Imprime dans la colonne A de la feuille active
'toutes les imprimantes et les ports qu'elles utilisent
A = A + 1
Range("A" & A) = objprinter.name & " sur " & objprinter.PortName
Next
End Sub
'---------------------------------
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uLU%23jAMkHHA.3120@TK2MSFTNGP05.phx.gbl...
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" <asd@zdifu.fr> a écrit dans le message de news:
463f264e$0$25940$ba4acef3@news.orange.fr...
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !
www.tohubohu.fr <<<
www.tohubohu.fr <<<
"MichDenis" a écrit dans le message de news:
Bonjour JPS,
(pas trop la gueule de bois après avoir fêter la victoire de Sarko ?
;-)) )
Et pour lister la liste des imprimantes et de leur "porcs" et identifier
l'imprimante par défaut :
DISPONIBLE SOUS : windows Xp
'---------------------------------
Sub ListerLesImprimantesEtLeursPorts()
Dim A As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objprinter In colPrinters
'Pour connaître l'imprimante par défaut de l'ordi:
'Un message box s'affichera avec le nom et le port
If objprinter.Default = True Then
MsgBox objprinter.name
End If
'Imprime dans la colonne A de la feuille active
'toutes les imprimantes et les ports qu'elles utilisent
A = A + 1
Range("A" & A) = objprinter.name & " sur " & objprinter.PortName
Next
End Sub
'---------------------------------
"jps" a écrit dans le message de news:
uLU%
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" a écrit dans le message de news:
463f264e$0$25940$Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
Bonjour JPS,
(pas trop la gueule de bois après avoir fêter la victoire de Sarko ?
;-)) )
Et pour lister la liste des imprimantes et de leur "porcs" et identifier
l'imprimante par défaut :
DISPONIBLE SOUS : windows Xp
'---------------------------------
Sub ListerLesImprimantesEtLeursPorts()
Dim A As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objprinter In colPrinters
'Pour connaître l'imprimante par défaut de l'ordi:
'Un message box s'affichera avec le nom et le port
If objprinter.Default = True Then
MsgBox objprinter.name
End If
'Imprime dans la colonne A de la feuille active
'toutes les imprimantes et les ports qu'elles utilisent
A = A + 1
Range("A" & A) = objprinter.name & " sur " & objprinter.PortName
Next
End Sub
'---------------------------------
"jps" a écrit dans le message de news:
uLU%
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" a écrit dans le message de news:
463f264e$0$25940$Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
Bonjour JPS,
(pas trop la gueule de bois après avoir fêter la victoire de Sarko ?
;-)) )
Et pour lister la liste des imprimantes et de leur "porcs" et identifier
l'imprimante par défaut :
DISPONIBLE SOUS : windows Xp
'---------------------------------
Sub ListerLesImprimantesEtLeursPorts()
Dim A As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objprinter In colPrinters
'Pour connaître l'imprimante par défaut de l'ordi:
'Un message box s'affichera avec le nom et le port
If objprinter.Default = True Then
MsgBox objprinter.name
End If
'Imprime dans la colonne A de la feuille active
'toutes les imprimantes et les ports qu'elles utilisent
A = A + 1
Range("A" & A) = objprinter.name & " sur " & objprinter.PortName
Next
End Sub
'---------------------------------
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uLU%23jAMkHHA.3120@TK2MSFTNGP05.phx.gbl...
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" <asd@zdifu.fr> a écrit dans le message de news:
463f264e$0$25940$ba4acef3@news.orange.fr...
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !
www.tohubohu.fr <<<
Bonjour JPS,
(pas trop la gueule de bois après avoir fêter la victoire de Sarko ?
;-)) )
Et pour lister la liste des imprimantes et de leur "porcs" et identifier
l'imprimante par défaut :
DISPONIBLE SOUS : windows Xp
'---------------------------------
Sub ListerLesImprimantesEtLeursPorts()
Dim A As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objprinter In colPrinters
'Pour connaître l'imprimante par défaut de l'ordi:
'Un message box s'affichera avec le nom et le port
If objprinter.Default = True Then
MsgBox objprinter.name
End If
'Imprime dans la colonne A de la feuille active
'toutes les imprimantes et les ports qu'elles utilisent
A = A + 1
Range("A" & A) = objprinter.name & " sur " & objprinter.PortName
Next
End Sub
'---------------------------------
"jps" a écrit dans le message de news:
uLU%
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" a écrit dans le message de news:
463f264e$0$25940$Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
Bonjour JPS,
(pas trop la gueule de bois après avoir fêter la victoire de Sarko ?
;-)) )
Et pour lister la liste des imprimantes et de leur "porcs" et identifier
l'imprimante par défaut :
DISPONIBLE SOUS : windows Xp
'---------------------------------
Sub ListerLesImprimantesEtLeursPorts()
Dim A As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objprinter In colPrinters
'Pour connaître l'imprimante par défaut de l'ordi:
'Un message box s'affichera avec le nom et le port
If objprinter.Default = True Then
MsgBox objprinter.name
End If
'Imprime dans la colonne A de la feuille active
'toutes les imprimantes et les ports qu'elles utilisent
A = A + 1
Range("A" & A) = objprinter.name & " sur " & objprinter.PortName
Next
End Sub
'---------------------------------
"jps" a écrit dans le message de news:
uLU%
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" a écrit dans le message de news:
463f264e$0$25940$Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<
Bonjour JPS,
(pas trop la gueule de bois après avoir fêter la victoire de Sarko ?
;-)) )
Et pour lister la liste des imprimantes et de leur "porcs" et identifier
l'imprimante par défaut :
DISPONIBLE SOUS : windows Xp
'---------------------------------
Sub ListerLesImprimantesEtLeursPorts()
Dim A As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objprinter In colPrinters
'Pour connaître l'imprimante par défaut de l'ordi:
'Un message box s'affichera avec le nom et le port
If objprinter.Default = True Then
MsgBox objprinter.name
End If
'Imprime dans la colonne A de la feuille active
'toutes les imprimantes et les ports qu'elles utilisent
A = A + 1
Range("A" & A) = objprinter.name & " sur " & objprinter.PortName
Next
End Sub
'---------------------------------
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uLU%23jAMkHHA.3120@TK2MSFTNGP05.phx.gbl...
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" <asd@zdifu.fr> a écrit dans le message de news:
463f264e$0$25940$ba4acef3@news.orange.fr...
Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !
www.tohubohu.fr <<<
Bonjour JPS,
(pas trop la gueule de bois après avoir fêter la victoire de Sarko ?
;-)) )
Et pour lister la liste des imprimantes et de leur "porcs" et identifier
l'imprimante par défaut :
DISPONIBLE SOUS : windows Xp
'---------------------------------
Sub ListerLesImprimantesEtLeursPorts()
Dim A As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objprinter In colPrinters
'Pour connaître l'imprimante par défaut de l'ordi:
'Un message box s'affichera avec le nom et le port
If objprinter.Default = True Then
MsgBox objprinter.name
End If
'Imprime dans la colonne A de la feuille active
'toutes les imprimantes et les ports qu'elles utilisent
A = A + 1
Range("A" & A) = objprinter.name & " sur " & objprinter.PortName
Next
End Sub
'---------------------------------
"jps" a écrit dans le message de news:
uLU%
bonjour gadget
change tous les 4 matins au gré des humeurs d'excel?
tu es sûr de toi en avançant cela? moi, je n'ai jamais vu un Ne... changer
d'index
peut-être parce que tu es en réseau...
jps
"Gadget" a écrit dans le message de news:
463f264e$0$25940$Salut c'est encore moi.
Le nom de l'imprimante active tel que récupéré sous excel avec
ActivePrinter est de la forme "NomImprimante sous Ne0X:"
Par contre, sous Word, il est de la forme "NomImprimante"
Etant donné que le "NeOX" change tous les 4 matins au gré des humeurs de
excel, y a-t-il moyen, sous VBA Excel, de forcer le nom de l'imprimante à
sa seule partie invariable, soit "NomImprimante" ?
Merci.
K.
--
Visitez notre site !www.tohubohu.fr <<<