automatisation des svgs

bonjour juju,

voici un exemple, j'ai supposé que les informations pour la sauvegarde
des fichiers étaient tous au même endroit, et j'ai remplacé les points
contenu dans le nom "." par "_" puisque habituellement la valeur de la
chaîne situé à droite du premier point rencontré représente l'extension
d'un fichier.

Sub Macro1()
For Each feuille In Sheets
feuille.Select
feuille.Copy
'attention au retour intempestif sur la prochaine commande
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsAdministrateurMes documents" & _
[A1] & "_" & [B3] & "_" & [D5] & ".xls"
Next
End Sub

isabelle

bonjours tous le monde

voila je pose mon probleme :)

jais un classeur avec plusieur feuilles ses feuilles sont lier entre elle
par des formules

je cherche un moyens de sauvegarder automatiquement chaque feuille sous un
classeur unique dont le nom du classeur serais "pris" dans plusieurs cellule
de la dite feuille
et de plus pour finir chaque classeur generer ne contient aucune formule que
des valeurs

exemple dans une des feuilles du classeur d'origine:

cellule: contenu:
A1 Pipoland
B8 025
D58 tartufe

je voudrais une macro qui me fasse une sauvegarde de cette feuille sous un
classeur nommer Pipoland.025.tartufe.xls avec en plus aucune formule dans ce
classeur .

je sais pas si jais ete clair :)
mais merci d'avance de votre aide :)

j'oubliais que tu ne voulais que des valeurs dans ce nouveau classeur,
voici la correction.

Sub Macro1()
For Each feuille In Sheets
Set feuille = ActiveSheet
feuille.Select
a = [A1]
b = [B3]
c = [D5]
feuille.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsAdministrateurMes documents" & _
a & "_" & b & "_" & c & ".xls"
Next
End Sub

isabelle

bonjours tous le monde

voila je pose mon probleme :)

jais un classeur avec plusieur feuilles ses feuilles sont lier entre elle
par des formules

je cherche un moyens de sauvegarder automatiquement chaque feuille sous un
classeur unique dont le nom du classeur serais "pris" dans plusieurs cellule
de la dite feuille
et de plus pour finir chaque classeur generer ne contient aucune formule que
des valeurs

exemple dans une des feuilles du classeur d'origine:

cellule: contenu:
A1 Pipoland
B8 025
D58 tartufe

je voudrais une macro qui me fasse une sauvegarde de cette feuille sous un
classeur nommer Pipoland.025.tartufe.xls avec en plus aucune formule dans ce
classeur .

je sais pas si jais ete clair :)
mais merci d'avance de votre aide :)

merci de la rapdiditer de ta reponse mais je men sort pas !!

ci joint expemple de ce que je veut faire


"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3FB98B89.7AB9F7B3@videotron.ca...

j'oubliais que tu ne voulais que des valeurs dans ce nouveau classeur,
voici la correction.

Sub Macro1()
For Each feuille In Sheets
Set feuille = ActiveSheet
feuille.Select
a = [A1]
b = [B3]
c = [D5]
feuille.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsAdministrateurMes documents" & _
a & "_" & b & "_" & c & ".xls"
Next
End Sub

isabelle

bonjours tous le monde

voila je pose mon probleme :)

jais un classeur avec plusieur feuilles ses feuilles sont lier entre
elle

par des formules

je cherche un moyens de sauvegarder automatiquement chaque feuille sous
un

classeur unique dont le nom du classeur serais "pris" dans plusieurs
cellule

de la dite feuille
et de plus pour finir chaque classeur generer ne contient aucune formule
que

des valeurs

exemple dans une des feuilles du classeur d'origine:

cellule: contenu:
A1 Pipoland
B8 025
D58 tartufe

je voudrais une macro qui me fasse une sauvegarde de cette feuille sous
un

classeur nommer Pipoland.025.tartufe.xls avec en plus aucune formule
dans ce

classeur .

je sais pas si jais ete clair :)
mais merci d'avance de votre aide :)

Bonjour,
Il existe sur excelabo.net une proc (développée par un de
nos contributeurs émérites)
qui effectue des sauvevarges multiples et paramétrables
indépendantes de la Macro complémentaire de sauvegarde
automatique fournie par MS

@+

-----Message d'origine-----
merci de la rapdiditer de ta reponse mais je men sort
pas !!

ci joint expemple de ce que je veut faire


"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le
message de news:

3FB98B89.7AB9F7B3@videotron.ca...

j'oubliais que tu ne voulais que des valeurs dans ce
nouveau classeur,

voici la correction.

Sub Macro1()
For Each feuille In Sheets
Set feuille = ActiveSheet
feuille.Select
a = [A1]
b = [B3]
c = [D5]
feuille.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsAdministrateurMes
documents" & _

a & "_" & b & "_" & c & ".xls"
Next
End Sub

isabelle

bonjours tous le monde

voila je pose mon probleme :)

jais un classeur avec plusieur feuilles ses feuilles
sont lier entre

elle

par des formules

je cherche un moyens de sauvegarder automatiquement
chaque feuille sous

un

classeur unique dont le nom du classeur serais "pris"
dans plusieurs

cellule

de la dite feuille
et de plus pour finir chaque classeur generer ne
contient aucune formule

que

des valeurs

exemple dans une des feuilles du classeur d'origine:

cellule: contenu:
A1 Pipoland
B8 025
D58 tartufe

je voudrais une macro qui me fasse une sauvegarde de
cette feuille sous

un

classeur nommer Pipoland.025.tartufe.xls avec en plus
aucune formule

dans ce

classeur .

je sais pas si jais ete clair :)
mais merci d'avance de votre aide :)

.

Merci pour ce liens fort instructif vu mon niveau y a du taf en vue !:o)
!!!!!!
grace a isabelle j'entre apercoi un debut de soluce mais la macro lorsque je
la place sur un bouton dans la premiere feuille du classeur sa m'enregistre
bien un nouveau classeur fonction de la feuille d'origine mais les formules
sont toujours presente et la macro ne s'applique pas au autre feuilles du
classeur et recommence la manip sur la premiere feuille ce qui engendre une
erreur evidenment vu que le classeur generer existe deja

donc tjrs preneur d'un chti coup de pouce ! :)

"Modeste" <gee-dee-@discussions.microsoft.com> a écrit dans le message de
news: 026901c3ae7e$71f156e0$a001280a@phx.gbl...
Bonjour,
Il existe sur excelabo.net une proc (d?velopp?e par un de
nos contributeurs ?m?rites)
qui effectue des sauvevarges multiples et param?trables
ind?pendantes de la Macro compl?mentaire de sauvegarde
automatique fournie par MS

@+

-----Message d'origine-----
merci de la rapdiditer de ta reponse mais je men sort
pas !!

ci joint expemple de ce que je veut faire


"isabelle" <as.isabellevIE@videotron.ca> a ?crit dans le
message de news:

3FB98B89.7AB9F7B3@videotron.ca...

j'oubliais que tu ne voulais que des valeurs dans ce
nouveau classeur,

voici la correction.

Sub Macro1()
For Each feuille In Sheets
Set feuille = ActiveSheet
feuille.Select
a = [A1]
b = [B3]
c = [D5]
feuille.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsAdministrateurMes
documents" & _

a & "_" & b & "_" & c & ".xls"
Next
End Sub

isabelle

bonjours tous le monde

voila je pose mon probleme :)

jais un classeur avec plusieur feuilles ses feuilles
sont lier entre

elle

par des formules

je cherche un moyens de sauvegarder automatiquement
chaque feuille sous

un

classeur unique dont le nom du classeur serais "pris"
dans plusieurs

cellule

de la dite feuille
et de plus pour finir chaque classeur generer ne
contient aucune formule

que

des valeurs

exemple dans une des feuilles du classeur d'origine:

cellule: contenu:
A1 Pipoland
B8 025
D58 tartufe

je voudrais une macro qui me fasse une sauvegarde de
cette feuille sous

un

classeur nommer Pipoland.025.tartufe.xls avec en plus
aucune formule

dans ce

classeur .

je sais pas si jais ete clair :)
mais merci d'avance de votre aide :)

.

Bonsoir,

Voici qui devrait mieux te convenir :

Sub Test()
Dim f As Worksheet
For Each f In ActiveWorkbook.Worksheets
f.Copy
With ActiveSheet
.UsedRange.Formula = .UsedRange.Value
ActiveWorkbook.SaveAs Range("A1") & "." & Range("B8") & "." & Range("D58") & ".xls"
End With
Next f
End Sub


Isabelle avait probablement besoin d'un café;-))

Avec

Set feuille = ActiveSheet

à chaque passage dans la boucle, c'est la même feuille qui était traitée,
la feuille active !

Merci pour ce liens fort instructif vu mon niveau y a du taf en vue !:o)
!!!!!!
grace a isabelle j'entre apercoi un debut de soluce mais la macro lorsque je
la place sur un bouton dans la premiere feuille du classeur sa m'enregistre
bien un nouveau classeur fonction de la feuille d'origine mais les formules
sont toujours presente et la macro ne s'applique pas au autre feuilles du
classeur et recommence la manip sur la premiere feuille ce qui engendre une
erreur evidenment vu que le classeur generer existe deja

donc tjrs preneur d'un chti coup de pouce ! :)

"Modeste" <gee-dee-@discussions.microsoft.com> a écrit dans le message de
news: 026901c3ae7e$71f156e0$a001280a@phx.gbl...
Bonjour,
Il existe sur excelabo.net une proc (d?velopp?e par un de
nos contributeurs ?m?rites)
qui effectue des sauvevarges multiples et param?trables
ind?pendantes de la Macro compl?mentaire de sauvegarde
automatique fournie par MS

@+

-----Message d'origine-----
merci de la rapdiditer de ta reponse mais je men sort
pas !!

ci joint expemple de ce que je veut faire


"isabelle" <as.isabellevIE@videotron.ca> a ?crit dans le
message de news:

3FB98B89.7AB9F7B3@videotron.ca...

j'oubliais que tu ne voulais que des valeurs dans ce
nouveau classeur,

voici la correction.

Sub Macro1()
For Each feuille In Sheets
Set feuille = ActiveSheet
feuille.Select
a = [A1]
b = [B3]
c = [D5]
feuille.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsAdministrateurMes
documents" & _

a & "_" & b & "_" & c & ".xls"
Next
End Sub

isabelle

bonjours tous le monde

voila je pose mon probleme :)

jais un classeur avec plusieur feuilles ses feuilles
sont lier entre

elle

par des formules

je cherche un moyens de sauvegarder automatiquement
chaque feuille sous

un

classeur unique dont le nom du classeur serais "pris"
dans plusieurs

cellule

de la dite feuille
et de plus pour finir chaque classeur generer ne
contient aucune formule

que

des valeurs

exemple dans une des feuilles du classeur d'origine:

cellule: contenu:
A1 Pipoland
B8 025
D58 tartufe

je voudrais une macro qui me fasse une sauvegarde de
cette feuille sous

un

classeur nommer Pipoland.025.tartufe.xls avec en plus
aucune formule

dans ce

classeur .

je sais pas si jais ete clair :)
mais merci d'avance de votre aide :)

.

--
Cordialement,

Michel Gaboly
http://www.gaboly.com