Petite question VBA
Résolu
Max
-
Max -
Max -
Bonjour,
j'essaie depuis hier de récupérer une valeur d'une clé de registre pour une macro et j'ai systématiquement un message d'erreur au lancement.
Mon Msgbox remonte pourtant bien la bonne info mais ne l'exploite pas dans le reste de ma commande ...
Mon script est le suivant:
Sub ShowPrinterProperties()
Set c = CreateObject("WScript.Shell")
impr = c.RegRead("HKEY_CURRENT_USER]\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device")
'MsgBox impr
Shell "rundll32.exe printui.dll,PrintUIEntry /e /n&impr"
End Sub
Concrètement, je souhaite tout simplement ouvrir la fenêtre de configuration de la mise en page du document sans passer par fichier > Imprimer et qu'il récupère les options d'impressions pour l'imprimante qui est connectée par défaut sur le poste de travail.
J'ai fouillé partout et je ne trouve rien.
Merci beaucoup à celui ou celle qui résoudra ce petit problème.
Il doit certainement manqué une petite bricole mais je sèche .....
Dans l'attente de vous lire, je vous souhaite une bonne journée.
j'essaie depuis hier de récupérer une valeur d'une clé de registre pour une macro et j'ai systématiquement un message d'erreur au lancement.
Mon Msgbox remonte pourtant bien la bonne info mais ne l'exploite pas dans le reste de ma commande ...
Mon script est le suivant:
Sub ShowPrinterProperties()
Set c = CreateObject("WScript.Shell")
impr = c.RegRead("HKEY_CURRENT_USER]\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device")
'MsgBox impr
Shell "rundll32.exe printui.dll,PrintUIEntry /e /n&impr"
End Sub
Concrètement, je souhaite tout simplement ouvrir la fenêtre de configuration de la mise en page du document sans passer par fichier > Imprimer et qu'il récupère les options d'impressions pour l'imprimante qui est connectée par défaut sur le poste de travail.
J'ai fouillé partout et je ne trouve rien.
Merci beaucoup à celui ou celle qui résoudra ce petit problème.
Il doit certainement manqué une petite bricole mais je sèche .....
Dans l'attente de vous lire, je vous souhaite une bonne journée.
A voir également:
- Petite question VBA
- Petite amie virtuelle en français gratuit - Accueil - Intelligence artificielle
- Excel compter cellule couleur sans vba - Guide
- Petite croix snap - Forum Snapchat
- Bloquage d'un ami snap - Forum Snapchat
- Petite majuscule word ✓ - Forum Word
J'ai juste un soucis, je récupère des imprimantes sur un serveur d'impression et une des 2 imprimantes s'appelle Copieurs Konica.
La commande ne fonctionne pas quand c'est la Copieurs Konica mais fonctionne quand c'est l'autre imprimante Imp001. Je pense que le problème vient de l'espace dans le nom de l'imprimante.
Comment ferais tu cette commande directement sous dos ?
A la limite tu peux assayer d'ajouter des guillemets autour de la variable.
Un truc du genre :
La ligne de commande est donc désormais:
Shell "rundll32.exe printui.dll,PrintUIEntry /e /n" & Chr(34) & impr & Chr(34)
Merci beaucoup jordane45 pour ton aide et ta disponibilité.