Enregistrer feuilles Excel dans meme classeur

Question

Bonjour,

1ere question : Je voudrais savoir si il est possible de copier en meme temps deux feuilles d'un meme classeur vers un autre classeur grave a VB?
J'ai installer un bouton qui me permet de copier une de ces feuilles mais je n'arrive pas a trouver la commande pour copier deux feuilles.
Actuellement, mes deux feuilles sont copiees dans deux classeurs differents. 
Quelqu'un aurait-il une solution?

2eme question : peut-on, grace a VB toujours, copier des feuilles Excel de classeurs differents dans un meme classeur mais a des moments differents?

Merci pour votre aide!!

yg_be · Answer

Peux-tu nous montrer le code associé à tes boutons ?

Aussie · Answer

mon code me permet de faire une copie de ma feuille dans un autre classeur pour pouvoir la sauvegarder et en meme temps de remettre ma feuille a zero de facon a la reutiliser.

Le code est donc le suivant :

    Sheets("CAPTURE").Select
    Sheets("CAPTURE").Copy
    Windows("Nomdemafeuille").Activate
    Range("E10").Select
    Application.CalculateFull
    ActiveCell.FormulaR1C1 = ""
    Range("F10").Select
    ActiveCell.FormulaR1C1 = ""
    Range("H10:W40").Select
    Selection.ClearContents

yg_be · Answer

Tu fais l'insertion à la main ?

Aussie · Answer

Je clique sur un bouton et la copie se fait automatiquement. en revanche, oui, je dois enregistrer mon fichier à la main.

yg_be · Answer

Avant d'enregistrer, tu fais aussi l'insertion de tes données dans l'autre fichier ?

Aussie · Answer

je rentre mes données dans un fichier et c'est celui-là que je copie ensuite dans un nouveau classeur , en archive en quelques sortes, par l'intermédiaire de mon bouton. une fois la copie faite, mon fichier se remet à zéro automatiquement

yg_be · Answer

Je crois comprendre que tu fais à la main l'insertion dans ton fichier de destination.  Si oui,  tu peux essayer d'ajouter ceci à ton bouton :

'tout au début
Dim destwb As Workbook
Set destwb = Workbooks.Open("le nom du fichier de destination")

' après ton Sheets("CAPTURE").Copy
destwb.sheets("le nom de la feuille de destination").select
destwb.sheets("le nom de la feuille de destination").Range("le nom de la cellule de destination").Activate
destwb.sheets("le nom de la feuille de destination").paste


Si non, tu devrais expliquer plus en détails ce que tu fais avant et après l'appel à ton bouton.

Aussie · Answer

ok j'essairai ça et je te dirai, pour l'instant je n'ai pas le fichier sous la main.

ce code me permettra de faire quoi? d'enregistrer 2 feuilles dans le même classeur?

Aussie · Answer

J'ai bien relu ton message et en fait je ne fais pas de tranfert a la main. la seule chose que je fais moi c'est enregistrer ma copie. mon bouton me permet deja de faire la copie et de remettre ma feuille a zero. une copie exacte de ma feuille de saisie est transferee dans un nouveau classeur grace a ce bouton.

je laisse tomber ma premiere question de depart, j'ai trouve une alternative. par contre, je voudrais savoir si il est possible d'enregistrer des feuilles dans un meme classeur mais a des moments differents.

pour mieux m'expliquer, j'ai dans mon fichier A ma feuille de saisie. quand cette feuille est totalement remplie, j'en fais une copie dans un autre classeur et je remets a zero cette feuille pour pouvoir y retravailler dessus. 
je rentre mes donnees a nouveau et je fais la meme chose : copie dans un autre classeur et remise a zero et ainsi de suite.
j'aimerais que le classeur de destination soit le meme a chaque fois. de cette facon, toutes mes feuilles de sauvegarde se trouve au meme emdroit.
donc au depart, je n'ai aucune feuille dans mon classeur de destination (il n'existe meme pas puisqu'il sera cree au moment de ma premiere sauvegarde), puis 1 (creation du classeur), puis 2, puis 3 etc

j'espere avoir ete plus precis et plus clair, sinon dis moi!

merci

yg_be · Answer

Quelle manipulations fais-tu exactement pour "enregistrer ta copie" ?

Pour moi, le bouton sauve tes données dans le "presse papier", et met à zéro quelques données dans une feuille.

Comme je ne vois pas où les données sont copiées dans le classeur de destination, je ne peux pas t'expliquer comment les copier à chaque fois dans une nouvelle feuille du classeur de destination.

Aussie · Answer

pour enregistrer ma feuille, je clique sur un bouton auquel j'ai lie la macro que je t'ai donne.  la feuille  entiere est enregistree dans un nouveau classeur. la macro remet ma feuille a zero en effacant toutes les donnees que j'ai pu rentrer. la copie correspond exactement a ma feuille avant que je clique sur le bouton. mes copies auront donc toujours la meme mise en forme, seul le contenu des cellules changera.

Aussie · Answer

Ce que j'avais dit n'etait peut-etre pas tres clair alors je m'en excuse! mais ce n'est pas evident de decrire ce que tu as et ce que tu veux meme si tu as tout bien en tete, tu ne penses pas forcement a parler de tout. enfin, au bout du compte on arrive a se comprendre!!

j'ai essaye tes formules mais je recois un message d'erreur me disant que le fichier de destination n'est pas trouve. j'ai donc creer un nouveau fichier, je l'ai ouvert puis ferme, j'ai rentre le nom d'un fichier qui n'existe pas et c'est a chaque fois pareil.

aurais-tu une explication a cela?

Aussie · Answer

Voila le code tel au'il est. j'ai remplace Sheets("capture").copy par ce que tu m'as donne :

    Sheets("CAPTURE").Select
    Dim newwb As Workbook
    Set newwb = Workbooks.Open("Book1")
    Sheets("CAPTURE").Copy before:=newwb.Sheets(1)
    newwb.Close
    Windows("MARSIE'S DATE CAKE.xls").Activate
    Range("E10").Select
    Application.CalculateFull
    ActiveCell.FormulaR1C1 = ""
    Range("F10").Select
    ActiveCell.FormulaR1C1 = ""
    Range("H10:W40").Select
    Selection.ClearContents

yg_be · Answer

Essaie de mettre le nom complet du fichier dans
Set newwb = Workbooks.Open("Book1") 

du genre :
Set newwb = Workbooks.Open("c:	emp\bookcpy.xls")

Aussie · Answer

tu avais raison pour cette ligne, il fallait mettre le chemin entier. maintenant c'est la ligne suivant qui beuge!!

lermite222 · Answer

Bonjour,
avant que vous n'alliez plus loin, voir mes conclusions sur l'autre topic de Aussie
http://www.commentcamarche.net/forum/affich 7147158 recherche dans plusieurs feuilles

Semblerait qu'il y ai emploi de Excel différents...

Aussie · Answer

oui je veux faire plusieurs choses differentes. les fichiers excel concernes ne sont pas les memes. je souhaiterais avoir deux choses differentes c'est la raison pour laquelle j'ai poste deux messages separes

Aussie · Answer

Je preferais etre clair pour ne pas que vous pensiez que vous perdez votre temps avec un truc qui est completement aberrant. j'ai besoin de votre aide!!
en fait, j'ai effectivement des liaisons vers recipes dans mes deux fichiers mais je ne copie aucune feuille de ce fichier recipes.

j'ai supprime les tableaux 1 et 2, je me suis egalement rendu compte que la feuille que je copiais dans mon fichier research n'avait exactement la meme mise en forme que les autres. j'ai fait les modif et la ca a l'air de bien fonctionner.

je ferai des essais plus tard car le je ne peux pas. je vous tiens bien evidemment au courant.

en tout cas merci a vous 2 pour votre aide!!

Aussie · Answer

mon premier probleme etant resolu, je voudrais maintenant choisir le fichier de destination de mes copies pour qu'elles se retrouvent toutes dans mon ficher de recherche.

lermite222 · Answer

pour copier dans autre classeur...
Sheets("CAPTURE").Copy After:=Workbooks("Le nom.xls").Sheets(4)

Aussie · Answer

ton code fonctionne a merveille!! seulement, a la fin il y a sheet(4) ce qui signifie si je ne me trompe pas que la feuille sera copiee en position 4. moi j'aimerais qu'elle soit copiee en suivant des autres, donc la position change a chaque fois. j'ai essaye de remplacer 4 par last, end, after mais ca ne donne rien... pourrais-tu me donner le ptit mot qui va bien ou alors est-ce qu'il faut changer tout le code?

lermite222 · Answer

dim e as integer
    e = worksheets.count
    Sheets("CAPTURE").Copy After:=Workbooks("Le nom.xls").Sheets(e) 

la feuille sera copiee en position 4
non, elle serra copiée APRES la feuille 4

Aussie · Answer

je comprends que tu en ais marre de m'aider, je veux bien me creuser la tete, mais je n'ai pas les connaissances en VBA que toi tu as. c'est bien parce que j'etais coince que je suis venu sur ce site et que j'ai demande de l'aide aux gens comme toi qui maitrisent parfaitement VBA et excel. si j'avais su me demerder, j'aurais pas pose cette question, je serais meme pas venu ici! je veux bien me debrouiller tout seul, j'ai d'ailleurs essaye! mais comme tu l'as vu l'excel que j'utilises est en anglais, et la rubrique Aide l'est donc aussi. malheureusement je ne suis pas encore bilingue... si pour toi c'est facile, pour moi et surement pour d'autres personnes ca ne l'est pas du tout.

moi j'ai encore quelques petits trucs a regler avec cette fichue programmation donc je vais encore poster des messages sur ce site. mais si toi tu ne veux bien m'aider, je comprendrais tres bien.

je te remercie vraiment pour toute ton aide, pour le temps que tu as passe a resoudre mon probleme. je suis conscient du travail que ca t'as demande, et je t'en suis tres reconnaissant.

bonne continuation et je souhaite aux gens de tomber sur des personnes comme toi pour trouver des reponses a leur probleme.

lermite222 · Answer

Aucun problème, je voulais seulement dire que tu pourrais te servir plus souvent de l'éditeur de macro, en fait, c'est comme ca que j'ai apris au début, ensuite quand ca devient plus pointu il faut évidemment avoir des conseils et être guidé.

Mais tu a pas dit si la solution était la bonne pour ta copie...
A+

Aussie · Answer

Non malheureusment ca ne fonctionne pas. jusqu'a la troisieme feuille aucune soucis, apres ca se gate, elles se mettent toutes en 3eme position. j'essaie de bidouiller ton code mais pour l'instant ce ne donne rien. mais je cherche!!

lermite222 · Answer

Exact, j'ai oublié quequchose....
dim e as integer
    e = Workbooks("Le nom.xls").worksheets.count
    Sheets("CAPTURE").Copy After:=Workbooks("Le nom.xls").Sheets(e)

Aussie · Answer

C'est nickel ca fonctionne du feu de Dieu!! je te remercie vraiment pour ton aide.

Je te laisse te reposer ce week-end et lundi je te donnerai peut-etre un peu de travail...

Merci encore!!
A+

Enregistrer feuilles Excel dans meme classeur

27 réponses

Votre réponse

Newsletters