Discussion :

[revemane]

bonjour le forum

je rencontre un probleme pour envoyer un mail avec un fichier attaché
en effet je cree une copie d'un onglet et je l'enregistre dans le répertoire source de l'application ( qui se trouve sur un server) et jusque la tout va bien
ensuite lorsque la commande s'exécute pour envoyer la mail l'application se plante au niveau du " mon message.attachement......" avec une erreur 446

voici mon code
pouvez vous m'aider svp
merci d'avance

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
22
23
24
25
26
27
28
29
30
Sub EnvoisQuaker()
répertoireAppli = ActiveWorkbook.Path   
    Sheets("quaker").Copy       
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs répertoireAppli & "\huile.xls"
    ActiveWindow.Close
Dim MonOutlook As Object
  Dim monmessage As Object
  Dim corps As String
  'Dim monmessage As MailItem
  Set MonOutlook = CreateObject("Outlook.Application")
  Set monmessage = MonOutlook.CreateItem(0)
  monmessage.To = "stephane.fischbach@arcelormittal.com"
  monmessage.Subject = "Confirmation de commande huile QUAKEROL N 611 DAM pour Tandem 4 C"
    
    corps = corps & UserForm1.Label255 & Chr(13) & Chr(10)
    corps = corps & Chr(13) & Chr(10)
    corps = corps & Chr(13) & Chr(10)
    corps = corps & UserForm1.Label256 & Chr(13) & Chr(10)
    corps = corps & Chr(13) & Chr(10)
    corps = corps & UserForm1.Label257 & Chr(13) & Chr(10)
    corps = corps & Chr(13) & Chr(10)
    
    
    monmessage.Body = corps
    monmessage.Attachments.Add Source:=répertoireAppli & "\huile.xls"
    monmessage.Send
    Set MonOutlook = Nothing
    
End Sub

[fgiambelluco]

Bonjour
Essaye sans l'argument nommé Source:

Code :

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

 monmessage.Attachments.Add répertoireAppli & "\huile.xls"