Bonjour à tous,
Avec votre aide j'ai créé un code qui enregistre une feuille au format ".xlsm" et au format ".pdf".
Avec XP tous fonctionne bien, mais maintenant je veux le faire fonctionner sous Windows 7 et là ça coince au moment de l'enregistrement du "pdf", le fichier au format "xlsm" s'enregistre correctement.
Je ne comprends pas pourquoi d'où vient le souci.
Quelqu'un aurait-il la solution à ce problème ?
D'avance je vous remercie pour votre aide.
Voici le code :
Avec votre aide j'ai créé un code qui enregistre une feuille au format ".xlsm" et au format ".pdf".
Avec XP tous fonctionne bien, mais maintenant je veux le faire fonctionner sous Windows 7 et là ça coince au moment de l'enregistrement du "pdf", le fichier au format "xlsm" s'enregistre correctement.
Je ne comprends pas pourquoi d'où vient le souci.
Quelqu'un aurait-il la solution à ce problème ?
D'avance je vous remercie pour votre aide.
Voici le code :
Code:
Private Sub CommandButton1_Click()
'enregistre le fichier excel
ActiveWorkbook.SaveAs Filename:="E:\Mes Documents\Graphic Communication\Devis Clients\" & [C12].Value & " " & [F9].Value & ".xlsm"
'enregistre la lettre en .PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"E:\Mes documents\Graphic Communication\Devis Clients\" & [C12].Value & " " & [F9].Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'envoi la dernière version enregistrée.
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
' modifie l'adresse mail et le sujet avant l'envoi
With OutMail
.To = Sheets("Lettre").Range("F12")
.CC = ""
.BCC = ""
.Subject = "Devis n°" & " " & [C12].Value
.Body = "bonjour,"
.HTMLBody = "<HTML><HEAD></HEAD> " & vbCr & _
"<BODY bgColor=#ffffff>" & vbCr & _
"<DIV><FONT face=Arial size=3>Bonjour,</FONT></DIV>" & vbCr & _
"<DIV><FONT face=Arial size=3> </FONT></DIV>" & vbCr & _
"<br>" & vbCr & _
"<DIV><FONT face=Arial size=3>Veuillez trouver, en pièce jointe, l'offre de prix concernant votre demande.</FONT></DIV>" & vbCr & _
"<DIV><FONT face=Arial size=3></FONT></DIV>" & vbCr & _
"<DIV><FONT face=Arial size=3>Sincères Salutations.</FONT></DIV>" & vbCr & _
"<DIV><FONT face=Arial size=3> </FONT></DIV>" & vbCr & _
"<br>" & vbCr & _
"<blockquote><DIV><FONT face=Arial size=3>Christian GOURDON</FONT></DIV></blockquote>" & vbCr & _
"<img src=""E:\logo_signature.jpg"" /></BODY></HTML>"
'joint le classeur
'.Attachments.Add ActiveWorkbook.FullName
' joint le fichier ciblé par son chemin
.Attachments.Add ("E:\Mes documents\Graphic Communication\Devis Clients\" & [C12].Value & " " & [F9].Value & ".pdf")
' affiche le mail avant son envoi.
.Display
'envoi le mail sans affichage préalable
'.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
