Automation Excel création de feuille

Version imprimable

Hello tout le monde, et merci beaucoup de m'aider.

Voila, cela fait quelques heures que je cherche.. en vain.. :(

Et pourtant, je suis certain que cela ne doit pas etre compliqué.

Voici ce qui me pose probleme:

Je voudrais en VBA, grace à l'automation excel, ouvrir une feuille définie(son nom: 3.1.unif institution unif) d'un classeur non vide(son nom est dans la variable: XlFilename) , la modifier, et l'enregistrer dans le meme classeur sous un autre nom.

Pour le moment, j'ai ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(Application.CurrentProject.Path & "\" & XlFilename & ".xls") For I = 0 To UBound(nomInst()) Set xlSheet = xlBook.Sheets("3.1.unif institution unif") xlSheet.Activate xlSheet.Name = "3.1.unif institution unif" & nomInst(I) xlSheet.Copy After:=Worksheets("3.1.unif institution unif") xlSheet.Cells(LIG1 + 3, COL1 + 1) = nomInst(I) Next xlBook.Save xlBook.Close xlApp.Quit

Bonjour,

Je verrais ça comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim xlNewSheet As Excel.Worksheet 
    Set xlApp = CreateObject("Excel.Application")
 
Set xlBook = xlApp.Workbooks.Open(Application.CurrentProject.Path & "\" & XlFilename & ".xls")
 
For I = 0 To UBound(nomInst())
           ' Récupère la feuille à copier
           Set xlSheet = xlBook.Sheets("3.1.unif institution unif")
           ' Copie la feuille
           xlSheet.Copy After:=xlSheet
           ' Récupère la feuille copiée
           Set xlNewSheet = xlBook.Sheets(xlSheet.Index + 1)
           ' Change le nom de la feuille copiée
           xlNewSheet.Name = xlsheet.name & nomInst(I)
           ' Modifie la valeur de la cellule
           xlNewSheet.Cells(LIG1 + 3, COL1 + 1) = nomInst(I)
           ' Libère les objets feuilles
           Set xlNewSheet = Nothing
           Set xlSheet = Nothing
Next
 
xlBook.Save
xlBook.Close
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing

24/04/2007, 16h54
Junior_jef

Merci beaucoup pour ta réponse rapide!

Je teste ca de suite, et je vous tiens au courrant.

==> Merciiiii, c'est exactement ca!!!