Johann RSW
XLDnaute Nouveau
Bonjour le Forum,
Voilà j'essaye d'automatiser l'envoi de fax avec le couple Excel 2002 CP3 et Delrinafax Pro 9.0.
J'arrive à imprimer mon document correctement sur mon imprimante Delrinafax.
Après dans l'application 'Delrinafax' je dois editer :
Le nom du destinataire ; {Tab} ; son n° de fax ; {tab} ; l'objet....... etc puis envoyer {Alt F n).
Mais malheureusment voici les problèmes rencontrés avec la méthode Sendkeys :
1) je parviens de façcon aléatoire à editer le nom du destinataire,
2) la tabulation ne semble pas être comprise car Sendkeys('TAB') s'écrit à chauqe fois dans ma procédure !!!!
(Mince mince mince et mince !!!!)
Voici ma procédure :
Sub Fax_Excel_Delrinafax()
Application.ActivePrinter = 'DelFax sur Ne06:'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
'DelFax sur Ne06:', Collate:=True
Application.WindowState = xlMinimized
AppActivate 'DelrinaFax Pro'
nvlleHeure = Hour(Now())
nvlleMinute = Minute(Now())
nvlleSeconde = Second(Now()) + 10
waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde)
Application.Wait waitTime
Application.SendKeys ('TOTO') 'Destinataire
Application.SendKeys ('TAB')
Application.SendKeys ('118 218') 'N° de fax
Application.SendKeys ('TAB')
Application.SendKeys ('RSW & Cie') 'Société
Application.SendKeys ('TAB')
Application.SendKeys ('Essai') 'Objet
Application.SendKeys ('TAB')
Application.SendKeys ('Bonjour vieux') 'corps du message
Application.SendKeys ('%fn') 'envoi du message
Application.WindowState = xlNormal
End Sub