Discussion :

[benjisan]

Bonjour à tous,

Voilà mon problème, j'ai 4 fichier excel dont 1 qui contient 23 sheets.

Je voudrais simplement créer un nouveau fichier excel avec les sheets qui je choisis.

Voici mon code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set classeur = xlApp.Workbooks.Open("C:\Documents and Settings\...\My Documents\ORM\exceptions_2007.xls")
 
xlApp.Sheets("exception_final").Select
xlApp.Sheets("exception_final").Copy
 
Set XL = New Excel.Application 
Set classeur2 = XL.Workbooks.Add XL.ActiveSheet.Paste
 
classeur2.Save
XL.Quit

Je précise au fait, je pilote excel via access.

Auriez-vous une petite idée pour moi ???

D'avance merci

Benjisan

[yorke]

J'ai fais quelque chose comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
xlApp.Workbooks("machin.xls").Worksheets("Feuil1").Cells.Copy(xlApp.Workbooks("truc.xls").Worksheets("Feuil2") .Cells)

Il faut au prealable ouvrir machin et truc. avec la fonction open. (va copier feuil1 de machin sur feuil2 de truc)
Dans ton cas, tu creer un nouveau, qui correspond à truc, et tu copies les informations des different fichiers.



Par contre, attention, j'ai eu un bug avec Excel:
http://support.microsoft.com/kb/210684

Quand tu fais un grande nombre de copie, ca plante. Pour "resoudre", il faut fermer et reouvrir regulierement.

[benjisan]

Un grand merci pour ta réponse,

J'ai un problème avec ton code
Il me donne un message d'erreur

Erreur d'exécution '9' :
L'indice n'appartient pas à la sélection

Voici le code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlApp.Workbooks("exceptions_2007.xls").Worsheets("exception_final").Copy (xlApp.Workbooks("test.xls").Worsheets("Feuil1"))

Encore merci d'avoir pris le temps d me répondre

Benjisan

[yorke]

Tu es sur du nom de feuille 1 et test.xls ?

Essaye de mettre peut-etre le chemin complet des 2 feuilles, pour moi ca marche nickel, normalement.

[benjisan]

Tu as raison, il ne me donne plus ce message d'erreur mais j'ai quand même droit a un autre message "Mémoire insuffisante"

[benjisan]

J'ai une petite question ??

Est ce que je ne pourrais pas fusionner mes 4 fichiers excels en 1 ???