envoie de donnée par mail via vba

Version imprimable

Bonjour,
Je tente d'envoyer un mail avec une copie d'une feuille d'un classeur.
Voici mon code:

Code:

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

22/08/2007, 10h54
Invité

Bonjour

Si ta date comporte des /, cela n'est pas admis comme nom de fichier, fait un replace des / par des -.

Essaye

Code:

nomfichier = "Honoraire UBS " & format(Date,"dd-mm-yyyy") & ".xls"

Je n'ai pas testé.

Starec
22/08/2007, 10h58
swissmade

Citation:

Envoyé par Starec

Bonjour

Si ta date comporte des /, cela n'est pas admis comme nom de fichier, fait un replace des / par des -.

Essaye

Code:

nomfichier = "Honoraire UBS " & format(Date,"dd-mm-yyyy") & ".xls"

Je n'ai pas testé.

Starec

salut

non le probleme ne viens pas du nom (j'ai essayé de mettre test.xls).
mais je crois que c'est parce que le fichier n'existe pas à la bas et il refuse de se créer.
Donc comment faire pour en créer un?
22/08/2007, 11h02
Invité

Re

Effectivement tu lui demandes d'ouvrir un fichier qui n'existe pas, car il est dans une variable.

Regarde du coté de la propriété Add du Workbook pour créer ton fichier.

N'empêche que pour ce que je t'ai dis, prête y attention.

Starec

Ok merci de ton aide ca march nikel maintenant avec 2 ou trois modiff de mon code.
Je donne la dernière version au cas ou d'autre en aurai besoin

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
nomhonoraire = ActiveWorkbook.Name
            nomfichier = "Honoraire COUTTS " & Date & ".xls"
            Workbooks.Add
            ActiveWorkbook.SaveAs "c:\" & nomfichier
            Application.DisplayAlerts = False
                Workbooks(nomfichier).Worksheets(1).Delete
                Workbooks(nomfichier).Worksheets(1).Delete
            Application.DisplayAlerts = True
            Workbooks(nomhonoraire).Worksheets("COUTTS").Copy After:=Workbooks(nomfichier).ActiveSheet
            Application.DisplayAlerts = False
                Workbooks(nomfichier).Worksheets(1).Delete
            Application.DisplayAlerts = True
            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:=False
            Application.DisplayAlerts = False
                Kill "c:\" & nomfichier
             Application.DisplayAlerts = True

Merci encore :king: