Discussion :

[swissmade]

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

[Invité]

Bonjour

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

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je n'ai pas testé.

Starec

[swissmade]

Bonjour

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

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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

[swissmade]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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