Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel suspendre imprimante par defaut

suspendre imprimante par defaut

4 réponses
Avatar
AndréSch
bonjour à tous

J'ai récupéré ici et ailleurs du code pour faire ça...
mais rien ne marche

j'ai bricolé et ça marche, mais je ne suis pas sûr d'avoir tout mis ce qu'il
faut

De plus ça marche avec XP et excel 97 mais pas avec w98 et excel 97

qui peut m'aider car ça va sur plusieurs plateformes...

VOICI LE CODE : (auquel je ne comprends presque pas grand chose)
*****************************************************************
Sub SuspendreImprimanteParDéfaut()

Dim B As String
Position = InStr(Application.ActivePrinter, "sur")
B = Left(Application.ActivePrinter, Position - 2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from
Win32_Printer Where Name = '" & B & "'")
For Each ObjPrinter In colInstalledPrinters
ObjPrinter.pause
Next

End Sub
Sub ReprendreImprimanteParDéfaut()

Dim B As String
'Pour trouver l'imprimante par défaut
Position = InStr(Application.ActivePrinter, "sur")
B = Left(Application.ActivePrinter, Position - 2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = '" & B & "'")
For Each ObjPrinter In colInstalledPrinters
ObjPrinter.resume
Next

End Sub


Si on me donne qq explications sur ces termes 'objWMIService; winmgmts, etc,
colInstalledprinters, qui n'ont pas l'air d'etre déclarés, d'où sortent t
ils
un grand merci d'avance
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Jacques93
Re,

Nos derniers messages se sont croisés ...

Ton code fonctionne chez moi sous XP avec la modif indiquée dans
le précédent post pour la recherche de l'imprimante par défaut.

Dans le code original, tu supposes qu' il s'agit d'une imprimante
réseau (recherche de 'sur' dans Application.ActivePrinter), ce qui
n'est pas mon cas.

Pour les autres OS, je ne peux pas dire.

Je vais étuidier cela

merci mille fois

Vous ne me dites pas si mon code est bon ???
"Jacques93" a écrit dans le message de
news:

Bonjour,

WMI : Windows Management Instrumentation
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/about_wmi.asp

WMI n'est installé de base que sur Windows Me, W2K, XP,
pour les versions antèrieures, W95, W98, W98 SE, il faut le télécharger:

http://www.microsoft.com/downloads/details.aspx?FamilyId˜A4C5BA-337B-4E92-8C18-A63847760EA5&displaylang=en


Quelques info sur les imprimantes et WMI :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_tasks__printers_and_printing.asp



bonjour à tous

J'ai récupéré ici et ailleurs du code pour faire ça...
mais rien ne marche

j'ai bricolé et ça marche, mais je ne suis pas sûr d'avoir tout mis ce
qu'il faut

De plus ça marche avec XP et excel 97 mais pas avec w98 et excel 97

qui peut m'aider car ça va sur plusieurs plateformes...

VOICI LE CODE : (auquel je ne comprends presque pas grand chose)
*****************************************************************
Sub SuspendreImprimanteParDéfaut()

Dim B As String
Position = InStr(Application.ActivePrinter, "sur")
B = Left(Application.ActivePrinter, Position - 2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from
Win32_Printer Where Name = '" & B & "'")
For Each ObjPrinter In colInstalledPrinters
ObjPrinter.pause
Next

End Sub
Sub ReprendreImprimanteParDéfaut()

Dim B As String
'Pour trouver l'imprimante par défaut
Position = InStr(Application.ActivePrinter, "sur")
B = Left(Application.ActivePrinter, Position - 2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = '" & B & "'")
For Each ObjPrinter In colInstalledPrinters
ObjPrinter.resume
Next

End Sub


Si on me donne qq explications sur ces termes 'objWMIService; winmgmts,
etc, colInstalledprinters, qui n'ont pas l'air d'etre déclarés, d'où
sortent t ils
un grand merci d'avance



--
Cordialement,

Jacques.







--
Cordialement,

Jacques.



Avatar
AndréSch
merci grandement Jacques

je vais tester

André
"Jacques93" a écrit dans le message de
news:
Re,

Nos derniers messages se sont croisés ...

Ton code fonctionne chez moi sous XP avec la modif indiquée dans
le précédent post pour la recherche de l'imprimante par défaut.

Dans le code original, tu supposes qu' il s'agit d'une imprimante
réseau (recherche de 'sur' dans Application.ActivePrinter), ce qui
n'est pas mon cas.

Pour les autres OS, je ne peux pas dire.

Je vais étuidier cela

merci mille fois

Vous ne me dites pas si mon code est bon ???
"Jacques93" a écrit dans le message de
news:

Bonjour,

WMI : Windows Management Instrumentation
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/about_wmi.asp

WMI n'est installé de base que sur Windows Me, W2K, XP,
pour les versions antèrieures, W95, W98, W98 SE, il faut le télécharger:

http://www.microsoft.com/downloads/details.aspx?FamilyId˜A4C5BA-337B-4E92-8C18-A63847760EA5&displaylang=en


Quelques info sur les imprimantes et WMI :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_tasks__printers_and_printing.asp



bonjour à tous

J'ai récupéré ici et ailleurs du code pour faire ça...
mais rien ne marche

j'ai bricolé et ça marche, mais je ne suis pas sûr d'avoir tout mis ce
qu'il faut

De plus ça marche avec XP et excel 97 mais pas avec w98 et excel 97

qui peut m'aider car ça va sur plusieurs plateformes...

VOICI LE CODE : (auquel je ne comprends presque pas grand chose)
*****************************************************************
Sub SuspendreImprimanteParDéfaut()

Dim B As String
Position = InStr(Application.ActivePrinter, "sur")
B = Left(Application.ActivePrinter, Position - 2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from
Win32_Printer Where Name = '" & B & "'")
For Each ObjPrinter In colInstalledPrinters
ObjPrinter.pause
Next

End Sub
Sub ReprendreImprimanteParDéfaut()

Dim B As String
'Pour trouver l'imprimante par défaut
Position = InStr(Application.ActivePrinter, "sur")
B = Left(Application.ActivePrinter, Position - 2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = '" & B & "'")
For Each ObjPrinter In colInstalledPrinters
ObjPrinter.resume
Next

End Sub


Si on me donne qq explications sur ces termes 'objWMIService; winmgmts,
etc, colInstalledprinters, qui n'ont pas l'air d'etre déclarés, d'où
sortent t ils
un grand merci d'avance



--
Cordialement,

Jacques.







--
Cordialement,

Jacques.





Avatar
AndréSch
Sqlut
encore moi, désolé

Voilà:
j'ai utilisé tes codes pour suspendre ou resume l'imprimante
ça marche au poil pour Xp mais pour w98 j'ai chargé le fichier indiqué
ca s'installe bien, sauf qu'il ne semble pas connaitre
objprinter.pause et
objprinter.resume
sur cet ordinateur explorer n'est pas installé car il n'est pas sur internet
ni en réseau, ça pourrait venir de là ?

merci de ton aide future
là je fonctionne n aveugle... je bricole..
André

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

WMI : Windows Management Instrumentation
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/about_wmi.asp

WMI n'est installé de base que sur Windows Me, W2K, XP,
pour les versions antèrieures, W95, W98, W98 SE, il faut le télécharger:

http://www.microsoft.com/downloads/details.aspx?FamilyId˜A4C5BA-337B-4E92-8C18-A63847760EA5&displaylang=en


Quelques info sur les imprimantes et WMI :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_tasks__printers_and_printing.asp


bonjour à tous

J'ai récupéré ici et ailleurs du code pour faire ça...
mais rien ne marche

j'ai bricolé et ça marche, mais je ne suis pas sûr d'avoir tout mis ce
qu'il faut

De plus ça marche avec XP et excel 97 mais pas avec w98 et excel 97

qui peut m'aider car ça va sur plusieurs plateformes...

VOICI LE CODE : (auquel je ne comprends presque pas grand chose)
*****************************************************************
Sub SuspendreImprimanteParDéfaut()

Dim B As String
Position = InStr(Application.ActivePrinter, "sur")
B = Left(Application.ActivePrinter, Position - 2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from
Win32_Printer Where Name = '" & B & "'")
For Each ObjPrinter In colInstalledPrinters
ObjPrinter.pause
Next

End Sub
Sub ReprendreImprimanteParDéfaut()

Dim B As String
'Pour trouver l'imprimante par défaut
Position = InStr(Application.ActivePrinter, "sur")
B = Left(Application.ActivePrinter, Position - 2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = '" & B & "'")
For Each ObjPrinter In colInstalledPrinters
ObjPrinter.resume
Next

End Sub


Si on me donne qq explications sur ces termes 'objWMIService; winmgmts,
etc, colInstalledprinters, qui n'ont pas l'air d'etre déclarés, d'où
sortent t ils
un grand merci d'avance



--
Cordialement,

Jacques.



Avatar
Jacques93
Bonjour,

Effectivement, sur la paage de téléchargement de WMI

http://www.microsoft.com/downloads/details.aspx?FamilyId˜A4C5BA-337B-4E92-8C18-A63847760EA5&displaylang=en

Il es indiqué qu'que IE 5 minimum doit être installé :

System Requirements
Supported Operating Systems: Windows 95, Windows 98

Software Requirements:
*Microsoft® Internet Explorer version 5 or later*
Operating System: Windows 95, 98, 98SE


Sqlut
encore moi, désolé

Voilà:
j'ai utilisé tes codes pour suspendre ou resume l'imprimante
ça marche au poil pour Xp mais pour w98 j'ai chargé le fichier indiqué
ca s'installe bien, sauf qu'il ne semble pas connaitre
objprinter.pause et
objprinter.resume
sur cet ordinateur explorer n'est pas installé car il n'est pas sur internet
ni en réseau, ça pourrait venir de là ?

merci de ton aide future
là je fonctionne n aveugle... je bricole..
André

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

Bonjour,

WMI : Windows Management Instrumentation
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/about_wmi.asp

WMI n'est installé de base que sur Windows Me, W2K, XP,
pour les versions antèrieures, W95, W98, W98 SE, il faut le télécharger:

http://www.microsoft.com/downloads/details.aspx?FamilyId˜A4C5BA-337B-4E92-8C18-A63847760EA5&displaylang=en


Quelques info sur les imprimantes et WMI :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_tasks__printers_and_printing.asp



bonjour à tous

J'ai récupéré ici et ailleurs du code pour faire ça...
mais rien ne marche

j'ai bricolé et ça marche, mais je ne suis pas sûr d'avoir tout mis ce
qu'il faut

De plus ça marche avec XP et excel 97 mais pas avec w98 et excel 97

qui peut m'aider car ça va sur plusieurs plateformes...

VOICI LE CODE : (auquel je ne comprends presque pas grand chose)
*****************************************************************
Sub SuspendreImprimanteParDéfaut()

Dim B As String
Position = InStr(Application.ActivePrinter, "sur")
B = Left(Application.ActivePrinter, Position - 2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from
Win32_Printer Where Name = '" & B & "'")
For Each ObjPrinter In colInstalledPrinters
ObjPrinter.pause
Next

End Sub
Sub ReprendreImprimanteParDéfaut()

Dim B As String
'Pour trouver l'imprimante par défaut
Position = InStr(Application.ActivePrinter, "sur")
B = Left(Application.ActivePrinter, Position - 2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = '" & B & "'")
For Each ObjPrinter In colInstalledPrinters
ObjPrinter.resume
Next

End Sub


Si on me donne qq explications sur ces termes 'objWMIService; winmgmts,
etc, colInstalledprinters, qui n'ont pas l'air d'etre déclarés, d'où
sortent t ils
un grand merci d'avance



--
Cordialement,

Jacques.







--
Cordialement,

Jacques.