Copie de feuille....

[Chris]

Bonjour à tous,

Je cherche le moyen de copier toutes les feuille d'un classeur excel (le nombre de feuilles est inconnue à chaque fois) dans un nouveau classeur par le biais d'une macro.

Quelqu'un peux t il m'aider ????

Merci d'avance

Chris.

 

[Gael]

Bonjour Chris,

Si cela peut se résumer à un 'enregistrer sous' automatique avec un nom de fichier variable, vois la réponse de Baside à Natiffar qui a pour sujet 'copie automatique de fichier'.

cela répond-t-il à la question?

@+

Gael

 

[chris]

Bonjour Gael,

Non, cela ne me convient pas.....se serait trop facile.......Il me faut imperativement une macro capable de faire une copie d'un nombre aleatoire de feuille dans un autre fichier....

Au suivant....

Chris.

 

[CelineG]

Bonjour!

Je veux bien t'aider un peu mais uniquement sur le principe de la macro peut-être que ça va déjà t'éclairer !

l'idée serait de parcourir toutes les fiches,

tu regarde si tu la veux ou non (on sait jamais des fois!),

tu la copies dans un nouveau classeur,

que tu enregistres,

et tu conserve son nom,

puis tu passe à la feuille suivant et tu recommence...

Cela t'aide-t-il?

 

[chris]

He non toujour pas.......Je me repete, mais il me faut une macro qui me fasse cette copie !!!.....N'oublions pas que le nombre de feuille est totalement different à chaque fois.

Merci quand meme

chris

 

[CelineG]

tu n'as aucun moyen de savoir quel est le nombre de feuille que tu as à copier?

parce que sinon tu fais une boucle de 1 à ton nombre de feuille et tu fais la copie de la fiche.

si ça ne t'aide toujours pas, je comprend pas ce que tu cherches !

 

[Gael]

Chris,

essaye cette macro simple qui copie toutes les feuilles du claseur vers un autre:

Sub Macro4()
'
' Macro4 Macro

Sheets.Copy Before:=Workbooks('test.xls').Sheets(1)
End Sub

@+

Gael

 

[Abel]

Bonjour chris, CelineG, Gael,

Il y a quelque temps, un barbatruc est passé où on pouvait sélectionner des onglets dans un listbox d'un userform.

Ce serait une base de travail pour ton sujet. Il suffit ensuite de demander la copie de ces onglets.

Je ne me souviens plus de quel barbatruc il s'agissait.

Au fait, pourquoi 'Enristrer sous' du classeur complet ne convient pas ?
Ca a le mérite de copier forcément toutes les feuilles du classeur comme tu le demandes dans ton message de départ.

Abel.

 

[CelineG]

En tout cas il faut que vous sachiez que nous avons été plusieurs à avoir des problemes lorsqu'on copiais plus de 45 feuilles sur un autre classeur...

donc il surment falloir qu'à un moment donné tu connaisse le nombre de feuilles que tu copie si tu ne veux pas avoir des surprises !

Bon courage!

 

[michel_m]

Bonsoir à tous

Excusez moi d'entrer sans frapper dans ce fil

Pour savoir le nombre d'onglets dans un classeur

Sheets.Count


Sans avoir à connaitre le nombre, on peut employer la boucle for each

for each worksheet in thisworkbook

instructions

next

nota: il y a peut_être un 's' à worksheet

Michel

 

[Chris.]

Merci pour vos reponses,

Michel ton resonnement m'interresse, pourais tu le developper un peu plus. Je suis loint d'etre un pro de la macro...

Merci

Chris