Voila mon probl=E8me:
mon classeur utilise souvent la meme feuille, je voudrais=20
sauvegarder =E0 chaque fois cette feuille mais bien sur sous=20
des noms diff=E9rents( exemple: fiche1,fiche2,fiche3 etc )=20
ou mieux si le nom du fichier pouvait etre une cellule de=20
la feuille.
Quelqu'un pourrait-il m'aider pour cr=E9er la macro qui=20
remplirait cette fonction automatiquement.
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
Vincent.
Bonjour, La macro suivante permet de créer une nouvelle fiche à partir du fichier dans lequel la feuille "fiche" qui sert de modèle aux fiches se situe. Le nom de la nouvelle fiche est en A1 de cette feuille et est effacée une fois le nouveau classeur crée. A adapter à tes besoins, évidemment...
Sub zaza() Dim NlleFiche as Workbook Set NlleFiche = Thisworkbook.Worksheets("Fiche").Copy NlleFiche.Range("A1").ClearContents NlleFiche.SaveAs ThisworkBook.path & "" & _ ThisWorkbook.Worksheets("Fiche").[A1] & ".xls" NvlleFiche.Close End Sub
A+
V.
-----Message d'origine----- Bonjour à tous
Voila mon problème: mon classeur utilise souvent la meme feuille, je voudrais sauvegarder à chaque fois cette feuille mais bien sur sous
des noms différents( exemple: fiche1,fiche2,fiche3 etc ) ou mieux si le nom du fichier pouvait etre une cellule de la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui remplirait cette fonction automatiquement.
Merci à tous
Sergio .
Bonjour,
La macro suivante permet de créer une nouvelle fiche à
partir du fichier dans lequel la feuille "fiche" qui sert
de modèle aux fiches se situe.
Le nom de la nouvelle fiche est en A1 de cette feuille et
est effacée une fois le nouveau classeur crée.
A adapter à tes besoins, évidemment...
Sub zaza()
Dim NlleFiche as Workbook
Set NlleFiche = Thisworkbook.Worksheets("Fiche").Copy
NlleFiche.Range("A1").ClearContents
NlleFiche.SaveAs ThisworkBook.path & "" & _
ThisWorkbook.Worksheets("Fiche").[A1] & ".xls"
NvlleFiche.Close
End Sub
A+
V.
-----Message d'origine-----
Bonjour à tous
Voila mon problème:
mon classeur utilise souvent la meme feuille, je voudrais
sauvegarder à chaque fois cette feuille mais bien sur
sous
des noms différents( exemple: fiche1,fiche2,fiche3 etc )
ou mieux si le nom du fichier pouvait etre une cellule de
la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui
remplirait cette fonction automatiquement.
Bonjour, La macro suivante permet de créer une nouvelle fiche à partir du fichier dans lequel la feuille "fiche" qui sert de modèle aux fiches se situe. Le nom de la nouvelle fiche est en A1 de cette feuille et est effacée une fois le nouveau classeur crée. A adapter à tes besoins, évidemment...
Sub zaza() Dim NlleFiche as Workbook Set NlleFiche = Thisworkbook.Worksheets("Fiche").Copy NlleFiche.Range("A1").ClearContents NlleFiche.SaveAs ThisworkBook.path & "" & _ ThisWorkbook.Worksheets("Fiche").[A1] & ".xls" NvlleFiche.Close End Sub
A+
V.
-----Message d'origine----- Bonjour à tous
Voila mon problème: mon classeur utilise souvent la meme feuille, je voudrais sauvegarder à chaque fois cette feuille mais bien sur sous
des noms différents( exemple: fiche1,fiche2,fiche3 etc ) ou mieux si le nom du fichier pouvait etre une cellule de la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui remplirait cette fonction automatiquement.
Merci à tous
Sergio .
sergio
Merci 1000 fois Vincent. Par contre une petite précision, je voudrais enregistrer ma fiche dans un autre répertoire. Je suppose que ça doit se passer du coté de l'instruction PATH, si tu avais un bout de code à ma filer par exemple pour enregistrer dans C:applicationsexcel Encore merci Sergio
-----Message d'origine----- Bonjour, La macro suivante permet de créer une nouvelle fiche à partir du fichier dans lequel la feuille "fiche" qui sert de modèle aux fiches se situe. Le nom de la nouvelle fiche est en A1 de cette feuille et est effacée une fois le nouveau classeur crée. A adapter à tes besoins, évidemment...
Sub zaza() Dim NlleFiche as Workbook Set NlleFiche = Thisworkbook.Worksheets("Fiche").Copy NlleFiche.Range("A1").ClearContents NlleFiche.SaveAs ThisworkBook.path & "" & _ ThisWorkbook.Worksheets("Fiche").[A1] & ".xls" NvlleFiche.Close End Sub
A+
V.
-----Message d'origine----- Bonjour à tous
Voila mon problème: mon classeur utilise souvent la meme feuille, je voudrais
sauvegarder à chaque fois cette feuille mais bien sur sous
des noms différents( exemple: fiche1,fiche2,fiche3 etc )
ou mieux si le nom du fichier pouvait etre une cellule de
la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui remplirait cette fonction automatiquement.
Merci à tous
Sergio .
.
Merci 1000 fois Vincent.
Par contre une petite précision, je voudrais enregistrer
ma fiche dans un autre répertoire.
Je suppose que ça doit se passer du coté de l'instruction
PATH, si tu avais un bout de code à ma filer par exemple
pour enregistrer dans C:applicationsexcel
Encore merci
Sergio
-----Message d'origine-----
Bonjour,
La macro suivante permet de créer une nouvelle fiche à
partir du fichier dans lequel la feuille "fiche" qui sert
de modèle aux fiches se situe.
Le nom de la nouvelle fiche est en A1 de cette feuille et
est effacée une fois le nouveau classeur crée.
A adapter à tes besoins, évidemment...
Sub zaza()
Dim NlleFiche as Workbook
Set NlleFiche = Thisworkbook.Worksheets("Fiche").Copy
NlleFiche.Range("A1").ClearContents
NlleFiche.SaveAs ThisworkBook.path & "" & _
ThisWorkbook.Worksheets("Fiche").[A1] & ".xls"
NvlleFiche.Close
End Sub
A+
V.
-----Message d'origine-----
Bonjour à tous
Voila mon problème:
mon classeur utilise souvent la meme feuille, je
voudrais
sauvegarder à chaque fois cette feuille mais bien sur
sous
des noms différents( exemple: fiche1,fiche2,fiche3
etc )
ou mieux si le nom du fichier pouvait etre une cellule
de
la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui
remplirait cette fonction automatiquement.
Merci 1000 fois Vincent. Par contre une petite précision, je voudrais enregistrer ma fiche dans un autre répertoire. Je suppose que ça doit se passer du coté de l'instruction PATH, si tu avais un bout de code à ma filer par exemple pour enregistrer dans C:applicationsexcel Encore merci Sergio
-----Message d'origine----- Bonjour, La macro suivante permet de créer une nouvelle fiche à partir du fichier dans lequel la feuille "fiche" qui sert de modèle aux fiches se situe. Le nom de la nouvelle fiche est en A1 de cette feuille et est effacée une fois le nouveau classeur crée. A adapter à tes besoins, évidemment...
Sub zaza() Dim NlleFiche as Workbook Set NlleFiche = Thisworkbook.Worksheets("Fiche").Copy NlleFiche.Range("A1").ClearContents NlleFiche.SaveAs ThisworkBook.path & "" & _ ThisWorkbook.Worksheets("Fiche").[A1] & ".xls" NvlleFiche.Close End Sub
A+
V.
-----Message d'origine----- Bonjour à tous
Voila mon problème: mon classeur utilise souvent la meme feuille, je voudrais
sauvegarder à chaque fois cette feuille mais bien sur sous
des noms différents( exemple: fiche1,fiche2,fiche3 etc )
ou mieux si le nom du fichier pouvait etre une cellule de
la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui remplirait cette fonction automatiquement.
Merci à tous
Sergio .
.
sergio
Mon premier message semble s'etre perdu en route donc je recommence quitte à me répéter. Merci beaucoup Vincent par contre je voudrais juste une précision: je voudrais enregistrer ma fiche dans un répertoire bien précis, peux-tu me donner un bout de code avec par exemple un enregistrement dans C:applicationsexcel Merci d'avance Sergio
-----Message d'origine----- Bonjour à tous
Voila mon problème: mon classeur utilise souvent la meme feuille, je voudrais sauvegarder à chaque fois cette feuille mais bien sur sous
des noms différents( exemple: fiche1,fiche2,fiche3 etc ) ou mieux si le nom du fichier pouvait etre une cellule de la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui remplirait cette fonction automatiquement.
Merci à tous
Sergio .
Mon premier message semble s'etre perdu en route donc je
recommence quitte à me répéter.
Merci beaucoup Vincent par contre je voudrais juste une
précision: je voudrais enregistrer ma fiche dans un
répertoire bien précis, peux-tu me donner un bout de code
avec par exemple un enregistrement dans
C:applicationsexcel
Merci d'avance
Sergio
-----Message d'origine-----
Bonjour à tous
Voila mon problème:
mon classeur utilise souvent la meme feuille, je voudrais
sauvegarder à chaque fois cette feuille mais bien sur
sous
des noms différents( exemple: fiche1,fiche2,fiche3 etc )
ou mieux si le nom du fichier pouvait etre une cellule de
la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui
remplirait cette fonction automatiquement.
Mon premier message semble s'etre perdu en route donc je recommence quitte à me répéter. Merci beaucoup Vincent par contre je voudrais juste une précision: je voudrais enregistrer ma fiche dans un répertoire bien précis, peux-tu me donner un bout de code avec par exemple un enregistrement dans C:applicationsexcel Merci d'avance Sergio
-----Message d'origine----- Bonjour à tous
Voila mon problème: mon classeur utilise souvent la meme feuille, je voudrais sauvegarder à chaque fois cette feuille mais bien sur sous
des noms différents( exemple: fiche1,fiche2,fiche3 etc ) ou mieux si le nom du fichier pouvait etre une cellule de la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui remplirait cette fonction automatiquement.
Merci à tous
Sergio .
Vincent.
Bonjour Sergio, Il suffit de remplacer dans le code d'hier ThisWorkbook.Path par "C:applicationsexcel" avec les guillemets... A+
V.
-----Message d'origine----- Mon premier message semble s'etre perdu en route donc je recommence quitte à me répéter. Merci beaucoup Vincent par contre je voudrais juste une précision: je voudrais enregistrer ma fiche dans un répertoire bien précis, peux-tu me donner un bout de code avec par exemple un enregistrement dans C:applicationsexcel Merci d'avance Sergio
-----Message d'origine----- Bonjour à tous
Voila mon problème: mon classeur utilise souvent la meme feuille, je voudrais
sauvegarder à chaque fois cette feuille mais bien sur sous
des noms différents( exemple: fiche1,fiche2,fiche3 etc )
ou mieux si le nom du fichier pouvait etre une cellule de
la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui remplirait cette fonction automatiquement.
Merci à tous
Sergio .
.
Bonjour Sergio,
Il suffit de remplacer dans le code d'hier
ThisWorkbook.Path par "C:applicationsexcel" avec les
guillemets...
A+
V.
-----Message d'origine-----
Mon premier message semble s'etre perdu en route donc je
recommence quitte à me répéter.
Merci beaucoup Vincent par contre je voudrais juste une
précision: je voudrais enregistrer ma fiche dans un
répertoire bien précis, peux-tu me donner un bout de code
avec par exemple un enregistrement dans
C:applicationsexcel
Merci d'avance
Sergio
-----Message d'origine-----
Bonjour à tous
Voila mon problème:
mon classeur utilise souvent la meme feuille, je
voudrais
sauvegarder à chaque fois cette feuille mais bien sur
sous
des noms différents( exemple: fiche1,fiche2,fiche3
etc )
ou mieux si le nom du fichier pouvait etre une cellule
de
la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui
remplirait cette fonction automatiquement.
Bonjour Sergio, Il suffit de remplacer dans le code d'hier ThisWorkbook.Path par "C:applicationsexcel" avec les guillemets... A+
V.
-----Message d'origine----- Mon premier message semble s'etre perdu en route donc je recommence quitte à me répéter. Merci beaucoup Vincent par contre je voudrais juste une précision: je voudrais enregistrer ma fiche dans un répertoire bien précis, peux-tu me donner un bout de code avec par exemple un enregistrement dans C:applicationsexcel Merci d'avance Sergio
-----Message d'origine----- Bonjour à tous
Voila mon problème: mon classeur utilise souvent la meme feuille, je voudrais
sauvegarder à chaque fois cette feuille mais bien sur sous
des noms différents( exemple: fiche1,fiche2,fiche3 etc )
ou mieux si le nom du fichier pouvait etre une cellule de
la feuille.
Quelqu'un pourrait-il m'aider pour créer la macro qui remplirait cette fonction automatiquement.
