Bonjour,
Je tente d'envoyer un mail avec une copie d'une feuille d'un classeur.
Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
nomfichier = "Honoraire UBS " & Date & ".xls"
            Excel.Workbooks.Open ("c:\" & nomfichier)
            Worksheets("UBS").Copy After:=Workbooks(nomfichier).Sheets("Feuil1")
            pour = InputBox("Destinataire", , "xxx@unil.ch")
            sujet_mail = InputBox("Sujet", , "Honoraire xxx" & Date)
            Workbooks(nomfichier).SendMail _
            Recipients:=pour, _
            Subject:=sujet_mail
            Workbooks(nomfichier).Close SaveChanges:=True
            Application.DisplayAlerts = False
            Kill "c:\" & nomfichier
            Application.DisplayAlerts = True
malheureusement il se plante au niveau de la 2ème ligne pourquoi?

D'avance merci pour votre aide