OVH Cloud OVH Cloud

macro avec sendkeys

3 réponses
Avatar
kiki
Je voudrais pouvoir faxer une feuille excel de facon automatique.
j'ai créer cette macro :
Sub Macro1()
'
' Macro1 Macro
'
Application.ActivePrinter = "Brother PC-FAX sur Ne03:"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


SendKeys "5"

End Sub

Le sendkey permet de taper le numeros de fax.
Mon probleme est que la fenetre du fax s'affiche, mais la fonction sendkeys
ne marche pas.
La macro s'arrette et reprend apres avoir fermer la fenetre du fax, et le
chiffre 5 apparait aprés (mais trops tard).
j'ai besoin dun peut d'aide, merci

3 réponses

Avatar
jps
bonjour kiki
je doute que tu puisses commander un logiciel de fax avec le Sendkeys de ta
macro, sinon ça se saurait....
si déjà tu y as installé ta feuille excel pour qu'elle soit envoyée, c'est
déjà bien, non?
jps

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

Je voudrais pouvoir faxer une feuille excel de facon automatique.
j'ai créer cette macro :
Sub Macro1()
'
' Macro1 Macro
'
Application.ActivePrinter = "Brother PC-FAX sur Ne03:"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


SendKeys "5"

End Sub

Le sendkey permet de taper le numeros de fax.
Mon probleme est que la fenetre du fax s'affiche, mais la fonction
sendkeys
ne marche pas.
La macro s'arrette et reprend apres avoir fermer la fenetre du fax, et le
chiffre 5 apparait aprés (mais trops tard).
j'ai besoin dun peut d'aide, merci


Avatar
kiki
installé ma feuille Excel?? (je ne suis pas un pro avec les macros, je
comprend pas tout)

Merci pour cette enfo quand meme, c'a m'evite de chercher pendent des heures.
Faut maintenent que je trouve une autre solution!!
Je doit pouvoir envoyer plusieur fax de facon automatique tout les matins!
Si on peut me dire vers ou chercher ca serrais cool, Merci


bonjour kiki
je doute que tu puisses commander un logiciel de fax avec le Sendkeys de ta
macro, sinon ça se saurait....
si déjà tu y as installé ta feuille excel pour qu'elle soit envoyée, c'est
déjà bien, non?
jps

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

Je voudrais pouvoir faxer une feuille excel de facon automatique.
j'ai créer cette macro :
Sub Macro1()
'
' Macro1 Macro
'
Application.ActivePrinter = "Brother PC-FAX sur Ne03:"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


SendKeys "5"

End Sub

Le sendkey permet de taper le numeros de fax.
Mon probleme est que la fenetre du fax s'affiche, mais la fonction
sendkeys
ne marche pas.
La macro s'arrette et reprend apres avoir fermer la fenetre du fax, et le
chiffre 5 apparait aprés (mais trops tard).
j'ai besoin dun peut d'aide, merci






Avatar
RCR
Hello,
Maleureusement, VBA n'est pas VB, à partire du moment ou excel pert le
"Focus" l'appli à l'intérieur le pert également, c'est aussi certainement
valable pour Sendkey, en plus Sendkey as un temp de réaction ... comment
prévoire que PC-FAX a bien le focus ... ou encors qu'il c'est bien ouvert.
moi je checherait plutôt du côté d'un activX ou autour de la doc du drivers
de brother.

A+
Raphaël.

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

Je voudrais pouvoir faxer une feuille excel de facon automatique.
j'ai créer cette macro :
Sub Macro1()
'
' Macro1 Macro
'
Application.ActivePrinter = "Brother PC-FAX sur Ne03:"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


SendKeys "5"

End Sub

Le sendkey permet de taper le numeros de fax.
Mon probleme est que la fenetre du fax s'affiche, mais la fonction
sendkeys
ne marche pas.
La macro s'arrette et reprend apres avoir fermer la fenetre du fax, et le
chiffre 5 apparait aprés (mais trops tard).
j'ai besoin dun peut d'aide, merci