Ouverture d'un tiroir caisse en vba

[David590]

Bonjour à tous,

J'ai une imprimante tickets Epson TM-70 connecté au pc en usb sur laquelle j'aimerai brancher un tiroir caisse (branché généralement en RJ12).

Quelqu'un connait-il les codes pour ouvrir le tiroir en vba avec un bouton?

J'ai trouvé pas mal de chose sur le net mais rien en vba, il y a un vieux post pour le même genre de question mais qui est resté sans réponse

https://www.excel-downloads.com/threads/aide-sur-bouton-ouverture-tiroir-caisse.117952/

Je n'ai pas encore le tiroir et je peux donc acheter celui qu'il faut

Merci d'avance

David

 

[David590]

Re : Ouverture d'un tiroir caisse en vba

Bonsoir à tous,

Petit déterrage de post car j'ai besoin d'aide au sujet du code que j'avais obtenu ici
Ce code consiste à crée un réseau de partage pour pouvoir écrire un code ESC sur l'imprimante, comme l'avait expliqué habitude la dernière fois comme ceci:

Private Sub CommandButton1_Click()
 Open "\\PC1\EpsonTM70" For Output As #1
        Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(3); Chr$(2);
Close #1
End Sub

Le code fonctionne parfaitement depuis mon pc, mais j'ai maintenant besoin d'utiliser ce code sur la meme imprimante mais depuis un autre pc.
Je me dit parfait, ça tombe bien puisque l'imprimante est déjà partagé en réseau, et bien non, bizarrement ça ne fonctionne pas, pourquoi?...

Qu'en pensez vous?

 

[Compte Supprimé 979]

Re : Ouverture d'un tiroir caisse en vba

Bonjour David590

Question peut-être bête, est-ce que l'utilisateur du PC2 est autorisé à imprimer sur l'imprimante partagée du PC1
Il faut regardé du côté de la sécurité du partage imprimante du PC1

A+

 

[David590]

Re : Ouverture d'un tiroir caisse en vba

Bonjour BrunoM45,

Oui, j'ai effectivement regardé dans l'onglet "securité" dans "options de l'imprimante" et il est bien autorisé à : imprimé, gérer cette imprimante et gestion des documents, tout est coché

j’arrive d'ailleurs a imprimer correctement comme ceci:

.PrintOut ActivePrinter:="\\PC1\EpsonTM70"

Mais pour le

Open "\\PC1\EpsonTM70" For Output As #1
        Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(3); Chr$(2);
Close #1

c'est là que ça coince
"Erreur d’exécution 75, Erreur d'accès Chemin/Fichier"

 

[Compte Supprimé 979]

Re : Ouverture d'un tiroir caisse en vba

Re,

Ne peux-tu pas partager l'imprimante en local sur le PC2 ?

Et à ce moment là, tu feras

Open "\\PC2\EpsonTM70" For Output As #1
        Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(3); Chr$(2);
Close #1

a+

 

[David590]

Re : Ouverture d'un tiroir caisse en vba

Re,

J'ai regarder dans le PC2, et je vois bien le partage qui est coché et le nom de partage, mais je ne peux rien modifier car tous est grisé

 

[Compte Supprimé 979]

Re : Ouverture d'un tiroir caisse en vba

Re

Re,
J'ai regarder dans le PC2, et je vois bien le partage qui est coché et le nom de partage, mais je ne peux rien modifier car tous est grisé

Je pense que c'est normal, si l'imprimante est installée sur ton serveur

As-tu essayé en changeant le nom derrière "\\Nom" ?

A+

 

[David590]

Re : Ouverture d'un tiroir caisse en vba

Comme ceci ?

Open "\\EpsonTM70\\PC2" For Output As #1

Ca me mets :
"Erreur d’exécution 76, Chemin d’accès introuvable"

alors que dans l'autre sens il me mettait
"Erreur d’exécution 75, Erreur d'accès Chemin/Fichier"



Un autre détail, je disais que j'arrive à imprimer depuis le PC2 en utilisant :

.PrintOut ActivePrinter:="\\PC1\EpsonTM70"

mais c'est plutôt ça que j'utilise

pour le PC1:

.PrintOut ActivePrinter:="EPSON TM-T70 Receipt"

et pour le PC2:

.PrintOut ActivePrinter:="\\PC1\EPSON TM-T70 Receipt"

"EPSON TM-T70 Receipt" c'est le nom de l'imprimante, mais pas le nom de partage qui lui est "EpsonTM70"

Apparement windows aurait installé automatiquement un pilote pour afficher "EPSON TM-T70 Receipt" dans mes imprimantes

 

[Habitude]

Re : Ouverture d'un tiroir caisse en vba

Bonjour

A ma connaissance, Open ne gère pas les accès répertoire/fichier mais les noms.

As-tu essayer avec ton nom de partage ?

Open "EpsonTM70" For Output As #1

 

[David590]

Re : Ouverture d'un tiroir caisse en vba

Bonjour Habitude,

J'ai essayé sans le chemin comme ça
Open "EpsonTM70" For Output As #1

et rien ne se passe, pas d'erreur non plus, que je le fasse depuis PC1 ou PC2,

mais Open gère apparemment l'accès/fichier car ça marche avec ça
Open "\\PC1\EpsonTM70" For Output As #1

C'est même toi qui m'avait trouvé la solution Habitude

par contre ça ne marche pas depuis mon deuxième pc


J'ai aussi remarqué que quand je fait Open "\\PC1\EpsonTM70" For Output As #1 depuis PC2
J'ai : "Erreur d’exécution 75, Erreur d'accès Chemin/Fichier"

alors que si je mets par exemple \\jytjhfndfh\EpsonTM70" For Output As #1 depuis PC2 (c'est à dire n'importe quoi)
j'ai : "Erreur d’exécution 76, Chemin d’accès introuvable"

Ca veut donc dire qu'il trouve bien le chemin \\PC1\ mais qu'il bloque sur le nom de partage, qu'en pensez vous?

 

[Habitude]

Re : Ouverture d'un tiroir caisse en vba

Effectivement

Ca semble être un problème d'autorisation

 

[David590]

Re : Ouverture d'un tiroir caisse en vba

Oui, j'ai éplucher tous les paramètres mais je n'ai rien trouvé pour l'autoriser

N'y a t'il pas un autre moyen d’écrire cette séquence Chr$(&H1B); "p"; Chr$(0); Chr$(3); Chr$(2)

 

[Compte Supprimé 979]

Re : Ouverture d'un tiroir caisse en vba

Salut David590

Le problème ne vient pas de la façon d'écrire le code, il fonctionne (testé)

Il faudrait que tu nous donnes ton architecture
1) version windows des PC
2) comment est connecter l'imprimante (RJ45, Ethernet, USB)
3) Ou est connecté ton imprimante (PC, serveur)

a+

 

[David590]

Re : Ouverture d'un tiroir caisse en vba

Salut BrunoM45,

Alors, mon imprimante est branché en USB sur le PC1, le PC1 est sous Windows7.

Le PC2 est sous windows8 et est connecté en réseau sur le PC1 avec un câble RJ45 croisé.

L'imprimante sur le PC1 est partagé, et me permet donc d'imprimer depuis le PC2 en utilisant \\PC1\EPSON TM-T70 Receipt, pourtant le nom de partage n'est pas EPSON TM-T70 Receipt, mais EPSONTM70.

J'essai d’être le plus claire possible, même si c'est pas toujours évident

 

[Habitude]

Re : Ouverture d'un tiroir caisse en vba

Essayer en arrêtant le firewall

 

[David590]

Re : Ouverture d'un tiroir caisse en vba

Je viens d'essayer, mais c'est toujours pareil