Bonjour à tous,
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:úlse
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="", Subject:="Here is the"
Application.DisplayAlerts = False
ActiveWorkbook.Close
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
Bonjour à tous,
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:úlse
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="yojo@net.fr", Subject:="Here is the"
Application.DisplayAlerts = False
ActiveWorkbook.Close
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
Bonjour à tous,
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:úlse
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="", Subject:="Here is the"
Application.DisplayAlerts = False
ActiveWorkbook.Close
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
Salut @ Tous,
Essai de remplacer ActiveSheet.UsedRange.Copy par
ActiveSheet.Cells.Copy
Si ça ne vas pas revient
--
@+
Thierry
ELDER a écrit:Bonjour à tous,
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
interessantede Papyty ( que je remercie encore ! ) mais après réalisation de la
macro
etplusieurs essais pour modifier les paramètres je n'obtiens pas le
résultatrecherché. La formule énoncé après copy uniquement les valeurs en
enlevantla mise en page et les paramètres des cellules ( style 2 décimal et pas
50etc...)
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:úlse
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="", Subject:="Here is
the"
Application.DisplayAlerts = False
ActiveWorkbook.Close
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
Salut @ Tous,
Essai de remplacer ActiveSheet.UsedRange.Copy par
ActiveSheet.Cells.Copy
Si ça ne vas pas revient
--
@+
Thierry
ELDER a écrit:
Bonjour à tous,
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:úlse
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="yojo@net.fr", Subject:="Here is
the"
Application.DisplayAlerts = False
ActiveWorkbook.Close
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
Salut @ Tous,
Essai de remplacer ActiveSheet.UsedRange.Copy par
ActiveSheet.Cells.Copy
Si ça ne vas pas revient
--
@+
Thierry
ELDER a écrit:Bonjour à tous,
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
interessantede Papyty ( que je remercie encore ! ) mais après réalisation de la
macro
etplusieurs essais pour modifier les paramètres je n'obtiens pas le
résultatrecherché. La formule énoncé après copy uniquement les valeurs en
enlevantla mise en page et les paramètres des cellules ( style 2 décimal et pas
50etc...)
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:úlse
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="", 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 :
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 :
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 :
Salut @ Tous,
Essai de remplacer ActiveSheet.UsedRange.Copy par
ActiveSheet.Cells.Copy
Si ça ne vas pas revient
--
@+
Thierry
ELDER a écrit:Bonjour à tous,
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
interessantede Papyty ( que je remercie encore ! ) mais après réalisation de la
macro
etplusieurs essais pour modifier les paramètres je n'obtiens pas le
résultatrecherché. La formule énoncé après copy uniquement les valeurs en
enlevantla mise en page et les paramètres des cellules ( style 2 décimal et pas
50etc...)
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:úlse
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="", Subject:="Here is
the"
Application.DisplayAlerts = False
ActiveWorkbook.Close
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
Salut @ Tous,
Essai de remplacer ActiveSheet.UsedRange.Copy par
ActiveSheet.Cells.Copy
Si ça ne vas pas revient
--
@+
Thierry
ELDER a écrit:
Bonjour à tous,
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:úlse
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="yojo@net.fr", Subject:="Here is
the"
Application.DisplayAlerts = False
ActiveWorkbook.Close
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
Salut @ Tous,
Essai de remplacer ActiveSheet.UsedRange.Copy par
ActiveSheet.Cells.Copy
Si ça ne vas pas revient
--
@+
Thierry
ELDER a écrit:Bonjour à tous,
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
interessantede Papyty ( que je remercie encore ! ) mais après réalisation de la
macro
etplusieurs essais pour modifier les paramètres je n'obtiens pas le
résultatrecherché. La formule énoncé après copy uniquement les valeurs en
enlevantla mise en page et les paramètres des cellules ( style 2 décimal et pas
50etc...)
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:úlse
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="", Subject:="Here is
the"
Application.DisplayAlerts = False
ActiveWorkbook.Close
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
Salut @ Tous, ELDER a écrit:Bon j'ai fait la modification mais ce n'est pas encore ça. alors j'ai
prismon 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:="christelle.piochel@piochel.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
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
prismon 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
Mon nouvau problème c'est que ce fichier porte un nom du style classeur
6
ou classeur 7 etc...
Peut on ajouter une ligne à la macro qui nommerais le fichier en
utilisant
les données d'une cellule ????????????
Mon nouvau problème c'est que ce fichier porte un nom du style classeur
6
ou classeur 7 etc...
Peut on ajouter une ligne à la macro qui nommerais le fichier en
utilisant
les données d'une cellule ????????????
Mon nouvau problème c'est que ce fichier porte un nom du style classeur
6
ou classeur 7 etc...
Peut on ajouter une ligne à la macro qui nommerais le fichier en
utilisant
les données d'une cellule ????????????
Bonjour.
L'instruction Kill marche trés bien.
Bonjour.
L'instruction Kill marche trés bien.
Bonjour.
L'instruction Kill marche trés bien.
Salut @ Tous, ELDER a écrit:Bon j'ai fait la modification mais ce n'est pas encore ça. alors j'ai
prismon 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:="essai"
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:="yoy@yoyo.fr", _
Subject:="essai"
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
prismon 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:="essai"
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
Super Papyty mais de grâce efface ton message du serveur ( en utilisant
la
commande annuler du menu message ) sinon je risque d'être spammer !!!!
Super Papyty mais de grâce efface ton message du serveur ( en utilisant
la
commande annuler du menu message ) sinon je risque d'être spammer !!!!
Super Papyty mais de grâce efface ton message du serveur ( en utilisant
la
commande annuler du menu message ) sinon je risque d'être spammer !!!!
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 :
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 :
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 :