Envoi onglet par mail
Bonjour le forum,
j'ai une macro pour envoyer un onglet par mail qui marche très bien, mais je voudrais la même chose en envoyant le fichier au format .xls et non .pdf...
Sub Envoi_Page_commande()
Dim appOutlook
Dim oMail
Dim sh As Worksheet
Dim Rep
Rep = MsgBox("Voulez-vous envoyer cet e-mail?", vbYesNo)
If Rep = vbNo Then
Exit Sub
Else
End If
Set sh = Sheets("VIERGE")
chemin = ThisWorkbook.Path & "\"
nomdufichier = chemin & "Tableau commande fournitures vierge" & " .pdf"
sh.Range("A1:D36").CurrentRegion.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nomdufichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Set appOutlook = CreateObject("Outlook.Application")
If Not (appOutlook Is Nothing) Then
Set oMail = appOutlook.createitem(olmailitem)
With oMail
.To = "XXX@XXX.fr"
.Cc = ""
.Subject = "Tableau commande fournitures vierge"
.Attachments.Add nomdufichier
.display 'metre cette ligne en commentaire pour éviter l'affichage du mail
'.send 'mettre cette ligne active pour l'envoi du mail sans qu'il soit affiché
End With
Set oMail = Nothing
Set appOutlook = Nothing
End If
Kill nomdufichier
End Sub
merci de votre aide
Bonjour,
je viens de voir .xls et ton fichier comporte des macro, il est au format xlsm
il faudrait enregistrer une version de ton fichier au format xls avant de l'envoyer
noter le chemin et le nom du fichier et mettre ces info dans la variable nomdufichier
pour créer le nouveau fichier cette ligne suffit
Sheets.Copy
puis enregistrer ce nouveau fichier au format .xls