ritournelle
XLDnaute Nouveau
Bonjour,
J'aurais besoin d'aide pour modifier légèrement la macro suivante :
Je souhaiterais que dans l'envoi e-mail ne soit envoyé QUE la feuille active (et non le fichier au complet) en pièce jointe (et non en corps du message).
Merci par avance pour votre aide.
Bien cordialement.
J'aurais besoin d'aide pour modifier légèrement la macro suivante :
Code:
Sub EnvoiCondition()
Dim Adresse As String 'Les déclarations de variables au début
Dim Table As Range
Dim Valeur
Set Table = Sheets("Codes").Range("A2:D36") 'Définition de la plage de données
Valeur = Range("A4").Value 'Valeur à rechercher
If Valeur <> "" Then
On Error GoTo ErrH
Adresse = WorksheetFunction.VLookup(Valeur, Table, 3, False)
On Error GoTo 0
If Adresse <> "" Then
'Envoyer un mail
ThisWorkbook.SendMail Recipients:=Adresse
Else
'Envoyer un fax
ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
ActivePrinter:="DelFax sur Ne03:", Collate:=True
End If
End If
Exit Sub
ErrH:
MsgBox "La valeur " & Valeur & " n'existe pas dans la table."
End Sub
Je souhaiterais que dans l'envoi e-mail ne soit envoyé QUE la feuille active (et non le fichier au complet) en pièce jointe (et non en corps du message).
Merci par avance pour votre aide.
Bien cordialement.