Possible un enregistrement auto suivant cellule ??
3 réponses
juju
bonjours a tous
jespere trouver ici reponse a ma question
voila :
soit un classeur contenant plusieurs feuilles
ses feuilles son lier entre elles par plein de formule
ma question est la suivante :
estil possible de creer une macro pour que chaque feuille s'enregistre en
temps que classeur independant ( c'est a dire qu'il ny a plus de liens dans
chaque classeur(ancienne feuille du classeur d'origine), comme un collage
special " coller la valeur"")
de plus ses classeurs fraichement creer s'enregistrerais avec comme nom le
contenu de differente cellule
exemple :
si dans le classeur nouvellement creer il ya :
cellule: contenude la cellule:
B8 PIPO
D9 058
F7 La glande
j'aimerais faire en sorte que la macro qui as generer ce classeur
l'enregistre sous le nom "pipo.058.La glande.xls"
voila est-ce que ce genre de macro est possible ?
je serais pas contre un coup de main car la je seche completement !!!
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
Michel HOLDERITH
Salut, vite fait...... donc pas teste.... a mettre dans une macro du fichier de depart : Sub Macro1() fichierdepart = ActiveWorkbook.Name For P = 1 To Sheets.Count Sheets(P).Select Workbooks.Add nouveaufichier = ActiveWorkbook.Name Windows(fichierdepart).Activate Sheets(P).Copy Before:=Workbooks(nouveaufichier).Sheets(1) Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: _ False, Transpose:úlse Application.CutCopyMode = False SAUVENOM = Range("B8").Value & "." & Range("D9").Value & "." & Range("F7").Value & ".xls"
ActiveWorkbook.SaveAs Filename:="C:My Documents" & SAUVENOM, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse _ , CreateBackup:úlse ActiveWindow.Close Next P End Sub @+ Michel.
"juju" wrote in message news:bp28rn$tle$
bonjours a tous jespere trouver ici reponse a ma question
voila : soit un classeur contenant plusieurs feuilles ses feuilles son lier entre elles par plein de formule
ma question est la suivante : estil possible de creer une macro pour que chaque feuille s'enregistre en temps que classeur independant ( c'est a dire qu'il ny a plus de liens dans
chaque classeur(ancienne feuille du classeur d'origine), comme un collage special " coller la valeur"") de plus ses classeurs fraichement creer s'enregistrerais avec comme nom le contenu de differente cellule
exemple : si dans le classeur nouvellement creer il ya : cellule: contenude la cellule: B8 PIPO D9 058 F7 La glande
j'aimerais faire en sorte que la macro qui as generer ce classeur l'enregistre sous le nom "pipo.058.La glande.xls"
voila est-ce que ce genre de macro est possible ?
je serais pas contre un coup de main car la je seche completement !!!
merci ;o)
Salut,
vite fait...... donc pas teste....
a mettre dans une macro du fichier de depart :
Sub Macro1()
fichierdepart = ActiveWorkbook.Name
For P = 1 To Sheets.Count
Sheets(P).Select
Workbooks.Add
nouveaufichier = ActiveWorkbook.Name
Windows(fichierdepart).Activate
Sheets(P).Copy Before:=Workbooks(nouveaufichier).Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: _
False, Transpose:úlse
Application.CutCopyMode = False
SAUVENOM = Range("B8").Value & "." & Range("D9").Value & "." &
Range("F7").Value & ".xls"
ActiveWorkbook.SaveAs Filename:="C:My Documents" & SAUVENOM,
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse _
, CreateBackup:úlse
ActiveWindow.Close
Next P
End Sub
@+
Michel.
"juju" <jcath@wanadoo.fr> wrote in message
news:bp28rn$tle$1@news-reader2.wanadoo.fr...
bonjours a tous
jespere trouver ici reponse a ma question
voila :
soit un classeur contenant plusieurs feuilles
ses feuilles son lier entre elles par plein de formule
ma question est la suivante :
estil possible de creer une macro pour que chaque feuille s'enregistre en
temps que classeur independant ( c'est a dire qu'il ny a plus de liens
dans
chaque classeur(ancienne feuille du classeur d'origine), comme un collage
special " coller la valeur"")
de plus ses classeurs fraichement creer s'enregistrerais avec comme nom le
contenu de differente cellule
exemple :
si dans le classeur nouvellement creer il ya :
cellule: contenude la cellule:
B8 PIPO
D9 058
F7 La glande
j'aimerais faire en sorte que la macro qui as generer ce classeur
l'enregistre sous le nom "pipo.058.La glande.xls"
voila est-ce que ce genre de macro est possible ?
je serais pas contre un coup de main car la je seche completement !!!
Salut, vite fait...... donc pas teste.... a mettre dans une macro du fichier de depart : Sub Macro1() fichierdepart = ActiveWorkbook.Name For P = 1 To Sheets.Count Sheets(P).Select Workbooks.Add nouveaufichier = ActiveWorkbook.Name Windows(fichierdepart).Activate Sheets(P).Copy Before:=Workbooks(nouveaufichier).Sheets(1) Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: _ False, Transpose:úlse Application.CutCopyMode = False SAUVENOM = Range("B8").Value & "." & Range("D9").Value & "." & Range("F7").Value & ".xls"
ActiveWorkbook.SaveAs Filename:="C:My Documents" & SAUVENOM, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse _ , CreateBackup:úlse ActiveWindow.Close Next P End Sub @+ Michel.
"juju" wrote in message news:bp28rn$tle$
bonjours a tous jespere trouver ici reponse a ma question
voila : soit un classeur contenant plusieurs feuilles ses feuilles son lier entre elles par plein de formule
ma question est la suivante : estil possible de creer une macro pour que chaque feuille s'enregistre en temps que classeur independant ( c'est a dire qu'il ny a plus de liens dans
chaque classeur(ancienne feuille du classeur d'origine), comme un collage special " coller la valeur"") de plus ses classeurs fraichement creer s'enregistrerais avec comme nom le contenu de differente cellule
exemple : si dans le classeur nouvellement creer il ya : cellule: contenude la cellule: B8 PIPO D9 058 F7 La glande
j'aimerais faire en sorte que la macro qui as generer ce classeur l'enregistre sous le nom "pipo.058.La glande.xls"
voila est-ce que ce genre de macro est possible ?
je serais pas contre un coup de main car la je seche completement !!!
merci ;o)
Michel HOLDERITH
Partit trop vite, Il faut faire attention a 2 choses : - il faut definir le repertoire de sauvegarde - j'ai une version anglaise donc si toi t'as une francaise il faut remplacer : Sheets(P).Copy Before:=Workbooks(nouveaufichier).Sheets(1) par Sheets(P).Copy Before:=Workbooks(nouveaufichier).Feuille(1) je crois.... a toi de tester... :) @+ Michel.
"juju" wrote in message news:bp28rn$tle$
bonjours a tous jespere trouver ici reponse a ma question
voila : soit un classeur contenant plusieurs feuilles ses feuilles son lier entre elles par plein de formule
ma question est la suivante : estil possible de creer une macro pour que chaque feuille s'enregistre en temps que classeur independant ( c'est a dire qu'il ny a plus de liens dans
chaque classeur(ancienne feuille du classeur d'origine), comme un collage special " coller la valeur"") de plus ses classeurs fraichement creer s'enregistrerais avec comme nom le contenu de differente cellule
exemple : si dans le classeur nouvellement creer il ya : cellule: contenude la cellule: B8 PIPO D9 058 F7 La glande
j'aimerais faire en sorte que la macro qui as generer ce classeur l'enregistre sous le nom "pipo.058.La glande.xls"
voila est-ce que ce genre de macro est possible ?
je serais pas contre un coup de main car la je seche completement !!!
merci ;o)
Partit trop vite,
Il faut faire attention a 2 choses :
- il faut definir le repertoire de sauvegarde
- j'ai une version anglaise donc si toi t'as une francaise il faut remplacer
:
Sheets(P).Copy Before:=Workbooks(nouveaufichier).Sheets(1) par
Sheets(P).Copy Before:=Workbooks(nouveaufichier).Feuille(1) je crois....
a toi de tester... :)
@+
Michel.
"juju" <jcath@wanadoo.fr> wrote in message
news:bp28rn$tle$1@news-reader2.wanadoo.fr...
bonjours a tous
jespere trouver ici reponse a ma question
voila :
soit un classeur contenant plusieurs feuilles
ses feuilles son lier entre elles par plein de formule
ma question est la suivante :
estil possible de creer une macro pour que chaque feuille s'enregistre en
temps que classeur independant ( c'est a dire qu'il ny a plus de liens
dans
chaque classeur(ancienne feuille du classeur d'origine), comme un collage
special " coller la valeur"")
de plus ses classeurs fraichement creer s'enregistrerais avec comme nom le
contenu de differente cellule
exemple :
si dans le classeur nouvellement creer il ya :
cellule: contenude la cellule:
B8 PIPO
D9 058
F7 La glande
j'aimerais faire en sorte que la macro qui as generer ce classeur
l'enregistre sous le nom "pipo.058.La glande.xls"
voila est-ce que ce genre de macro est possible ?
je serais pas contre un coup de main car la je seche completement !!!
Partit trop vite, Il faut faire attention a 2 choses : - il faut definir le repertoire de sauvegarde - j'ai une version anglaise donc si toi t'as une francaise il faut remplacer : Sheets(P).Copy Before:=Workbooks(nouveaufichier).Sheets(1) par Sheets(P).Copy Before:=Workbooks(nouveaufichier).Feuille(1) je crois.... a toi de tester... :) @+ Michel.
"juju" wrote in message news:bp28rn$tle$
bonjours a tous jespere trouver ici reponse a ma question
voila : soit un classeur contenant plusieurs feuilles ses feuilles son lier entre elles par plein de formule
ma question est la suivante : estil possible de creer une macro pour que chaque feuille s'enregistre en temps que classeur independant ( c'est a dire qu'il ny a plus de liens dans
chaque classeur(ancienne feuille du classeur d'origine), comme un collage special " coller la valeur"") de plus ses classeurs fraichement creer s'enregistrerais avec comme nom le contenu de differente cellule
exemple : si dans le classeur nouvellement creer il ya : cellule: contenude la cellule: B8 PIPO D9 058 F7 La glande
j'aimerais faire en sorte que la macro qui as generer ce classeur l'enregistre sous le nom "pipo.058.La glande.xls"
voila est-ce que ce genre de macro est possible ?
je serais pas contre un coup de main car la je seche completement !!!
merci ;o)
Frédéric Sigonneau
Bonsoir,
- j'ai une version anglaise donc si toi t'as une francaise il faut remplacer : Sheets(P).Copy Before:=Workbooks(nouveaufichier).Sheets(1) par Sheets(P).Copy Before:=Workbooks(nouveaufichier).Feuille(1) je crois....
Non, non : Sheets(1) ne se traduit pas, Sheets est un mot du langage VBA. Ce temps-là (le temps des versions localisées du langage) n'a pas survécu à l'essai Excel 5/(95 ?). Seules certaines chaînes de caratères utilisées par défaut peuvent encore provoquer des erreurs 'inattendues' dans l'exécution de code entre des versions du logiciel sur des machines où les paramètres régionaux de langue sont différents. Un exemple fréquemment rencontré avec du code récupéré sur le net : la syntaxe Workbooks("Book1") d'un Excel anglophone provoque une erreur sur un Excel francophone, qui ne connait que Workbooks("Classeur1"). Juste mes deux centimes d'euro en passant :)
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
"juju" wrote in message news:bp28rn$tle$
bonjours a tous jespere trouver ici reponse a ma question
voila : soit un classeur contenant plusieurs feuilles ses feuilles son lier entre elles par plein de formule
ma question est la suivante : estil possible de creer une macro pour que chaque feuille s'enregistre en temps que classeur independant ( c'est a dire qu'il ny a plus de liens dans
chaque classeur(ancienne feuille du classeur d'origine), comme un collage special " coller la valeur"") de plus ses classeurs fraichement creer s'enregistrerais avec comme nom le contenu de differente cellule
exemple : si dans le classeur nouvellement creer il ya : cellule: contenude la cellule: B8 PIPO D9 058 F7 La glande
j'aimerais faire en sorte que la macro qui as generer ce classeur l'enregistre sous le nom "pipo.058.La glande.xls"
voila est-ce que ce genre de macro est possible ?
je serais pas contre un coup de main car la je seche completement !!!
merci ;o)
Bonsoir,
- j'ai une version anglaise donc si toi t'as une francaise il faut remplacer
:
Sheets(P).Copy Before:=Workbooks(nouveaufichier).Sheets(1) par
Sheets(P).Copy Before:=Workbooks(nouveaufichier).Feuille(1) je crois....
Non, non : Sheets(1) ne se traduit pas, Sheets est un mot du langage VBA. Ce
temps-là (le temps des versions localisées du langage) n'a pas survécu à l'essai
Excel 5/(95 ?). Seules certaines chaînes de caratères utilisées par défaut
peuvent encore provoquer des erreurs 'inattendues' dans l'exécution de code
entre des versions du logiciel sur des machines où les paramètres régionaux de
langue sont différents.
Un exemple fréquemment rencontré avec du code récupéré sur le net : la syntaxe
Workbooks("Book1") d'un Excel anglophone provoque une erreur sur un Excel
francophone, qui ne connait que Workbooks("Classeur1").
Juste mes deux centimes d'euro en passant :)
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
"juju" <jcath@wanadoo.fr> wrote in message
news:bp28rn$tle$1@news-reader2.wanadoo.fr...
bonjours a tous
jespere trouver ici reponse a ma question
voila :
soit un classeur contenant plusieurs feuilles
ses feuilles son lier entre elles par plein de formule
ma question est la suivante :
estil possible de creer une macro pour que chaque feuille s'enregistre en
temps que classeur independant ( c'est a dire qu'il ny a plus de liens
dans
chaque classeur(ancienne feuille du classeur d'origine), comme un collage
special " coller la valeur"")
de plus ses classeurs fraichement creer s'enregistrerais avec comme nom le
contenu de differente cellule
exemple :
si dans le classeur nouvellement creer il ya :
cellule: contenude la cellule:
B8 PIPO
D9 058
F7 La glande
j'aimerais faire en sorte que la macro qui as generer ce classeur
l'enregistre sous le nom "pipo.058.La glande.xls"
voila est-ce que ce genre de macro est possible ?
je serais pas contre un coup de main car la je seche completement !!!
- j'ai une version anglaise donc si toi t'as une francaise il faut remplacer : Sheets(P).Copy Before:=Workbooks(nouveaufichier).Sheets(1) par Sheets(P).Copy Before:=Workbooks(nouveaufichier).Feuille(1) je crois....
Non, non : Sheets(1) ne se traduit pas, Sheets est un mot du langage VBA. Ce temps-là (le temps des versions localisées du langage) n'a pas survécu à l'essai Excel 5/(95 ?). Seules certaines chaînes de caratères utilisées par défaut peuvent encore provoquer des erreurs 'inattendues' dans l'exécution de code entre des versions du logiciel sur des machines où les paramètres régionaux de langue sont différents. Un exemple fréquemment rencontré avec du code récupéré sur le net : la syntaxe Workbooks("Book1") d'un Excel anglophone provoque une erreur sur un Excel francophone, qui ne connait que Workbooks("Classeur1"). Juste mes deux centimes d'euro en passant :)
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
"juju" wrote in message news:bp28rn$tle$
bonjours a tous jespere trouver ici reponse a ma question
voila : soit un classeur contenant plusieurs feuilles ses feuilles son lier entre elles par plein de formule
ma question est la suivante : estil possible de creer une macro pour que chaque feuille s'enregistre en temps que classeur independant ( c'est a dire qu'il ny a plus de liens dans
chaque classeur(ancienne feuille du classeur d'origine), comme un collage special " coller la valeur"") de plus ses classeurs fraichement creer s'enregistrerais avec comme nom le contenu de differente cellule
exemple : si dans le classeur nouvellement creer il ya : cellule: contenude la cellule: B8 PIPO D9 058 F7 La glande
j'aimerais faire en sorte que la macro qui as generer ce classeur l'enregistre sous le nom "pipo.058.La glande.xls"
voila est-ce que ce genre de macro est possible ?
je serais pas contre un coup de main car la je seche completement !!!
