Bonjour les amis du web,
Je n'ai pas pu terminer ma macro.
Je souhaite:
- créer une copie de la feuille active (dans un nouveau classeur),
- en donnant comme nom à cette copie le contenu de feuille active!A1,
- et en conservant à la feuille d'origine son nom d'origine dans son
classeur d'origine.
Pouvez-vous m'aider SVP?
Mille fois merci d'avance.
Bonjour les amis du web, Je n'ai pas pu terminer ma macro. Je souhaite: - créer une copie de la feuille active (dans un nouveau classeur), - en donnant comme nom à cette copie le contenu de feuille active!A1, - et en conservant à la feuille d'origine son nom d'origine dans son classeur d'origine. Pouvez-vous m'aider SVP? Mille fois merci d'avance.
lSteph
"ManBas" <nonospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
OOuJz6D0FHA.3904@TK2MSFTNGP15.phx.gbl...
Bonjour les amis du web,
Je n'ai pas pu terminer ma macro.
Je souhaite:
- créer une copie de la feuille active (dans un nouveau classeur),
- en donnant comme nom à cette copie le contenu de feuille active!A1,
- et en conservant à la feuille d'origine son nom d'origine dans son
classeur d'origine.
Pouvez-vous m'aider SVP?
Mille fois merci d'avance.
Bonjour les amis du web, Je n'ai pas pu terminer ma macro. Je souhaite: - créer une copie de la feuille active (dans un nouveau classeur), - en donnant comme nom à cette copie le contenu de feuille active!A1, - et en conservant à la feuille d'origine son nom d'origine dans son classeur d'origine. Pouvez-vous m'aider SVP? Mille fois merci d'avance.
michdenis
Bonjour Manbas,
'----------------------------- Sub CopierFeuilleActive() Dim A as String With activesheet A = .name .copy End with
With activesheet .name = A End with
with Activeworkbook .saveas activesheet.range("A1") .close 'si nécessaire End with
End Sub '-----------------------------
Salutations!
"ManBas" a écrit dans le message de news: Bonjour les amis du web, Je n'ai pas pu terminer ma macro. Je souhaite: - créer une copie de la feuille active (dans un nouveau classeur), - en donnant comme nom à cette copie le contenu de feuille active!A1, - et en conservant à la feuille d'origine son nom d'origine dans son classeur d'origine. Pouvez-vous m'aider SVP? Mille fois merci d'avance.
Bonjour Manbas,
'-----------------------------
Sub CopierFeuilleActive()
Dim A as String
With activesheet
A = .name
.copy
End with
With activesheet
.name = A
End with
with Activeworkbook
.saveas activesheet.range("A1")
.close 'si nécessaire
End with
End Sub
'-----------------------------
Salutations!
"ManBas" <nonospam-j.ragni@wanadoo.fr> a écrit dans le message de news: OOuJz6D0FHA.3904@TK2MSFTNGP15.phx.gbl...
Bonjour les amis du web,
Je n'ai pas pu terminer ma macro.
Je souhaite:
- créer une copie de la feuille active (dans un nouveau classeur),
- en donnant comme nom à cette copie le contenu de feuille active!A1,
- et en conservant à la feuille d'origine son nom d'origine dans son
classeur d'origine.
Pouvez-vous m'aider SVP?
Mille fois merci d'avance.
'----------------------------- Sub CopierFeuilleActive() Dim A as String With activesheet A = .name .copy End with
With activesheet .name = A End with
with Activeworkbook .saveas activesheet.range("A1") .close 'si nécessaire End with
End Sub '-----------------------------
Salutations!
"ManBas" a écrit dans le message de news: Bonjour les amis du web, Je n'ai pas pu terminer ma macro. Je souhaite: - créer une copie de la feuille active (dans un nouveau classeur), - en donnant comme nom à cette copie le contenu de feuille active!A1, - et en conservant à la feuille d'origine son nom d'origine dans son classeur d'origine. Pouvez-vous m'aider SVP? Mille fois merci d'avance.
ManBas
Ehhh ouiiii !!!
Merci beaucoup!!!
"michdenis" a écrit dans le message de news:
Bonjour Manbas,
'----------------------------- Sub CopierFeuilleActive() Dim A as String With activesheet A = .name .copy End with
With activesheet .name = A End with
with Activeworkbook .saveas activesheet.range("A1") .close 'si nécessaire End with
End Sub '-----------------------------
Salutations!
"ManBas" a écrit dans le message de news:
Bonjour les amis du web, Je n'ai pas pu terminer ma macro. Je souhaite: - créer une copie de la feuille active (dans un nouveau classeur), - en donnant comme nom à cette copie le contenu de feuille active!A1, - et en conservant à la feuille d'origine son nom d'origine dans son classeur d'origine. Pouvez-vous m'aider SVP? Mille fois merci d'avance.
Ehhh ouiiii !!!
Merci beaucoup!!!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eMBTToE0FHA.3336@TK2MSFTNGP12.phx.gbl...
Bonjour Manbas,
'-----------------------------
Sub CopierFeuilleActive()
Dim A as String
With activesheet
A = .name
.copy
End with
With activesheet
.name = A
End with
with Activeworkbook
.saveas activesheet.range("A1")
.close 'si nécessaire
End with
End Sub
'-----------------------------
Salutations!
"ManBas" <nonospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
OOuJz6D0FHA.3904@TK2MSFTNGP15.phx.gbl...
Bonjour les amis du web,
Je n'ai pas pu terminer ma macro.
Je souhaite:
- créer une copie de la feuille active (dans un nouveau classeur),
- en donnant comme nom à cette copie le contenu de feuille active!A1,
- et en conservant à la feuille d'origine son nom d'origine dans son
classeur d'origine.
Pouvez-vous m'aider SVP?
Mille fois merci d'avance.
'----------------------------- Sub CopierFeuilleActive() Dim A as String With activesheet A = .name .copy End with
With activesheet .name = A End with
with Activeworkbook .saveas activesheet.range("A1") .close 'si nécessaire End with
End Sub '-----------------------------
Salutations!
"ManBas" a écrit dans le message de news:
Bonjour les amis du web, Je n'ai pas pu terminer ma macro. Je souhaite: - créer une copie de la feuille active (dans un nouveau classeur), - en donnant comme nom à cette copie le contenu de feuille active!A1, - et en conservant à la feuille d'origine son nom d'origine dans son classeur d'origine. Pouvez-vous m'aider SVP? Mille fois merci d'avance.
Bonjour les amis du web, Je n'ai pas pu terminer ma macro. Je souhaite: - créer une copie de la feuille active (dans un nouveau classeur), - en donnant comme nom à cette copie le contenu de feuille active!A1, - et en conservant à la feuille d'origine son nom d'origine dans son classeur d'origine. Pouvez-vous m'aider SVP? Mille fois merci d'avance.
... oui! pas activesheet.name, pardon [a1]
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OVEap%23D0FHA.720@TK2MSFTNGP15.phx.gbl...
lSteph
"ManBas" <nonospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
OOuJz6D0FHA.3904@TK2MSFTNGP15.phx.gbl...
Bonjour les amis du web,
Je n'ai pas pu terminer ma macro.
Je souhaite:
- créer une copie de la feuille active (dans un nouveau classeur),
- en donnant comme nom à cette copie le contenu de feuille active!A1,
- et en conservant à la feuille d'origine son nom d'origine dans son
classeur d'origine.
Pouvez-vous m'aider SVP?
Mille fois merci d'avance.
Bonjour les amis du web, Je n'ai pas pu terminer ma macro. Je souhaite: - créer une copie de la feuille active (dans un nouveau classeur), - en donnant comme nom à cette copie le contenu de feuille active!A1, - et en conservant à la feuille d'origine son nom d'origine dans son classeur d'origine. Pouvez-vous m'aider SVP? Mille fois merci d'avance.
