Discussion :

[munity]

Bonjour le phorum

j'essaie de mettre en place une macro pour envoyer en masse un fichier pdf par fax
j'ai trouvé cette macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Sub Text()
  'Les paramètres : ServName  DocName  Fax number    Nom Destinataire
MonFax = SendFax(Environ("computerName"), "C:\test.pdf", "0300000000", "Daniel")
End Sub
'----------------------------
 
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
 
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
 
'on error execution jumps to lable ErrSendFax
'On Error GoTo ErrSendFax
 
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
 
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
'Exit Function
'on error execution jumps here
'ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function

j'ai bien activé la référence
faxcom 1.0 Type Library

connecter mon PC à une imprimante Multi fonction avec fax
la ligne téléphonique est OK
si je teste un FAX directement par le télécopieur cela fonctionne
par contre si je le fais par macro
j'ai le message suivant à la ligne
FaxDoc.Send

la méthode 'send' de l'objet 'IFaxDoc' a échoué
je précise que même si je ne mets pas de document joint, j'ai la même problèmatique

une âme charitable en ces temps difficiles pourrait elle me donner un coup de main car j'avoue que je ne sais pas ou chercher ni d'ou vient le problème

merci d'avance

david

[Jean-Philippe André]

Bonjour,

l'envoi de fax automatisé, ce n'est pas trop dans les us et coutumes s de nos jours, mais on trouve de la littérature à ce sujet :
https://docs.microsoft.com/fr-fr/pre...-sending-a-fax
et
https://docs.microsoft.com/fr-fr/pre...dcasting-a-fax

Je n'ai testé aucun des deux codes, mais il est possible d'essayé de détecter le numéro de l'erreur (le cas de l'erreur Err.Number = -2147024864 est lié au fait que le document que tu souhaites faxé est déjà ouvert....)

[munity]

bonjour Jean Philippe
et merci pour ton retour

je sais que le FAX est plus qu'obsolète mais bon pas le choix car les adresses emails ne sont pas disponibles....

j'ai réussi à isoler le problème avec le code err.number
le chemin n'était pas valide.....

du coup la macro se déroule sans problème mais rien n'arrive
je pense qu'il faudrait un modem couplé au PC plutot qu'une imprimante multifonction car je ne suis pas certain que le PC communique avec le télécopieur (ou même que le télécopieur soit compatible en l'état)

merci encore Jean Philippe

par contre si quelqu'un pouvait me confimer que la solution est le modem branché sur le pc puis sur une prise téléphonique, cela me permettrait d'éliminer ou d'éviter la configuration aléatoire du pc ou télécopieur

merci d'avance

david