Re: faxer une feuille depuis vba

[Daniel]

Bonjour.
Ca ne fonctionne pas avec Sleep ?
Daniel
"Jérémie Gent" <jer...@hotmail.com> a écrit dans le message de news:
OpzQ3bOe...@TK2MSFTNGP04.phx.gbl...
> Bonjour!
>
> Je souhaite faxer une feuille depuis vba mais sans que l'utilisateur n'aie
> à renseigner le numéro et le nom du destinataire
> Je le fais pour l'instant avec Sendkeys, comme dans l'exemple ci joint,
> mais cela a ses soucis (si par exemple la feuille est longue, le temps que
> le spooler d'impression gère toutes les pages, les touches envoyées sont
> interceptées).
> Vous pouvez tester la feuille 'short', elle se faxe sans problème
> (j'espère juste que les raccourcis clavier sont les mêmes en français, je
> suis sous un office allemand, mais bon je pense que c'est bon), alors que
> la feuille "long", après avoir cliqué sur 'fill me' (qui lui instancie les
> 1000 1ères lignes) ne se faxera pas correctement.
>
> Il faut avoir le fax standard de windows installé et il doit s'appeler
> 'fax'.
>
> Merci pour votre aide / idées (Sendkeys n'est probablement pas la bonne
> méthode, mais je n'ai rien trouvé d'autre)
>
> Jérémie
>
>

[Jérémie Gent]

Non, cela ne fonctionne pas
As tu pu tester le fichier excel joint ?
Sur la page "long", clique sur fill me puis sur fax me, tu verras ce qui se
passe
sur mon pc, cela ne fonctionne pas (peut-être que sur un pc + rapide, cela
fonctionnerait ...?)

si je mets le 'Sleep 3000', il attend puis il envoie la séquence, donc c'est
la feuille qui récupère les touches
même si je mets ces séquences (ce qui serait plus logique, un ~ était mal
placé dans mon fichier):
SendKeys "^p%nfax~~"
Sleep 3000
SendKeys name & "~{TAB}{TAB}" & number
c'est à dire que le sleep est sensé se produire au moment où il prépare les
feuilles pour le fax, mais malheureusement ce n'est pas le cas ...

donc, non, même avec sleep, ça ne marche pas ...

une idée?

"Daniel" <dZZZcol...@free.fr> schrieb im Newsbeitrag
news:uWcPpcPe...@TK2MSFTNGP04.phx.gbl...

[Daniel]

Malheureusement, je n'ai pas de modem, donc, je ne peux pas envoyer de fax
Daniel.

"Jérémie Gent" <jer...@hotmail.com> a écrit dans le message de news:

e9F$$nPeGH...@TK2MSFTNGP02.phx.gbl...

[Jérémie Gent]

Tu peux quand même configurer un fax en choisissant un modem fictif (c'est
ce que je fais sur mon pc de dev.)
Le fax n'a pas besoin d'être envoyé, c'est juste l'affichage de l'assistant
qui est mis en question.

Jérémie

"Daniel" <dZZZcol...@free.fr> schrieb im Newsbeitrag

news:%23jYgC0Q...@TK2MSFTNGP02.phx.gbl...

[Daniel]

J'ai lu l'abondante lecture concernant ce sujet sur Internet. Apparemment
pas de salut sans passer par un logiciel de fax.

Daniel
"Jérémie Gent" <jer...@hotmail.com> a écrit dans le message de news:

uz$XrCYeG...@TK2MSFTNGP04.phx.gbl...

[Jérémie Gent]

Je viens d'avoir une idée que je viens de tester et qui bien qu'empirique
semble fonctionner
J'utilise un Timer Api pour envoyer la séquence problématique après qqs
secondes

Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal
nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal
nIDEvent As Long) As Long

Public m_IDTimer As Long
Public m_name As String
Public m_number As String

Public Sub FaxStep2Analog(ByVal hwnd As Long, ByVal lngMsg As Long, ByVal
lngID As Long, ByVal lngTime As Long)
Call KillTimer(0, m_IDTimer)
SendKeys "~" & m_name & "{TAB}{TAB}" & m_number
End Sub

et dans mon événement qui doit faxer je fais simplement

keys = "^p%nfax~~"
SendKeys keys
m_IDTimer = SetTimer(0, 0, 3000, AddressOf FaxStep2Analog)

Pour l'instant tout semble OK ...
S'il y a un hic, je reposterai

Merci et à+

"Daniel" <dZZZcol...@free.fr> schrieb im Newsbeitrag

news:eTHmE7Ze...@TK2MSFTNGP03.phx.gbl...