XL 2013 VBA envoyer fichier à une imprimante usb

[monakiel]

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]

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

 

[Compte Supprimé 979]

Bonsoir,
Je pense que tu ne nous as pas tout dit !?
Quel type de fichier veux-tu envoyer ?
A+

 

[monakiel]

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

 

[Compte Supprimé 979]

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.