xlDialogSendMail et ScrollArea

[Claudy]

Bonjour ,
dans une procédure j'envoie un tableau en recopiant uniquement les formats et valeurs, pour ne pas que le destinataire puisse modifier les données, j'utilise au départ la procédure 'Scrollarea' mais voilà, mon nouveau classeur à la réception ne possède plus cette limitation d'acces aux données!!! il a perdu sa 'scrollarea'!!!
Que faire?
J'utilise Application.Dialogs(xlDialogSendMail).Show (Avec Outlook) qui ne possède que trois arguments, impossible de trouver un argument pour le 'body' !
Y a t il une autre alternative,
Merci d'avance,
Claudy
ci desssous mon code:

Sub Envoyer_Par_Mail_LeBilan()
Sheets('Bilans').Copy

ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\zaza\\Bilan CPA.xls', FileFormat:= xlNormal

Range('A2:N42').Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.DrawingObjects.Delete
ActiveSheet.ScrollArea = 'A1:A2'
'celui ci disparait à la réception!!!
Application.Dialogs(xlDialogSendMail).Show ('claudy@zaza'), ('Bilan CPA et frais généraux du ' & Date)
'ici , un argument 'Body' ?? possible???
ActiveWorkbook.Save
ActiveWorkbook.Close

Kill 'C:\\Documents and Settings\\zaza\\Bilan CPA.xls'
End Sub

 

[MichelXld]

bonjour

as tu essayé d'enregistrer les modifications du classeur avant de l'envoyer ?

Sub Envoyer_Par_Mail_LeBilan()
Sheets('Bilans').Copy

ActiveWorkbook.SaveAs Filename:= _
'Cocuments and SettingszazaBilan CPA.xls', FileFormat:= xlNormal

Range('A2:N42').Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.DrawingObjects.Delete
ActiveSheet.ScrollArea = 'A1:A2'

ActiveWorkbook.Save

Application.Dialogs(xlDialogSendMail).Show ('claudy@zaza'), ('Bilan CPA et frais généraux du ' & Date)
ActiveWorkbook.Save
ActiveWorkbook.Close

Kill 'Cocuments and SettingszazaBilan CPA.xls'
End Sub


tu trouveras aussi de nombreux exemples en utilisant les moteur de recherche du forum , en utilisant par exemple le mot clé 'attachment'

https://www.excel-downloads.com/search/


bonne soiree
MichelXld