Repetition d'enregistrer sous par macro

Daniel

20/10/2005 à 13:55

Repetition d'enregistrer sous par macroBonjour.
Peux-tu donner un exemple de la structure de tes données de ton classeur
"master" ?
Merci.
Daniel

"Serge Marolleau" a écrit dans le message de
news: BF7D43B8.12FA%

Bonjour,

Est-il possible a partir d'un classeur nommé master de faire des
enregistrer-sous par programmation selon le principe suivant :

En sachant que le master permet une visualisation chiffrée et graphique de
données contenues dans chaque ligne d'un classeur nommé source.
J'ai fait en sorte qu'en changeant le numéro de ligne des cellulles du
master (par rechercher remplacer), celui ci visualise graphiquement les
données d'une ligne du classeur sourcre. Il me faudrait faire 400
enregistrer sous puis 400 rechercher remplacer pour venir à bout de mon
travail.

Quelqu'un pourrait-il m'aider à écrire une macro se chargeant de le faire
automatiquement afin qu'au final il y ait autant de copies de master que de
lignes dans le fichier source ?

A partir du master ouvert
Début de la macro :

1)Rechercher remplacer dans le master :source$2 par source$3
Source$2 renvoie à un numéro de ligne du classeur source qui comporte
400 lignes...
2) enregistrer sous : avec comme nom de fichier la reference à une cellule
du master appellée : nom du fichier.

3) a partir de ce 2eme fichier, enregistrer sous et ainsi de suite de $2
jusqu'à $400...
Merci pour votre aide
serge

Serge Marolleau

20/10/2005 à 14:50

Ce message est au format MIME. Comme votre programme de lecture de courriers ne comprend pas
ce format, il se peut que tout ou une partie de ce message soit illisible.

--B_3212664614_499777
Content-type: text/plain; charset="ISO-8859-1"
Content-transfer-encoding: 8bit

Daniel

Le master est donc entièrement construiit en lien avec le fichier source
La page de données dans master répertorie les résultats sous forme de
tableau à partir de différents onglets du fichiers source,
Puis, le master permet de visualiser 3 pages de graphiques qui lui sont
liés.

Par exemple :
La reference de la cellulle A1 dans master est :
='iBookG4 HD:[source]1984'!$L$2 (³source² est le fichier, 1984 est
l¹onglet)

La reference de la cellulle A2 dans master est :
='iBookG4 HD:[source]1985'!$L$2
Etc...

Dans le fichier source, Je me suis arrangé pour que toutes les données qui
m¹intéressent par produit soient sur la même ligne. Ce qui fait qu¹en
changeant de ligne, on change de produit. Autrement dit, dans master, en
faisant un rechercher remplacer de $2 par $3, le master permet de visualiser
les données des lignes 3 dans chaque onglet du fichier source. Je l¹ai
vérifié, cela fonctionne manuellement parfaitement.

Et cela donne pour l¹exemple ci dessus après rechercher remplacer
La reference de la cellulle A1 dans master devient :
='iBookG4 HD:[source]1984'!$L$3 (³source² est le fichier, 1984 est
l¹onglet)

La reference de la cellulle A2 dans master devient :
='iBookG4 HD:[source]1985'!$L$3
....
Comme il y a 400 enregistrer sous à faire...
D¹ou ma question précédente.

J¹espère te renseigner suffisamment

Merci 1000 fois pour ton aide
Serge

Le 20/10/05 13:55, dans , « Daniel »
a écrit :

Repetition d'enregistrer sous par macroBonjour.
Peux-tu donner un exemple de la structure de tes données de ton classeur
"master" ?
Merci.
Daniel

"Serge Marolleau" a écrit dans le message de
news: BF7D43B8.12FA%

Bonjour,

Est-il possible a partir d'un classeur nommé master de faire des
enregistrer-sous par programmation selon le principe suivant :

En sachant que le master permet une visualisation chiffrée et graphique de
données contenues dans chaque ligne d'un classeur nommé source.
J'ai fait en sorte qu'en changeant le numéro de ligne des cellulles du
master (par rechercher remplacer), celui ci visualise graphiquement les
données d'une ligne du classeur sourcre. Il me faudrait faire 400
enregistrer sous puis 400 rechercher remplacer pour venir à bout de mon
travail.

Quelqu'un pourrait-il m'aider à écrire une macro se chargeant de le faire
automatiquement afin qu'au final il y ait autant de copies de master que de
lignes dans le fichier source ?

A partir du master ouvert
Début de la macro :

1)Rechercher remplacer dans le master :source$2 par source$3
Source$2 renvoie à un numéro de ligne du classeur source qui comporte
400 lignes...
2) enregistrer sous : avec comme nom de fichier la reference à une cellule
du master appellée : nom du fichier.

3) a partir de ce 2eme fichier, enregistrer sous et ainsi de suite de $2
jusqu'à $400...
Merci pour votre aide
serge

--B_3212664614_499777
Content-type: text/html; charset="US-ASCII"
Content-transfer-encoding: quoted-printable

<HTML>
<HEAD>
<TITLE>Re: Repetition d'enregistrer sous par macro</TITLE>
</HEAD>
<BODY>
Daniel 
 
Le master est donc entièrement construiit en lien avec  le fich ier source 
La page de données dans master répertorie les résultat s sous forme de tableau à partir de différents onglets du fich iers source, 
Puis, le master permet de visualiser 3 pages de graphiques qui lui sont li& eacute;s. 
 
Par exemple : 
La reference de la cellulle A1  dans master est : 
 ='iBookG4 HD:[source]1984'!$L$2       & nbsp;(“source” est le fichier, 1984 est l’onglet) 
 
La reference de la cellulle A2  dans master est : 
 ='iBookG4 HD:[source]1985'!$L$2       & nbsp; 
Etc... 
 
Dans le fichier source, Je me suis arrangé pour que toutes les donn& eacute;es qui m’intéressent par produit soient sur la mêm e ligne. Ce qui fait qu’en changeant de ligne, on change de produit. A utrement dit, dans master,  en faisant un rechercher remplacer de $2 pa r $3, le master permet de visualiser les données des lignes 3 dans ch aque onglet du fichier source. Je l’ai vérifié, cela fon ctionne manuellement parfaitement. 
 
Et cela donne pour l’exemple ci dessus après rechercher rempla cer 
La reference de la cellulle A1  dans master devient : 
 ='iBookG4 HD:[source]1984'!$L$3       ( “source” est le fichier, 1984 est l’onglet) 
 
La reference de la cellulle A2  dans master devient : 
 ='iBookG4 HD:[source]1985'!$L$3       & nbsp; 
.... 
Comme il y a 400 enregistrer sous à faire... 
D’ou ma question précédente. 
 
J’espère te renseigner suffisamment 
 
Merci 1000 fois pour ton aide 
Serge 
 
Le 20/10/05 13:55, dans , «?Dani el?» <> a écrit?: 
 
> Repetition d'enregistrer sous par macroBonjour. 
> Peux-tu donner un exemple de la structure de tes données de ton classeur 
> "master" ? 
> Merci. 
> Daniel 
> 
> 
> "Serge Marolleau" <> a &eac ute;crit dans le message de 
> news: BF7D43B8.12FA% 
> 
> 
> Bonjour, 
> 
> Est-il possible a partir d'un classeur nommé master de faire de s 
> enregistrer-sous par programmation selon le principe suivant : 
> 
> En sachant que le master permet une visualisation chiffrée et g raphique de 
> données contenues dans chaque ligne d'un classeur nommé source. 
> J'ai fait en sorte qu'en changeant le numéro de ligne des cellu lles du 
> master (par rechercher remplacer), celui ci visualise graphiquement le s 
> données d'une ligne du classeur sourcre. Il me faudrait faire 4 00 
> enregistrer sous puis 400 rechercher remplacer pour venir à bou t de mon 
> travail. 
> 
> Quelqu'un pourrait-il m'aider à écrire une macro se char geant de le faire 
> automatiquement afin qu'au final il y ait autant de copies de master q ue de 
> lignes dans le fichier source ? 
> 
> 
> A partir du master ouvert 
> Début de la macro : 
> 
> 1)Rechercher remplacer dans le master :source$2 par source$3 
>   Source$2 renvoie à un numéro de ligne du cla sseur source qui comporte 
> 400 lignes... 
> 2) enregistrer sous : avec comme nom de fichier la reference à une cellule 
> du master appellée : nom du fichier. 
> 
> 
> 3) a partir de ce 2eme fichier, enregistrer sous et ainsi de suite de $2 
> jusqu'à $400... 
> Merci pour votre aide 
> serge 
> 
> 

</BODY>
</HTML>

--B_3212664614_499777--

Ce message est au format MIME. Comme votre programme de lecture de courriers ne comprend pas
ce format, il se peut que tout ou une partie de ce message soit illisible.

--B_3212664614_499777
Content-type: text/plain; charset="ISO-8859-1"
Content-transfer-encoding: 8bit

Daniel

Le master est donc entièrement construiit en lien avec le fichier source
La page de données dans master répertorie les résultats sous forme de
tableau à partir de différents onglets du fichiers source,
Puis, le master permet de visualiser 3 pages de graphiques qui lui sont
liés.

Par exemple :
La reference de la cellulle A1 dans master est :
='iBookG4 HD:[source]1984'!$L$2 (³source² est le fichier, 1984 est
l¹onglet)

La reference de la cellulle A2 dans master est :
='iBookG4 HD:[source]1985'!$L$2
Etc...

Dans le fichier source, Je me suis arrangé pour que toutes les données qui
m¹intéressent par produit soient sur la même ligne. Ce qui fait qu¹en
changeant de ligne, on change de produit. Autrement dit, dans master, en
faisant un rechercher remplacer de $2 par $3, le master permet de visualiser
les données des lignes 3 dans chaque onglet du fichier source. Je l¹ai
vérifié, cela fonctionne manuellement parfaitement.

Et cela donne pour l¹exemple ci dessus après rechercher remplacer
La reference de la cellulle A1 dans master devient :
='iBookG4 HD:[source]1984'!$L$3 (³source² est le fichier, 1984 est
l¹onglet)

La reference de la cellulle A2 dans master devient :
='iBookG4 HD:[source]1985'!$L$3
....
Comme il y a 400 enregistrer sous à faire...
D¹ou ma question précédente.

J¹espère te renseigner suffisamment

Merci 1000 fois pour ton aide
Serge

Le 20/10/05 13:55, dans uOMQ40W1FHA.3756@tk2msftngp13.phx.gbl, « Daniel »
<dZZZcolardelle@free.fr> a écrit :

Repetition d'enregistrer sous par macroBonjour.
Peux-tu donner un exemple de la structure de tes données de ton classeur
"master" ?
Merci.
Daniel

"Serge Marolleau" <serge.marolleau@lesverts.fr> a écrit dans le message de
news: BF7D43B8.12FA%serge.marolleau@lesverts.fr...

Bonjour,

Est-il possible a partir d'un classeur nommé master de faire des
enregistrer-sous par programmation selon le principe suivant :

En sachant que le master permet une visualisation chiffrée et graphique de
données contenues dans chaque ligne d'un classeur nommé source.
J'ai fait en sorte qu'en changeant le numéro de ligne des cellulles du
master (par rechercher remplacer), celui ci visualise graphiquement les
données d'une ligne du classeur sourcre. Il me faudrait faire 400
enregistrer sous puis 400 rechercher remplacer pour venir à bout de mon
travail.

Quelqu'un pourrait-il m'aider à écrire une macro se chargeant de le faire
automatiquement afin qu'au final il y ait autant de copies de master que de
lignes dans le fichier source ?

A partir du master ouvert
Début de la macro :

1)Rechercher remplacer dans le master :source$2 par source$3
Source$2 renvoie à un numéro de ligne du classeur source qui comporte
400 lignes...
2) enregistrer sous : avec comme nom de fichier la reference à une cellule
du master appellée : nom du fichier.

3) a partir de ce 2eme fichier, enregistrer sous et ainsi de suite de $2
jusqu'à $400...
Merci pour votre aide
serge

--B_3212664614_499777
Content-type: text/html; charset="US-ASCII"
Content-transfer-encoding: quoted-printable

<HTML>
<HEAD>
<TITLE>Re: Repetition d'enregistrer sous par macro</TITLE>
</HEAD>
<BODY>
Daniel 
 
Le master est donc entièrement construiit en lien avec  le fich ier source 
La page de données dans master répertorie les résultat s sous forme de tableau à partir de différents onglets du fich iers source, 
Puis, le master permet de visualiser 3 pages de graphiques qui lui sont li& eacute;s. 
 
Par exemple : 
La reference de la cellulle A1  dans master est : 
 ='iBookG4 HD:[source]1984'!$L$2       & nbsp;(“source” est le fichier, 1984 est l’onglet) 
 
La reference de la cellulle A2  dans master est : 
 ='iBookG4 HD:[source]1985'!$L$2       & nbsp; 
Etc... 
 
Dans le fichier source, Je me suis arrangé pour que toutes les donn& eacute;es qui m’intéressent par produit soient sur la mêm e ligne. Ce qui fait qu’en changeant de ligne, on change de produit. A utrement dit, dans master,  en faisant un rechercher remplacer de $2 pa r $3, le master permet de visualiser les données des lignes 3 dans ch aque onglet du fichier source. Je l’ai vérifié, cela fon ctionne manuellement parfaitement. 
 
Et cela donne pour l’exemple ci dessus après rechercher rempla cer 
La reference de la cellulle A1  dans master devient : 
 ='iBookG4 HD:[source]1984'!$L$3       ( “source” est le fichier, 1984 est l’onglet) 
 
La reference de la cellulle A2  dans master devient : 
 ='iBookG4 HD:[source]1985'!$L$3       & nbsp; 
.... 
Comme il y a 400 enregistrer sous à faire... 
D’ou ma question précédente. 
 
J’espère te renseigner suffisamment 
 
Merci 1000 fois pour ton aide 
Serge 
 
Le 20/10/05 13:55, dans uOMQ40W1FHA.3756@tk2msftngp13.phx.gbl, «?Dani el?» <dZZZcolardelle@free.fr> a écrit?: 
 
> Repetition d'enregistrer sous par macroBonjour. 
> Peux-tu donner un exemple de la structure de tes données de ton classeur 
> "master" ? 
> Merci. 
> Daniel 
> 
> 
> "Serge Marolleau" <serge.marolleau@lesverts.fr> a &eac ute;crit dans le message de 
> news: BF7D43B8.12FA%serge.marolleau@lesverts.fr... 
> 
> 
> Bonjour, 
> 
> Est-il possible a partir d'un classeur nommé master de faire de s 
> enregistrer-sous par programmation selon le principe suivant : 
> 
> En sachant que le master permet une visualisation chiffrée et g raphique de 
> données contenues dans chaque ligne d'un classeur nommé source. 
> J'ai fait en sorte qu'en changeant le numéro de ligne des cellu lles du 
> master (par rechercher remplacer), celui ci visualise graphiquement le s 
> données d'une ligne du classeur sourcre. Il me faudrait faire 4 00 
> enregistrer sous puis 400 rechercher remplacer pour venir à bou t de mon 
> travail. 
> 
> Quelqu'un pourrait-il m'aider à écrire une macro se char geant de le faire 
> automatiquement afin qu'au final il y ait autant de copies de master q ue de 
> lignes dans le fichier source ? 
> 
> 
> A partir du master ouvert 
> Début de la macro : 
> 
> 1)Rechercher remplacer dans le master :source$2 par source$3 
>   Source$2 renvoie à un numéro de ligne du cla sseur source qui comporte 
> 400 lignes... 
> 2) enregistrer sous : avec comme nom de fichier la reference à une cellule 
> du master appellée : nom du fichier. 
> 
> 
> 3) a partir de ce 2eme fichier, enregistrer sous et ainsi de suite de $2 
> jusqu'à $400... 
> Merci pour votre aide 
> serge 
> 
> 

</BODY>
</HTML>

--B_3212664614_499777--

Vous avez filtré cet utilisateur ! Consultez son message

Ce message est au format MIME. Comme votre programme de lecture de courriers ne comprend pas
ce format, il se peut que tout ou une partie de ce message soit illisible.

--B_3212664614_499777
Content-type: text/plain; charset="ISO-8859-1"
Content-transfer-encoding: 8bit

Daniel

Le master est donc entièrement construiit en lien avec le fichier source
La page de données dans master répertorie les résultats sous forme de
tableau à partir de différents onglets du fichiers source,
Puis, le master permet de visualiser 3 pages de graphiques qui lui sont
liés.

Par exemple :
La reference de la cellulle A1 dans master est :
='iBookG4 HD:[source]1984'!$L$2 (³source² est le fichier, 1984 est
l¹onglet)

La reference de la cellulle A2 dans master est :
='iBookG4 HD:[source]1985'!$L$2
Etc...

Dans le fichier source, Je me suis arrangé pour que toutes les données qui
m¹intéressent par produit soient sur la même ligne. Ce qui fait qu¹en
changeant de ligne, on change de produit. Autrement dit, dans master, en
faisant un rechercher remplacer de $2 par $3, le master permet de visualiser
les données des lignes 3 dans chaque onglet du fichier source. Je l¹ai
vérifié, cela fonctionne manuellement parfaitement.

Et cela donne pour l¹exemple ci dessus après rechercher remplacer
La reference de la cellulle A1 dans master devient :
='iBookG4 HD:[source]1984'!$L$3 (³source² est le fichier, 1984 est
l¹onglet)

La reference de la cellulle A2 dans master devient :
='iBookG4 HD:[source]1985'!$L$3
....
Comme il y a 400 enregistrer sous à faire...
D¹ou ma question précédente.

J¹espère te renseigner suffisamment

Merci 1000 fois pour ton aide
Serge

Le 20/10/05 13:55, dans , « Daniel »
a écrit :

Repetition d'enregistrer sous par macroBonjour.
Peux-tu donner un exemple de la structure de tes données de ton classeur
"master" ?
Merci.
Daniel

"Serge Marolleau" a écrit dans le message de
news: BF7D43B8.12FA%

Bonjour,

Est-il possible a partir d'un classeur nommé master de faire des
enregistrer-sous par programmation selon le principe suivant :

En sachant que le master permet une visualisation chiffrée et graphique de
données contenues dans chaque ligne d'un classeur nommé source.
J'ai fait en sorte qu'en changeant le numéro de ligne des cellulles du
master (par rechercher remplacer), celui ci visualise graphiquement les
données d'une ligne du classeur sourcre. Il me faudrait faire 400
enregistrer sous puis 400 rechercher remplacer pour venir à bout de mon
travail.

Quelqu'un pourrait-il m'aider à écrire une macro se chargeant de le faire
automatiquement afin qu'au final il y ait autant de copies de master que de
lignes dans le fichier source ?

A partir du master ouvert
Début de la macro :

1)Rechercher remplacer dans le master :source$2 par source$3
Source$2 renvoie à un numéro de ligne du classeur source qui comporte
400 lignes...
2) enregistrer sous : avec comme nom de fichier la reference à une cellule
du master appellée : nom du fichier.

3) a partir de ce 2eme fichier, enregistrer sous et ainsi de suite de $2
jusqu'à $400...
Merci pour votre aide
serge

--B_3212664614_499777
Content-type: text/html; charset="US-ASCII"
Content-transfer-encoding: quoted-printable

<HTML>
<HEAD>
<TITLE>Re: Repetition d'enregistrer sous par macro</TITLE>
</HEAD>
<BODY>
Daniel 
 
Le master est donc entièrement construiit en lien avec  le fich ier source 
La page de données dans master répertorie les résultat s sous forme de tableau à partir de différents onglets du fich iers source, 
Puis, le master permet de visualiser 3 pages de graphiques qui lui sont li& eacute;s. 
 
Par exemple : 
La reference de la cellulle A1  dans master est : 
 ='iBookG4 HD:[source]1984'!$L$2       & nbsp;(“source” est le fichier, 1984 est l’onglet) 
 
La reference de la cellulle A2  dans master est : 
 ='iBookG4 HD:[source]1985'!$L$2       & nbsp; 
Etc... 
 
Dans le fichier source, Je me suis arrangé pour que toutes les donn& eacute;es qui m’intéressent par produit soient sur la mêm e ligne. Ce qui fait qu’en changeant de ligne, on change de produit. A utrement dit, dans master,  en faisant un rechercher remplacer de $2 pa r $3, le master permet de visualiser les données des lignes 3 dans ch aque onglet du fichier source. Je l’ai vérifié, cela fon ctionne manuellement parfaitement. 
 
Et cela donne pour l’exemple ci dessus après rechercher rempla cer 
La reference de la cellulle A1  dans master devient : 
 ='iBookG4 HD:[source]1984'!$L$3       ( “source” est le fichier, 1984 est l’onglet) 
 
La reference de la cellulle A2  dans master devient : 
 ='iBookG4 HD:[source]1985'!$L$3       & nbsp; 
.... 
Comme il y a 400 enregistrer sous à faire... 
D’ou ma question précédente. 
 
J’espère te renseigner suffisamment 
 
Merci 1000 fois pour ton aide 
Serge 
 
Le 20/10/05 13:55, dans , «?Dani el?» <> a écrit?: 
 
> Repetition d'enregistrer sous par macroBonjour. 
> Peux-tu donner un exemple de la structure de tes données de ton classeur 
> "master" ? 
> Merci. 
> Daniel 
> 
> 
> "Serge Marolleau" <> a &eac ute;crit dans le message de 
> news: BF7D43B8.12FA% 
> 
> 
> Bonjour, 
> 
> Est-il possible a partir d'un classeur nommé master de faire de s 
> enregistrer-sous par programmation selon le principe suivant : 
> 
> En sachant que le master permet une visualisation chiffrée et g raphique de 
> données contenues dans chaque ligne d'un classeur nommé source. 
> J'ai fait en sorte qu'en changeant le numéro de ligne des cellu lles du 
> master (par rechercher remplacer), celui ci visualise graphiquement le s 
> données d'une ligne du classeur sourcre. Il me faudrait faire 4 00 
> enregistrer sous puis 400 rechercher remplacer pour venir à bou t de mon 
> travail. 
> 
> Quelqu'un pourrait-il m'aider à écrire une macro se char geant de le faire 
> automatiquement afin qu'au final il y ait autant de copies de master q ue de 
> lignes dans le fichier source ? 
> 
> 
> A partir du master ouvert 
> Début de la macro : 
> 
> 1)Rechercher remplacer dans le master :source$2 par source$3 
>   Source$2 renvoie à un numéro de ligne du cla sseur source qui comporte 
> 400 lignes... 
> 2) enregistrer sous : avec comme nom de fichier la reference à une cellule 
> du master appellée : nom du fichier. 
> 
> 
> 3) a partir de ce 2eme fichier, enregistrer sous et ainsi de suite de $2 
> jusqu'à $400... 
> Merci pour votre aide 
> serge 
> 
> 

</BODY>
</HTML>

--B_3212664614_499777--

Daniel

20/10/2005 à 15:34

Re: Repetition d'enregistrer sous par macroPas testé complètement.
J'ai gardé le master ouvert et j'ai créé des copies pour chaque occurence.

Sub test()
Dim Ctr As Integer, var As Range, Plage As Range
Set Plage = Range("A1:A2")
For Ctr = 2 To 400
Plage.Replace "$" & Ctr, "$" & Ctr + 1
ActiveWorkbook.SaveCopyAs Range("nomdufichier") & Ctr & "xls"
var1 = Range("nomdufichier").Value
Next
End Sub

Daniel
"Serge Marolleau" a écrit dans le message de
news: BF7D5F25.131D%
Daniel

Le master est donc entièrement construiit en lien avec le fichier source
La page de données dans master répertorie les résultats sous forme de
tableau à partir de différents onglets du fichiers source,
Puis, le master permet de visualiser 3 pages de graphiques qui lui sont
liés.

Par exemple :
La reference de la cellulle A1 dans master est :
='iBookG4 HD:[source]1984'!$L$2 ("source" est le fichier, 1984 est l'onglet)

La reference de la cellulle A2 dans master est :
='iBookG4 HD:[source]1985'!$L$2
Etc...

Dans le fichier source, Je me suis arrangé pour que toutes les données qui m'intéressent
par produit soient sur la même ligne. Ce qui fait qu'en changeant de ligne,
on change de produit. Autrement dit, dans master, en faisant un rechercher
remplacer de $2 par $3, le master permet de visualiser les données des
lignes 3 dans chaque onglet du fichier source. Je l'ai vérifié, cela
fonctionne manuellement parfaitement.

Et cela donne pour l'exemple ci dessus après rechercher remplacer
La reference de la cellulle A1 dans master devient :
='iBookG4 HD:[source]1984'!$L$3 ("source" est le fichier, 1984 est l'onglet)

La reference de la cellulle A2 dans master devient :
='iBookG4 HD:[source]1985'!$L$3
....
Comme il y a 400 enregistrer sous à faire...
D'ou ma question précédente.

J'espère te renseigner suffisamment

Merci 1000 fois pour ton aide
Serge

Le 20/10/05 13:55, dans , «?Daniel?»
a écrit?:

Repetition d'enregistrer sous par macroBonjour.
Peux-tu donner un exemple de la structure de tes données de ton classeur
"master" ?
Merci.
Daniel

"Serge Marolleau" a écrit dans le message de
news: BF7D43B8.12FA%

Bonjour,

Est-il possible a partir d'un classeur nommé master de faire des
enregistrer-sous par programmation selon le principe suivant :

En sachant que le master permet une visualisation chiffrée et graphique de
données contenues dans chaque ligne d'un classeur nommé source.
J'ai fait en sorte qu'en changeant le numéro de ligne des cellulles du
master (par rechercher remplacer), celui ci visualise graphiquement les
données d'une ligne du classeur sourcre. Il me faudrait faire 400
enregistrer sous puis 400 rechercher remplacer pour venir à bout de mon
travail.

Quelqu'un pourrait-il m'aider à écrire une macro se chargeant de le faire
automatiquement afin qu'au final il y ait autant de copies de master que
de
lignes dans le fichier source ?

A partir du master ouvert
Début de la macro :

1)Rechercher remplacer dans le master :source$2 par source$3
Source$2 renvoie à un numéro de ligne du classeur source qui comporte
400 lignes...
2) enregistrer sous : avec comme nom de fichier la reference à une cellule
du master appellée : nom du fichier.

3) a partir de ce 2eme fichier, enregistrer sous et ainsi de suite de $2
jusqu'à $400...
Merci pour votre aide
serge

Re: Repetition d'enregistrer sous par macroPas testé complètement.
J'ai gardé le master ouvert et j'ai créé des copies pour chaque occurence.

Sub test()
Dim Ctr As Integer, var As Range, Plage As Range
Set Plage = Range("A1:A2")
For Ctr = 2 To 400
Plage.Replace "$" & Ctr, "$" & Ctr + 1
ActiveWorkbook.SaveCopyAs Range("nomdufichier") & Ctr & "xls"
var1 = Range("nomdufichier").Value
Next
End Sub

Daniel
"Serge Marolleau" <serge.marolleau@lesverts.fr> a écrit dans le message de
news: BF7D5F25.131D%serge.marolleau@lesverts.fr...
Daniel

Le master est donc entièrement construiit en lien avec le fichier source
La page de données dans master répertorie les résultats sous forme de
tableau à partir de différents onglets du fichiers source,
Puis, le master permet de visualiser 3 pages de graphiques qui lui sont
liés.

Par exemple :
La reference de la cellulle A1 dans master est :
='iBookG4 HD:[source]1984'!$L$2 ("source" est le fichier, 1984 est l'onglet)

La reference de la cellulle A2 dans master est :
='iBookG4 HD:[source]1985'!$L$2
Etc...

Dans le fichier source, Je me suis arrangé pour que toutes les données qui m'intéressent
par produit soient sur la même ligne. Ce qui fait qu'en changeant de ligne,
on change de produit. Autrement dit, dans master, en faisant un rechercher
remplacer de $2 par $3, le master permet de visualiser les données des
lignes 3 dans chaque onglet du fichier source. Je l'ai vérifié, cela
fonctionne manuellement parfaitement.

Et cela donne pour l'exemple ci dessus après rechercher remplacer
La reference de la cellulle A1 dans master devient :
='iBookG4 HD:[source]1984'!$L$3 ("source" est le fichier, 1984 est l'onglet)

La reference de la cellulle A2 dans master devient :
='iBookG4 HD:[source]1985'!$L$3
....
Comme il y a 400 enregistrer sous à faire...
D'ou ma question précédente.

J'espère te renseigner suffisamment

Merci 1000 fois pour ton aide
Serge

Le 20/10/05 13:55, dans uOMQ40W1FHA.3756@tk2msftngp13.phx.gbl, «?Daniel?»
<dZZZcolardelle@free.fr> a écrit?:

Repetition d'enregistrer sous par macroBonjour.
Peux-tu donner un exemple de la structure de tes données de ton classeur
"master" ?
Merci.
Daniel

"Serge Marolleau" <serge.marolleau@lesverts.fr> a écrit dans le message de
news: BF7D43B8.12FA%serge.marolleau@lesverts.fr...

Bonjour,

Est-il possible a partir d'un classeur nommé master de faire des
enregistrer-sous par programmation selon le principe suivant :

En sachant que le master permet une visualisation chiffrée et graphique de
données contenues dans chaque ligne d'un classeur nommé source.
J'ai fait en sorte qu'en changeant le numéro de ligne des cellulles du
master (par rechercher remplacer), celui ci visualise graphiquement les
données d'une ligne du classeur sourcre. Il me faudrait faire 400
enregistrer sous puis 400 rechercher remplacer pour venir à bout de mon
travail.

Quelqu'un pourrait-il m'aider à écrire une macro se chargeant de le faire
automatiquement afin qu'au final il y ait autant de copies de master que
de
lignes dans le fichier source ?

A partir du master ouvert
Début de la macro :

1)Rechercher remplacer dans le master :source$2 par source$3
Source$2 renvoie à un numéro de ligne du classeur source qui comporte
400 lignes...
2) enregistrer sous : avec comme nom de fichier la reference à une cellule
du master appellée : nom du fichier.

3) a partir de ce 2eme fichier, enregistrer sous et ainsi de suite de $2
jusqu'à $400...
Merci pour votre aide
serge

Vous avez filtré cet utilisateur ! Consultez son message

Re: Repetition d'enregistrer sous par macroPas testé complètement.
J'ai gardé le master ouvert et j'ai créé des copies pour chaque occurence.

Sub test()
Dim Ctr As Integer, var As Range, Plage As Range
Set Plage = Range("A1:A2")
For Ctr = 2 To 400
Plage.Replace "$" & Ctr, "$" & Ctr + 1
ActiveWorkbook.SaveCopyAs Range("nomdufichier") & Ctr & "xls"
var1 = Range("nomdufichier").Value
Next
End Sub

Daniel
"Serge Marolleau" a écrit dans le message de
news: BF7D5F25.131D%
Daniel

Le master est donc entièrement construiit en lien avec le fichier source
La page de données dans master répertorie les résultats sous forme de
tableau à partir de différents onglets du fichiers source,
Puis, le master permet de visualiser 3 pages de graphiques qui lui sont
liés.

Par exemple :
La reference de la cellulle A1 dans master est :
='iBookG4 HD:[source]1984'!$L$2 ("source" est le fichier, 1984 est l'onglet)

La reference de la cellulle A2 dans master est :
='iBookG4 HD:[source]1985'!$L$2
Etc...

Dans le fichier source, Je me suis arrangé pour que toutes les données qui m'intéressent
par produit soient sur la même ligne. Ce qui fait qu'en changeant de ligne,
on change de produit. Autrement dit, dans master, en faisant un rechercher
remplacer de $2 par $3, le master permet de visualiser les données des
lignes 3 dans chaque onglet du fichier source. Je l'ai vérifié, cela
fonctionne manuellement parfaitement.

Et cela donne pour l'exemple ci dessus après rechercher remplacer
La reference de la cellulle A1 dans master devient :
='iBookG4 HD:[source]1984'!$L$3 ("source" est le fichier, 1984 est l'onglet)

La reference de la cellulle A2 dans master devient :
='iBookG4 HD:[source]1985'!$L$3
....
Comme il y a 400 enregistrer sous à faire...
D'ou ma question précédente.

J'espère te renseigner suffisamment

Merci 1000 fois pour ton aide
Serge

Le 20/10/05 13:55, dans , «?Daniel?»
a écrit?:

Repetition d'enregistrer sous par macroBonjour.
Peux-tu donner un exemple de la structure de tes données de ton classeur
"master" ?
Merci.
Daniel

"Serge Marolleau" a écrit dans le message de
news: BF7D43B8.12FA%

Bonjour,

Est-il possible a partir d'un classeur nommé master de faire des
enregistrer-sous par programmation selon le principe suivant :

En sachant que le master permet une visualisation chiffrée et graphique de
données contenues dans chaque ligne d'un classeur nommé source.
J'ai fait en sorte qu'en changeant le numéro de ligne des cellulles du
master (par rechercher remplacer), celui ci visualise graphiquement les
données d'une ligne du classeur sourcre. Il me faudrait faire 400
enregistrer sous puis 400 rechercher remplacer pour venir à bout de mon
travail.

Quelqu'un pourrait-il m'aider à écrire une macro se chargeant de le faire
automatiquement afin qu'au final il y ait autant de copies de master que
de
lignes dans le fichier source ?

A partir du master ouvert
Début de la macro :

1)Rechercher remplacer dans le master :source$2 par source$3
Source$2 renvoie à un numéro de ligne du classeur source qui comporte
400 lignes...
2) enregistrer sous : avec comme nom de fichier la reference à une cellule
du master appellée : nom du fichier.

3) a partir de ce 2eme fichier, enregistrer sous et ainsi de suite de $2
jusqu'à $400...
Merci pour votre aide
serge

Serge Marolleau

20/10/2005 à 19:47

Daniel

Cela marche parfaitement
Merci beaucoup beaucoup...
Tu viens de méviter une tache répétitive fastidieuse...

Juste un détail :
Chaque fichier correctement s'enregistre comme ceci :

nomdufichier2.xls
Nomdu fichier3.xls
Nomdu fichier4.xls

La cariable nomdufichier s'implémente correctement mais je souhaiterais ne
pas avoir de numéro au bout à savoir :
Nomdufichier.xls
Puis
Nomdufichier.xls
Nomdufichier.xls
Nomdufichier.xls
...
Est-ce possible ???????

Le 20/10/05 15:34, dans uYBb$, « Daniel »
a écrit :

Re: Repetition d'enregistrer sous par macroPas testé complètement.
J'ai gardé le master ouvert et j'ai créé des copies pour chaque occurence.

Sub test()
Dim Ctr As Integer, var As Range, Plage As Range
Set Plage = Range("A1:A2")
For Ctr = 2 To 400
Plage.Replace "$" & Ctr, "$" & Ctr + 1
ActiveWorkbook.SaveCopyAs Range("nomdufichier") & Ctr & "xls"
var1 = Range("nomdufichier").Value
Next
End Sub

Daniel

Daniel

20/10/2005 à 20:38

Je ne suis pas sûr de comprendre. Tu ne peux pas avoir plusieurs classeurs
avec le même nom ?
Daniel
"Serge Marolleau" a écrit dans le message de
news: BF7DA4C3.141B%

Daniel

Cela marche parfaitement
Merci beaucoup beaucoup...
Tu viens de méviter une tache répétitive fastidieuse...

Juste un détail :
Chaque fichier correctement s'enregistre comme ceci :

nomdufichier2.xls
Nomdu fichier3.xls
Nomdu fichier4.xls

La cariable nomdufichier s'implémente correctement mais je souhaiterais ne
pas avoir de numéro au bout à savoir :
Nomdufichier.xls
Puis
Nomdufichier.xls
Nomdufichier.xls
Nomdufichier.xls
...
Est-ce possible ???????

Le 20/10/05 15:34, dans uYBb$, « Daniel »

Re: Repetition d'enregistrer sous par macroPas testé complètement.
J'ai gardé le master ouvert et j'ai créé des copies pour chaque
occurence.

Sub test()
Dim Ctr As Integer, var As Range, Plage As Range
Set Plage = Range("A1:A2")
For Ctr = 2 To 400
Plage.Replace "$" & Ctr, "$" & Ctr + 1
ActiveWorkbook.SaveCopyAs Range("nomdufichier") & Ctr & "xls"
var1 = Range("nomdufichier").Value
Next
End Sub

Daniel

Serge Marolleau

21/10/2005 à 00:03

Pas de souci, j'ai regle le probleme
Merci encore

Le 20/10/05 20:38, dans , « Daniel »
a écrit :

Je ne suis pas sûr de comprendre. Tu ne peux pas avoir plusieurs classeurs
avec le même nom ?
Daniel
"Serge Marolleau" a écrit dans le message de
news: BF7DA4C3.141B%

Daniel

Cela marche parfaitement
Merci beaucoup beaucoup...
Tu viens de méviter une tache répétitive fastidieuse...

Juste un détail :
Chaque fichier correctement s'enregistre comme ceci :

nomdufichier2.xls
Nomdu fichier3.xls
Nomdu fichier4.xls

La cariable nomdufichier s'implémente correctement mais je souhaiterais ne
pas avoir de numéro au bout à savoir :
Nomdufichier.xls
Puis
Nomdufichier.xls
Nomdufichier.xls
Nomdufichier.xls
...
Est-ce possible ???????

Le 20/10/05 15:34, dans uYBb$, « Daniel »

Re: Repetition d'enregistrer sous par macroPas testé complètement.
J'ai gardé le master ouvert et j'ai créé des copies pour chaque
occurence.

Sub test()
Dim Ctr As Integer, var As Range, Plage As Range
Set Plage = Range("A1:A2")
For Ctr = 2 To 400
Plage.Replace "$" & Ctr, "$" & Ctr + 1
ActiveWorkbook.SaveCopyAs Range("nomdufichier") & Ctr & "xls"
var1 = Range("nomdufichier").Value
Next
End Sub

Daniel

Repetition d'enregistrer sous par macro

6 réponses

Veuillez sélectionner un problème