Comment envoyer une pièce jointe au format xls au

[ed]

Bonjour,

A chaque fois que j'essaie de joindre un fichier excel à partir d'excel, le format est en tmp au lieu de xls.
Comment puis-je configurer ce format ?

En vous remerciant d'avance pour vos idées lumineuses !

 

[Staple1600]

Re : Comment envoyer une pièce jointe au format xls au

Bonsoir à tous


Une méthode

'SOURCE: Send Emails From Excel. VBA Code to Send Emails from Excel

Sub Send1Sheet_ActiveWorkbook()
'Create a new Workbook Containing 1 Sheet (left most) _
'and sends as attachment.
 
    ThisWorkbook.Sheets(1).Copy
    
    With ActiveWorkbook
         .SendMail Recipients:="dump@ozgrid.com", _
          Subject:="Try Me " & Format(Date, "dd/mmm/yy")
         .Close SaveChanges:=False
    End With
    
End Sub

Autre méthode

Sub RouteActiveWorkbook()
    With ActiveWorkbook
       .HasRoutingSlip = True
           With .RoutingSlip
                .Delivery = xlOneAfterAnother
                .Recipients = Array("dump@ozgrid.com", _
                    "ok@ozgrid.com", "zach@ozgrid.com")
                .Subject = "Check This Out"
                .Message = "Please fill in the Workbook and send it on."
          End With
        .Route
    End With
End Sub