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