J'ai posé une question il y a quelques jours concernant l'envoi d'une
feuille proteger par mail avec Outlook. J'ai obtenu une réponse interessante
de Papyty ( que je remercie encore ! ) mais après réalisation de la macro et
plusieurs essais pour modifier les paramètres je n'obtiens pas le résultat
recherché. La formule énoncé après copy uniquement les valeurs en enlevant
la mise en page et les paramètres des cellules ( style 2 décimal et pas 50
etc...)
Manuellement si je clique sur le petit carré gris situé entre A et 1 ( le
carré de sélection total ) et que je copie la feuille dans une feuille
vierge j'obtient le résultat recherché.
La question est : comment copier l'intégralité du presse papier dans la
macro ci dessous. Merci d'avance
Sub mail()
Application.ScreenUpdating = False
ActiveSheet.UsedRange.Copy
Sheets.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="yojo@net.fr", Subject:="Here is the"
Application.DisplayAlerts = False
ActiveWorkbook.Close
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
Bon j'ai fait la modification mais ce n'est pas encore ça. alors j'ai pris
mon courage a deux mains et j'ai utilisé l'enregistreur de macro. Après plusieurs heures d'essai j'ai enfin quelque chose qui fonctionnent a peu prêt. Voilà Thierry le fichier en question après les modifs :
Pour nomer le fichier avec la valeur de la cellule A2 des feuilles envoyées.
Sub mail() Application.ScreenUpdating = False ActiveSheet.Cells.Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs [A2] 'Le nom en A2 chFichier = ActiveWorkbook.FullName nFichier = ActiveWorkbook.Name ActiveWorkbook.SendMail Recipients:="", _ Subject:="Bilan de production" Application.DisplayAlerts = False ActiveWorkbook.Close Set fs = CreateObject("Scripting.FileSystemObject") fs.Deletefile chFichier Application.DisplayAlerts = True MsgBox " Le fichier " & nFichier & " a été transmis à la comptabilité" Range("D3").Select End Sub
Est ce que ça vas?
-- @+ Thierry
Salut @ Tous, ELDER a écrit:
Bon j'ai fait la modification mais ce n'est pas encore ça. alors j'ai
pris
mon courage a deux mains et j'ai utilisé l'enregistreur de macro. Après
plusieurs heures d'essai j'ai enfin quelque chose qui fonctionnent a peu
prêt. Voilà Thierry le fichier en question après les modifs :
Pour nomer le fichier avec la valeur de la cellule A2 des feuilles
envoyées.
Sub mail()
Application.ScreenUpdating = False
ActiveSheet.Cells.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs [A2] 'Le nom en A2
chFichier = ActiveWorkbook.FullName
nFichier = ActiveWorkbook.Name
ActiveWorkbook.SendMail Recipients:="remplacel@remplace.fr", _
Subject:="Bilan de production"
Application.DisplayAlerts = False
ActiveWorkbook.Close
Set fs = CreateObject("Scripting.FileSystemObject")
fs.Deletefile chFichier
Application.DisplayAlerts = True
MsgBox " Le fichier " & nFichier & " a été transmis à la comptabilité"
Range("D3").Select
End Sub
Bon j'ai fait la modification mais ce n'est pas encore ça. alors j'ai pris
mon courage a deux mains et j'ai utilisé l'enregistreur de macro. Après plusieurs heures d'essai j'ai enfin quelque chose qui fonctionnent a peu prêt. Voilà Thierry le fichier en question après les modifs :
Pour nomer le fichier avec la valeur de la cellule A2 des feuilles envoyées.
Sub mail() Application.ScreenUpdating = False ActiveSheet.Cells.Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs [A2] 'Le nom en A2 chFichier = ActiveWorkbook.FullName nFichier = ActiveWorkbook.Name ActiveWorkbook.SendMail Recipients:="", _ Subject:="Bilan de production" Application.DisplayAlerts = False ActiveWorkbook.Close Set fs = CreateObject("Scripting.FileSystemObject") fs.Deletefile chFichier Application.DisplayAlerts = True MsgBox " Le fichier " & nFichier & " a été transmis à la comptabilité" Range("D3").Select End Sub
