OVH Cloud OVH Cloud

Fax

11 réponses
Avatar
Peponne31
Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31

1 réponse

1 2
Avatar
jps
:-)))))))))
les mauvaises langues existent bien partout finalement
jps

"michdenis" a écrit dans le message de news:

Évidemment pour JPS les commandes Sendkeys ne sont pas suffisantes...

essaie ce fichier ....http://cjoint.com/?ego0Wfd4ng


Salutations!


"jps" a écrit dans le message de news:

si tu utilises autre chose, entre
exactement la chaîne de caractère que tu as dans ta liste déroulante !


...auquel cas il y a bien des chances que ça ne fonctionne toujours pas
car
les TAB ne correspondront plus à ceux qui permettaient de compléter
l'assistant de l'envoi de télécopie natif de Windows, fonctionnalité dont
on
ne peut pas AMHA changer (mais seulement configurer) l'imprimante...si
j'ai
tout bien compris
par ailleurs, en disant :
'Fax = Nom de l'onglet de la feuille à faxer
je pense que michel :-) voulait plutôt écrire


'FeuilleAFaxer = Nom de l'onglet de la feuille à faxer
je profite de cet immimiscionnement pour poser la question de savoir si on


peut commander à partir d'une macro et de sendkeys une imprimante
virtuelle
autre que Fax, du genre Capture Fax BVRP ou Olifax ou....Canon MP 730 fax
(comme celle de Peppone)....
un grand bonjour au québec
jps

"michdenis" a écrit dans le message de news:
O%23hge%
Bonjour Peponne 31,

Cette procédure utilise la commande Sendkeys ...
Tu dois donc la lancer à partir de l'interface feuille de calcul et
non pas à partir de l'interface de l'éditeur de macro.

Dans la commande ""^p%nfax"

"fax" est l'élément retenu dans la liste déroulante de la fenêtre
"Imprimer" à partir de la commande "Fichier / imprimer..." du
menu de la feuille de calcul...si tu utilises autre chose, entre
exactement la chaîne de caractère que tu as dans ta liste déroulante !

Je n'ai pas d'autres alternatives à te proposer.


Salutations!


"Peponne31" a écrit dans le message
de news:

Bonsoir michdenis,

Merci pour ton aide, je viens de faire un essai et ça bloque au niveau de
l'imprimante, le progamme va chercher une imprimante réseau et ne tiens
pas
compte de l'imprimante qui devrai prendre le fax, c'est une Canon MP 730
fax.
Peux tu si tu as le temps me traduire plus clairement le fonctionnement
du
programme ?
Cordialement
Peponne31


Bonjour Peponne31,

Essaie ceci en copiant le tout dans un module standard


'---------------------------
Sub test()

'Utilisation de sendkeys pour envoyer la page active
'de l'application excel.

'Fax = Nom de l'onglet de la feuille à faxer
'Denis = Nom du destinataire
'999999999 = No. de Tel à composer

FaxeFeuille "fax", "denis", "999999999"

End Sub
'---------------------------

'---------------------------------
Public Sub FaxeFeuille(FeuilleAFaxer As String, destinataire As String,
_
numero As String)
Dim keys As String
Dim Objet As String
Dim Note As String
Objet = "Un gros test"
Note = "Est-ce que cela fonctionne"

Worksheets(FeuilleAFaxer).Select
keys = "^p%nfax~~~" & destinataire & "{TAB}{TAB}" & _
numero & "~" & "{Tab}" & "{Down 5}" & Objet & "{Tab}" & Note & _
"~" & "%S" & "~"
SendKeys keys
End Sub
'---------------------------------


Salutations!



"Peponne31" a écrit dans le
message
de news:

Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de
matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31














1 2