Je souhaite ajouter un raccourci pour envoyer une feuille d'un classeur par
mail. En enlevant la protection la feuille part sans aucun problème.
Seulement étant donné que les feuilles qui compose le classeur doivent être
protégé sinon c'est la cata, les liaisons sont effacé régulièrement (Ils
sont tous novice au boulot !!!). J'ai essayé avec la méthode décrite il y a
quelque jours sur le forum avec la macro suivante :
Sub mail()
ThisWorkbook.SendMail Recipients:="yojo@net.fr", Subject:="Here is the
workbook"
End Sub
Le problème c'est que cette formule envoi le classeur complet et aucune
liaison n'est à jour, resultat ce n'est pas bon. Alors je fait appel à vous,
car je sèche vraiment.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Papyty
Salut @ Tous, ELDER a écrit:
Bonjour à tous,
Je souhaite ajouter un raccourci pour envoyer une feuille d'un classeur par mail. En enlevant la protection la feuille part sans aucun problème. Seulement étant donné que les feuilles qui compose le classeur doivent être protégé sinon c'est la cata, les liaisons sont effacé régulièrement (Ils sont tous novice au boulot !!!). J'ai essayé avec la méthode décrite il y a quelque jours sur le forum avec la macro suivante :
Sub mail() ThisWorkbook.SendMail Recipients:="", Subject:="Here is the workbook" End Sub
Le problème c'est que cette formule envoi le classeur complet et aucune liaison n'est à jour, resultat ce n'est pas bon. Alors je fait appel à vous, car je sèche vraiment.
Merci d'avance.
Si j'ai tout compris pour les liaisons voila ce que je te propose. On fait un copier collage spéciale pour conserver les valeurs mises à jour dans une feuille temporaire ensuite de l'envoyer et de detruire la feuille et le classeur créer. Normalement pas besoin de déproteger la feuille, Cooool non??
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
Si ça te convient -- @+ Thierry
Salut @ Tous,
ELDER a écrit:
Bonjour à tous,
Je souhaite ajouter un raccourci pour envoyer une feuille d'un classeur par
mail. En enlevant la protection la feuille part sans aucun problème.
Seulement étant donné que les feuilles qui compose le classeur doivent être
protégé sinon c'est la cata, les liaisons sont effacé régulièrement (Ils
sont tous novice au boulot !!!). J'ai essayé avec la méthode décrite il y a
quelque jours sur le forum avec la macro suivante :
Sub mail()
ThisWorkbook.SendMail Recipients:="yojo@net.fr", Subject:="Here is the
workbook"
End Sub
Le problème c'est que cette formule envoi le classeur complet et aucune
liaison n'est à jour, resultat ce n'est pas bon. Alors je fait appel à vous,
car je sèche vraiment.
Merci d'avance.
Si j'ai tout compris pour les liaisons voila ce que je te propose.
On fait un copier collage spéciale pour conserver les valeurs mises à jour
dans une feuille temporaire ensuite de l'envoyer et de detruire la feuille
et le classeur créer.
Normalement pas besoin de déproteger la feuille, Cooool non??
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
Je souhaite ajouter un raccourci pour envoyer une feuille d'un classeur par mail. En enlevant la protection la feuille part sans aucun problème. Seulement étant donné que les feuilles qui compose le classeur doivent être protégé sinon c'est la cata, les liaisons sont effacé régulièrement (Ils sont tous novice au boulot !!!). J'ai essayé avec la méthode décrite il y a quelque jours sur le forum avec la macro suivante :
Sub mail() ThisWorkbook.SendMail Recipients:="", Subject:="Here is the workbook" End Sub
Le problème c'est que cette formule envoi le classeur complet et aucune liaison n'est à jour, resultat ce n'est pas bon. Alors je fait appel à vous, car je sèche vraiment.
Merci d'avance.
Si j'ai tout compris pour les liaisons voila ce que je te propose. On fait un copier collage spéciale pour conserver les valeurs mises à jour dans une feuille temporaire ensuite de l'envoyer et de detruire la feuille et le classeur créer. Normalement pas besoin de déproteger la feuille, Cooool non??
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
Si ça te convient -- @+ Thierry
ELDER
C'est exactement ça !!!
Merci, ( euh là je suis un peu radin, merci beaucoup ) je vais tester cette macro.
"Papyty" a écrit dans le message de news:
Salut @ Tous, ELDER a écrit:
Bonjour à tous,
Je souhaite ajouter un raccourci pour envoyer une feuille d'un classeur par
mail. En enlevant la protection la feuille part sans aucun problème. Seulement étant donné que les feuilles qui compose le classeur doivent être
protégé sinon c'est la cata, les liaisons sont effacé régulièrement (Ils sont tous novice au boulot !!!). J'ai essayé avec la méthode décrite il y a
quelque jours sur le forum avec la macro suivante :
Sub mail() ThisWorkbook.SendMail Recipients:="", Subject:="Here is the workbook" End Sub
Le problème c'est que cette formule envoi le classeur complet et aucune liaison n'est à jour, resultat ce n'est pas bon. Alors je fait appel à vous,
car je sèche vraiment.
Merci d'avance.
Si j'ai tout compris pour les liaisons voila ce que je te propose. On fait un copier collage spéciale pour conserver les valeurs mises à jour dans une feuille temporaire ensuite de l'envoyer et de detruire la feuille et le classeur créer. Normalement pas besoin de déproteger la feuille, Cooool non??
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
Si ça te convient -- @+ Thierry
C'est exactement ça !!!
Merci, ( euh là je suis un peu radin, merci beaucoup ) je vais tester cette
macro.
"Papyty" <papyty@yahoo.fr> a écrit dans le message de
news:1q3dzaglpajh7.p1ttl6hhqgsx.dlg@40tude.net...
Salut @ Tous,
ELDER a écrit:
Bonjour à tous,
Je souhaite ajouter un raccourci pour envoyer une feuille d'un classeur
par
mail. En enlevant la protection la feuille part sans aucun problème.
Seulement étant donné que les feuilles qui compose le classeur doivent
être
protégé sinon c'est la cata, les liaisons sont effacé régulièrement (Ils
sont tous novice au boulot !!!). J'ai essayé avec la méthode décrite il
y a
quelque jours sur le forum avec la macro suivante :
Sub mail()
ThisWorkbook.SendMail Recipients:="yojo@net.fr", Subject:="Here is the
workbook"
End Sub
Le problème c'est que cette formule envoi le classeur complet et aucune
liaison n'est à jour, resultat ce n'est pas bon. Alors je fait appel à
vous,
car je sèche vraiment.
Merci d'avance.
Si j'ai tout compris pour les liaisons voila ce que je te propose.
On fait un copier collage spéciale pour conserver les valeurs mises à jour
dans une feuille temporaire ensuite de l'envoyer et de detruire la feuille
et le classeur créer.
Normalement pas besoin de déproteger la feuille, Cooool non??
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
Merci, ( euh là je suis un peu radin, merci beaucoup ) je vais tester cette macro.
"Papyty" a écrit dans le message de news:
Salut @ Tous, ELDER a écrit:
Bonjour à tous,
Je souhaite ajouter un raccourci pour envoyer une feuille d'un classeur par
mail. En enlevant la protection la feuille part sans aucun problème. Seulement étant donné que les feuilles qui compose le classeur doivent être
protégé sinon c'est la cata, les liaisons sont effacé régulièrement (Ils sont tous novice au boulot !!!). J'ai essayé avec la méthode décrite il y a
quelque jours sur le forum avec la macro suivante :
Sub mail() ThisWorkbook.SendMail Recipients:="", Subject:="Here is the workbook" End Sub
Le problème c'est que cette formule envoi le classeur complet et aucune liaison n'est à jour, resultat ce n'est pas bon. Alors je fait appel à vous,
car je sèche vraiment.
Merci d'avance.
Si j'ai tout compris pour les liaisons voila ce que je te propose. On fait un copier collage spéciale pour conserver les valeurs mises à jour dans une feuille temporaire ensuite de l'envoyer et de detruire la feuille et le classeur créer. Normalement pas besoin de déproteger la feuille, Cooool non??
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
