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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…