Bonsoir,
je me permets de reposter :
Je souhaite envoyer une feuille par mail
mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de
la cellule B1.
je vous remercie
Didier
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
Daniel.j
bonsoir, Dim Chr As String 'déclare la variable Chr = Range("Essai!B1")'Feuille Essai et cellule B1 ChDrive "C" 'si C n'est pas le disque par défaut ChDir "C:ajeter" ActiveWorkbook.SaveAs Filename:=(Chr)
http://dj.joss.free.fr/fichier.htm
Daniel ===================== FAQ MPFE http://dj.joss.free.fr/faq.htm =====================
"Didier Novarin" a écrit dans le message de news:
Bonsoir, je me permets de reposter : Je souhaite envoyer une feuille par mail mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de la cellule B1. je vous remercie Didier
bonsoir,
Dim Chr As String 'déclare la variable
Chr = Range("Essai!B1")'Feuille Essai et cellule B1
ChDrive "C" 'si C n'est pas le disque par défaut
ChDir "C:ajeter"
ActiveWorkbook.SaveAs Filename:=(Chr)
http://dj.joss.free.fr/fichier.htm
Daniel
===================== FAQ MPFE
http://dj.joss.free.fr/faq.htm
=====================
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eTFMPg84FHA.3544@TK2MSFTNGP09.phx.gbl...
Bonsoir,
je me permets de reposter :
Je souhaite envoyer une feuille par mail
mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom
de
la cellule B1.
je vous remercie
Didier
bonsoir, Dim Chr As String 'déclare la variable Chr = Range("Essai!B1")'Feuille Essai et cellule B1 ChDrive "C" 'si C n'est pas le disque par défaut ChDir "C:ajeter" ActiveWorkbook.SaveAs Filename:=(Chr)
http://dj.joss.free.fr/fichier.htm
Daniel ===================== FAQ MPFE http://dj.joss.free.fr/faq.htm =====================
"Didier Novarin" a écrit dans le message de news:
Bonsoir, je me permets de reposter : Je souhaite envoyer une feuille par mail mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de la cellule B1. je vous remercie Didier
Bonjour Daniel et merci mais en fait il s'agit d'envoyer la feuille par mail car une fois que la feuille est copiée et envoyée par mail, celle-ci devient en classeur et se nomme "Classeur1", je souhaite donc qu'après la copie, le classeur prenne le nom de la cellule B1 Didier
"Daniel.j" a écrit dans le message de news:
bonsoir, Dim Chr As String 'déclare la variable Chr = Range("Essai!B1")'Feuille Essai et cellule B1 ChDrive "C" 'si C n'est pas le disque par défaut ChDir "C:ajeter" ActiveWorkbook.SaveAs Filename:=(Chr)
http://dj.joss.free.fr/fichier.htm
Daniel ===================== > FAQ MPFE http://dj.joss.free.fr/faq.htm ===================== >
"Didier Novarin" a écrit dans le message de news:
Bonsoir, je me permets de reposter : Je souhaite envoyer une feuille par mail mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de la cellule B1. je vous remercie Didier
Bonjour Daniel et merci
mais en fait il s'agit d'envoyer la feuille par mail
car une fois que la feuille est copiée et envoyée par mail, celle-ci devient
en classeur et se nomme "Classeur1", je souhaite donc qu'après la copie, le
classeur prenne le nom de la cellule B1
Didier
"Daniel.j" <nospam-dj@free.fr> a écrit dans le message de news:
eSO24k84FHA.1188@TK2MSFTNGP12.phx.gbl...
bonsoir,
Dim Chr As String 'déclare la variable
Chr = Range("Essai!B1")'Feuille Essai et cellule B1
ChDrive "C" 'si C n'est pas le disque par défaut
ChDir "C:ajeter"
ActiveWorkbook.SaveAs Filename:=(Chr)
http://dj.joss.free.fr/fichier.htm
Daniel
===================== > FAQ MPFE
http://dj.joss.free.fr/faq.htm
===================== >
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eTFMPg84FHA.3544@TK2MSFTNGP09.phx.gbl...
Bonsoir,
je me permets de reposter :
Je souhaite envoyer une feuille par mail
mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom
de
la cellule B1.
je vous remercie
Didier
Bonjour Daniel et merci mais en fait il s'agit d'envoyer la feuille par mail car une fois que la feuille est copiée et envoyée par mail, celle-ci devient en classeur et se nomme "Classeur1", je souhaite donc qu'après la copie, le classeur prenne le nom de la cellule B1 Didier
"Daniel.j" a écrit dans le message de news:
bonsoir, Dim Chr As String 'déclare la variable Chr = Range("Essai!B1")'Feuille Essai et cellule B1 ChDrive "C" 'si C n'est pas le disque par défaut ChDir "C:ajeter" ActiveWorkbook.SaveAs Filename:=(Chr)
http://dj.joss.free.fr/fichier.htm
Daniel ===================== > FAQ MPFE http://dj.joss.free.fr/faq.htm ===================== >
"Didier Novarin" a écrit dans le message de news:
Bonsoir, je me permets de reposter : Je souhaite envoyer une feuille par mail mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de la cellule B1. je vous remercie Didier
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Didier Novarin
Bonjour Jean-Luc Euh... Désolé, je ne comprends pas ! Merci pour ton aide Didier
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Bonjour Jean-Luc
Euh...
Désolé, je ne comprends pas !
Merci pour ton aide
Didier
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.3ccd7d5b7c57c052.40692@free.fr.ns...
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
JLuc
*Bonjour Didier Novarin*, Desole aussi, la fatigue du soir :-?
Bonjour Jean-Luc Euh... Désolé, je ne comprends pas ! Merci pour ton aide Didier
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour Didier Novarin*,
Desole aussi, la fatigue du soir
:-?
Bonjour Jean-Luc
Euh...
Désolé, je ne comprends pas !
Merci pour ton aide
Didier
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.3ccd7d5b7c57c052.40692@free.fr.ns...
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
LSteph
Bonsoir Didier, Donc pour nommer la feuille copiée avant de l'envoyer c'est bien cela? Commence ainsi:
Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Lafeuille") sh.Copy ActiveSheet.Name = [b1]
a+ 'lSteph "Didier Novarin" a écrit dans le message de news:
Bonsoir, je me permets de reposter : Je souhaite envoyer une feuille par mail mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de la cellule B1. je vous remercie Didier
Bonsoir Didier,
Donc pour nommer la feuille copiée avant de l'envoyer
c'est bien cela? Commence ainsi:
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Lafeuille")
sh.Copy
ActiveSheet.Name = [b1]
a+
'lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eTFMPg84FHA.3544@TK2MSFTNGP09.phx.gbl...
Bonsoir,
je me permets de reposter :
Je souhaite envoyer une feuille par mail
mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom
de
la cellule B1.
je vous remercie
Didier
Bonsoir Didier, Donc pour nommer la feuille copiée avant de l'envoyer c'est bien cela? Commence ainsi:
Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Lafeuille") sh.Copy ActiveSheet.Name = [b1]
a+ 'lSteph "Didier Novarin" a écrit dans le message de news:
Bonsoir, je me permets de reposter : Je souhaite envoyer une feuille par mail mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de la cellule B1. je vous remercie Didier
..et si c'est malgré ta demande initiale le classeur que tu veux renommer admettons que [b1] contienne toto tu l'enregistres ainsi: (toto.xls) '... Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Lafeuille") sh.Copy 'ActiveSheet.Name = [b1] ActiveWorkbook.saveas [b1]&".xls" '...
'lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir, je me permets de reposter : Je souhaite envoyer une feuille par mail mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de la cellule B1. je vous remercie Didier
..et si c'est malgré ta demande initiale
le classeur que tu veux renommer
admettons que [b1] contienne toto
tu l'enregistres ainsi: (toto.xls)
'...
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Lafeuille")
sh.Copy
'ActiveSheet.Name = [b1]
ActiveWorkbook.saveas [b1]&".xls"
'...
'lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eTFMPg84FHA.3544@TK2MSFTNGP09.phx.gbl...
Bonsoir,
je me permets de reposter :
Je souhaite envoyer une feuille par mail
mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom
de
la cellule B1.
je vous remercie
Didier
..et si c'est malgré ta demande initiale le classeur que tu veux renommer admettons que [b1] contienne toto tu l'enregistres ainsi: (toto.xls) '... Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Lafeuille") sh.Copy 'ActiveSheet.Name = [b1] ActiveWorkbook.saveas [b1]&".xls" '...
'lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir, je me permets de reposter : Je souhaite envoyer une feuille par mail mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de la cellule B1. je vous remercie Didier
Bonsoir Lsteph et encore merci Je teste demain et te tient au courant Didier
"LSteph" a écrit dans le message de news:
..et si c'est malgré ta demande initiale le classeur que tu veux renommer admettons que [b1] contienne toto tu l'enregistres ainsi: (toto.xls) '... Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Lafeuille") sh.Copy 'ActiveSheet.Name = [b1] ActiveWorkbook.saveas [b1]&".xls" '...
'lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir, je me permets de reposter : Je souhaite envoyer une feuille par mail mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de la cellule B1. je vous remercie Didier
Bonsoir Lsteph et encore merci
Je teste demain et te tient au courant
Didier
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
utnFR994FHA.1032@TK2MSFTNGP11.phx.gbl...
..et si c'est malgré ta demande initiale
le classeur que tu veux renommer
admettons que [b1] contienne toto
tu l'enregistres ainsi: (toto.xls)
'...
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Lafeuille")
sh.Copy
'ActiveSheet.Name = [b1]
ActiveWorkbook.saveas [b1]&".xls"
'...
'lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eTFMPg84FHA.3544@TK2MSFTNGP09.phx.gbl...
Bonsoir,
je me permets de reposter :
Je souhaite envoyer une feuille par mail
mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom
de
la cellule B1.
je vous remercie
Didier
Bonsoir Lsteph et encore merci Je teste demain et te tient au courant Didier
"LSteph" a écrit dans le message de news:
..et si c'est malgré ta demande initiale le classeur que tu veux renommer admettons que [b1] contienne toto tu l'enregistres ainsi: (toto.xls) '... Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Lafeuille") sh.Copy 'ActiveSheet.Name = [b1] ActiveWorkbook.saveas [b1]&".xls" '...
'lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir, je me permets de reposter : Je souhaite envoyer une feuille par mail mais qu'avant l'envoi, celle-ci qui deviendra un classeur, prenne le nom de la cellule B1. je vous remercie Didier
