Claudy
XLDnaute Accro
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
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