Macro pour l'envoi d'un fax

[ritournelle]

Bonjour,

Qui pourrait m'éclairer sur le code pour l'envoi d'un fax au résultat d'une recherche en V ?

Sub EnvoiCondition()

If Range("A4") = "" Then
   '
Else
   If WorksheetFunction.VLookup(Range("A4"), Sheets("Codes").Range("A2:D36"), 3, False) = "" Then
     Adresse = WorksheetFunction.VLookup(Range("A4"), Sheets("Codes").Range("A2:D36"), 4, False)
     ThisWorkbook.PrintOut ???:=Adresse
     Application.ActivePrinter = "DelFax sur Ne03:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "DelFax sur Ne03:", Collate:=True
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
   Else
      Dim Adresse As String
   Adresse = WorksheetFunction.VLookup(Range("A4"), _
         Worksheets("Codes").Range("A2:D36"), 3, False)
   ThisWorkbook.SendMail Recipients:=Adresse
   
 End Sub

Que mettre à la place des "???", l'équivalent de Recipients pour l'envoi de mails ?
Des erreurs dans mon script, où que ce soit ?

Merci d'avance pour votre aide et toutes vos remarques.
Bien cordialement.

 

[BERRACHED said]

Re : Macro pour l'envoi d'un fax

Salut,Ritournelle

Pour le Fax je connais ça aussi :

Faxcom 1.0 Type Library

'ServName name of your computer
'DocName document which you want to send, in your case it’s Report
'FaxNo Fax number where you want the fax to be delivered

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

Cordialement

 

[ritournelle]

Re : Macro pour l'envoi d'un fax

Bonjour Said et merci pour ta réponse.

Je vais étudier ton code de près et voir comment l'intégrer à ce que j'ai déjà.

Encore merci.
Bien cordialement.