Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 VBA envoyer fichier à une imprimante usb

monakiel

XLDnaute Nouveau
Bonjour,

Il y a de tout et du compliqué sur le web, quelqu'un peut-il me montrer, dans un exemple simple, comment je peux envoyer en VBA un fichier vers une imprimante branchée en USB sur mon PC ? (Elle est donc sur le port USB001)
Le but c'est d'envoyer, juste après génération, un ensemble de fichiers créés par Excel...

Exemple au hasard pour avoir du texte dans le fichier :
pomme.txt contient "pomme+19025+0001"
poire.txt contient "poire+19025+0001"

Merci de votre aide
 

monakiel

XLDnaute Nouveau
Je m'approche du résultat en envoyant une commande cmd : copy /B "source" "cible"
Apparemment je peux utiliser SHELL en VBA, une indication sur comment l'utiliser quand "source" et "cible" sont des variables ?

Merci
 

monakiel

XLDnaute Nouveau
Bonjour,

Le type n'avais pas d'importance.
Pour ceux qui souhaitent avoir l'information :
La fonction Shell permet d'ouvrir un invite de commande et de faire un traitement.
Pour mon cas je l'ai utilisé de cette façon :

shell "cmd.exe /C copy /B ""source"" \\serveur\cible"

Où \\serveur\cible pointe vers un partage que j'ai mis sur mon imprimante connectée en USB (ça aurait été plus simple avec une imprimante réseau)
Attention a bien respecter les doubles cotes sur source
L'option /C permet de fermer l'invite après exécution de la commande.

Merci
 
C

Compte Supprimé 979

Guest
Bonjour monakiel,

Bien sûr que si le type de fichier est important
J'entends pas là qui si c'est un fichier Excel ou Word, tu as juste à utiliser l'instruction ".PrintOut"

Mais apparemment ça n'a pas l'air d'être le cas.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…