Bonjour. Je n'ai pas essayé, mais si tu veux effacer les macros de ta feuille, il faut remplacer "thisworkbook" par le om de ta feuille. D'autre part, mets la macro dans un module, elle évitera de se suicider. Daniel
Bonjour et merci de ta réponse
JU'ai quelques petites infos à te demander
Si j'utilise ce bout -ci xxxxxxxxxxxxxxxxxxxxxxx Sub EffaceCodeThisWbk() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With End Sub xxxxxxxxxxxxxxxxxxxxxxxxxxx
Et que je remplace This Workbook par le nom de mon fichier il se plante
MAis surtout je voudrais savoir un truc Si dans une macro je lui demande de supprimer les macros Comment terminera-t-il son travail puisqu'il se suicide avant la fin?
As-tu déjà fait un truc dans le genre?
A bientôt
Rex
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news: %
Bonsoir, Tu sauves la feuille et supprime le code de la feuille en utilisant ça : http://frederic.sigonneau.free.fr/code/VBE/SupprimerDuCode.txt -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "rthompson" a écrit dans le message de news:
Bonjour
Bien vu
C'est ce qui se passe quand on est pressé
MAIS
Je dois uniquement sauver la feuille PO sans les macro etc Crois-tu que je dois passer par un copy paste Ou as-tu une astuce?
Donc seule l'info qui se trouve sur la feuille PO doit se retrouver dans un fichier
Merci
A bientôt
Rex
"Daniel.C" a écrit dans le message de news:
Bonjour. Peut-être ":" de trop ? Essaie :
Sub SavePO() ActiveWorkbook.SaveAs Filename:="C:AAA-Rex DataPaperviewgabors files for macrosNovember2008" & Sheets("PO").Range("J2") & ".xls", FileFormat:=xlNormal End Sub
Cordialement. Daniel
OUPS
J'ai oublie de mettre ou j'en suis
Ceci cause une erreur
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Sub SavePO() ActiveWorkbook.SaveAs Filename:="C::AAA-Rex DataPaperviewgabors files for macrosNovember2008" & Sheets("PO").Range("J2") & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse End Sub xxxxxxxxxxxxxxxxxxxxxxxx
Merci
"rthompson" a écrit dans le message de news: %
Bonsoir à toutes et tous
Il y a quelques temps un message de ce genre est passé (ici ou ailleurs)
Et je ne le retrouve plus
Donc je repose cette question
Comment sauver la feuille active seulement dans un nouveau fichier
La feuille active est PO et devrait être sauvée dans un sous repertoire du répertoie actuel avec comme nom de fichier le contenu de la cellule J2
Merci et à bientôt
Rex
Désolé pour la réaction tardive
Ton message est passé innaperçu
Je vais essayer
A bientôt
Rex
ET SURTOUT MERCI
"Daniel.C" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
eFaENzcPJHA.4008@TK2MSFTNGP02.phx.gbl...
Bonjour.
Je n'ai pas essayé, mais si tu veux effacer les macros de ta feuille, il
faut remplacer "thisworkbook" par le om de ta feuille.
D'autre part, mets la macro dans un module, elle évitera de se suicider.
Daniel
Bonjour et merci de ta réponse
JU'ai quelques petites infos à te demander
Si j'utilise ce bout -ci
xxxxxxxxxxxxxxxxxxxxxxx
Sub EffaceCodeThisWbk()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxx
Et que je remplace This Workbook par le nom de mon fichier il se plante
MAis surtout je voudrais savoir un truc
Si dans une macro je lui demande de supprimer les macros
Comment terminera-t-il son travail puisqu'il se suicide avant la fin?
As-tu déjà fait un truc dans le genre?
A bientôt
Rex
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %23swCI0RPJHA.1960@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Tu sauves la feuille et supprime le code de la feuille en utilisant ça :
http://frederic.sigonneau.free.fr/code/VBE/SupprimerDuCode.txt
-- Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message
de news:uyMzsjQPJHA.4760@TK2MSFTNGP02.phx.gbl...
Bonjour
Bien vu
C'est ce qui se passe quand on est pressé
MAIS
Je dois uniquement sauver la feuille PO sans les macro etc
Crois-tu que je dois passer par un copy paste
Ou as-tu une astuce?
Donc seule l'info qui se trouve sur la feuille PO doit se retrouver
dans un fichier
Merci
A bientôt
Rex
"Daniel.C" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
ugAM2ZQPJHA.4480@TK2MSFTNGP05.phx.gbl...
Bonjour.
Peut-être ":" de trop ?
Essaie :
Sub SavePO()
ActiveWorkbook.SaveAs Filename:="C:AAA-Rex DataPaperviewgabors
files for macrosNovember2008" & Sheets("PO").Range("J2") & ".xls",
FileFormat:=xlNormal
End Sub
Cordialement.
Daniel
OUPS
J'ai oublie de mettre ou j'en suis
Ceci cause une erreur
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub SavePO()
ActiveWorkbook.SaveAs Filename:="C::AAA-Rex DataPaperviewgabors
files for macrosNovember2008" & Sheets("PO").Range("J2") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
xxxxxxxxxxxxxxxxxxxxxxxx
Merci
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le
message de news: %237mCeSQPJHA.764@TK2MSFTNGP05.phx.gbl...
Bonsoir à toutes et tous
Il y a quelques temps un message de ce genre est passé (ici ou
ailleurs)
Et je ne le retrouve plus
Donc je repose cette question
Comment sauver la feuille active seulement dans un nouveau fichier
La feuille active est PO et devrait être sauvée dans un sous
repertoire du répertoie actuel
avec comme nom de fichier le contenu de la cellule J2
Bonjour. Je n'ai pas essayé, mais si tu veux effacer les macros de ta feuille, il faut remplacer "thisworkbook" par le om de ta feuille. D'autre part, mets la macro dans un module, elle évitera de se suicider. Daniel
Bonjour et merci de ta réponse
JU'ai quelques petites infos à te demander
Si j'utilise ce bout -ci xxxxxxxxxxxxxxxxxxxxxxx Sub EffaceCodeThisWbk() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With End Sub xxxxxxxxxxxxxxxxxxxxxxxxxxx
Et que je remplace This Workbook par le nom de mon fichier il se plante
MAis surtout je voudrais savoir un truc Si dans une macro je lui demande de supprimer les macros Comment terminera-t-il son travail puisqu'il se suicide avant la fin?
As-tu déjà fait un truc dans le genre?
A bientôt
Rex
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news: %
Bonsoir, Tu sauves la feuille et supprime le code de la feuille en utilisant ça : http://frederic.sigonneau.free.fr/code/VBE/SupprimerDuCode.txt -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "rthompson" a écrit dans le message de news:
Bonjour
Bien vu
C'est ce qui se passe quand on est pressé
MAIS
Je dois uniquement sauver la feuille PO sans les macro etc Crois-tu que je dois passer par un copy paste Ou as-tu une astuce?
Donc seule l'info qui se trouve sur la feuille PO doit se retrouver dans un fichier
Merci
A bientôt
Rex
"Daniel.C" a écrit dans le message de news:
Bonjour. Peut-être ":" de trop ? Essaie :
Sub SavePO() ActiveWorkbook.SaveAs Filename:="C:AAA-Rex DataPaperviewgabors files for macrosNovember2008" & Sheets("PO").Range("J2") & ".xls", FileFormat:=xlNormal End Sub
Cordialement. Daniel
OUPS
J'ai oublie de mettre ou j'en suis
Ceci cause une erreur
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Sub SavePO() ActiveWorkbook.SaveAs Filename:="C::AAA-Rex DataPaperviewgabors files for macrosNovember2008" & Sheets("PO").Range("J2") & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse End Sub xxxxxxxxxxxxxxxxxxxxxxxx
Merci
"rthompson" a écrit dans le message de news: %
Bonsoir à toutes et tous
Il y a quelques temps un message de ce genre est passé (ici ou ailleurs)
Et je ne le retrouve plus
Donc je repose cette question
Comment sauver la feuille active seulement dans un nouveau fichier
La feuille active est PO et devrait être sauvée dans un sous repertoire du répertoie actuel avec comme nom de fichier le contenu de la cellule J2
