De: Jean Yves KNECHT <jyknecht@aol.com>
Objet: Re: EXCEL => FAX
Date : lundi 23 août 1999 19:24

Voila un bout de code que j'utilise pour le même type d'application.Il
fonctionne avec WINPHONE, mais on doit pouvoir le faire marcher avec les
autres gestionnaire de t&eacute;l&eacute;copie.Bien sûr il faudra l'adapter à ton
utilisation, je pense qu'il doit être suffisamment document&eacute;.Une partie de
ce code vient de ce forum et je profite de cette occasion pour en remercier
tous les acteurs.

Jean-yves Knecht
JYKNECHT@DALKIA.COM
JYKNECHT@AOL.COM

Sub telecopie()
'Choix de la cellule contenant le n° de fax
cellcontents = ActiveCell
'Contrôle de l'application fax
'Remplacer "WINPHONE" par le nom de l'application fax utilis&eacute;
    Appname = "WINPHONE"
'Indiquer le chemin de l'application
    AppFile = "C:\WINPHONE\winphone.exe"
    On Error Resume Next
    AppActivate (Appname)
    If Err <> 0 Then
    Err = 0
    MsgBox "Lancement de l'application de t&eacute;l&eacute;copie"
    TaskID = Shell(AppFile, 2)
    End If
    If Err <> 0 Then
    MsgBox "L'application fax n'est pas active"
    Exit Sub
    End If
Application.ActivePrinter = "CAPTURE FAX BVRP sur FAX:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
'Attente de 5 secondeS POUR ORDINATEUR LENT
    nvlleHeure = Hour(Now())
    nvlleMinute = Minute(Now())
    nvlleSeconde = Second(Now()) + 5
    waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde)
    Application.Wait waitTime
'Envoie t&eacute;l&eacute;copie
'Remplacer %x par le raccourcis correspondant pour le remplissage du n°
    Application.SendKeys "%x" & cellcontents, True  'Fax
'Remplacer %e par le raccourcis correspondant pour l'&eacute;mission du fax
    Application.SendKeys "%e", True  'Emettre
    'Attente de 5 secondeS POUR ORDINATEUR LENT
    nvlleHeure = Hour(Now())
    nvlleMinute = Minute(Now())
    nvlleSeconde = Second(Now()) + 5
    waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde)
    Application.Wait waitTime
    Application.SendKeys "{ENTER}", True   'Emettre
End Sub


Eric Beauvais <beauvais@micronet.fr> a &eacute;crit dans le message :
OFVC64W7#GA.87@cppssbbsa02.microsoft.com...
> Bonjour,
>
> Lors de  l'envoi d'une feuille Excel  par fax j'aimerai renseigner
automatiquement
> le nom et le num&eacute;ro de  fax du logiciel (Olifax ou Delrina).
>
> Pour être claire :
>
>  - Je charge une feuille Excel
>  - Appui sur un bouton
>  - R&eacute;cup&eacute;ration automatique du nom et du n° fax contenus dans deux
cellules
>  - Transmission auto du nom et num&eacute;ro au logiciel de fax
>  - Envoi du fax
>
> Si quelqu'un peux m'aider ?
>
> Merci d'avance
>
> Eric Beauvais
> beauvais@micronet.fr
>
>

 