Appel de procedure Fax

[Tonio]

Bonsoir le Forum

J'aurais deux questions

La 1°
Je cherche à savoir s'il est possible de faire appel à la procédure de fax Windows, comme on le fait pour Outlook, afin de pouvoir
L’envoyer directement depuis Excel.

La 2°
J’ai compiler ce bout de code et j'aimerais savoir c'il est possible di rajouter un lien hypertexte a chaque enregistrement.

Public Datee As String
Public Numero As String
Public Fichier As String

Private Sub CommandButton1_Click()
Dim nombre As String
Dim l As Integer

Sheets(3).Activate
memoire = Sheets('Feuil2').Range('F21')
memoire = memoire + 1
Sheets('Feuil2').Range('F21') = memoire

Application.ScreenUpdating = False
Fichier = Sheets('Feuil2').Range('K11').Value
Numero = Sheets('Feuil2').Range('F21').Value

l = Sheets('Archives').Range('C60000').End(xlUp).Row + 1

With Sheets('Archives')
.Range('C' & l).Value = Date
.Range('D' & l).Value = Sheets('Feuil2').Range('K11').Value
.Range('E' & l).Value = Sheets('Feuil2').Range('L52').Value
.Range('F' & l).Value = Sheets('Feuil2').Range('F21').Value

End With
Sheets('Feuil2').Copy
Nom = Fichier & '_' & Numero
monrep = 'C:\\Documents and Settings\\Tonio\\Mes documents\\Essais Sauvegarde\\'
Sheets('Feuil2').SaveAs (monrep & Nom & '.xls')

ActiveWorkbook.Close (monrep & Nom & '.xls')

Application.ScreenUpdating = True
MsgBox 'Votre Commande a bien ete archivée !!'
End Sub

Merci pour votre aide

A+ Tonio..........

 

[Tonio]

Bonsoir le Forum


Alors personne n'a une petite idée!!

Merci d'avance

A+ Tonio.........

 

[Tonio]

Bonsoir le Forum

S'il vous plait pouvez-vous m'aider.
Avez-vous une idée.

Merci D'avance.

A+ Tonio...........