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..........