Discussion :

[titouille]

Hello,

Tout est dans le titre

J'ai un document Excel nommé "modele.xlt". c'est un "template" contenant X feuilles, chacune correspondant à un modèle de document utilisable.

Selon certaines conditions, je dois choisir un parmi ces modèles et y injecter des données. J'aimerai ensuite pouvoir "extraire" cette feuille "modifiée" et l'enregistrer dans un nouveau classeur...

Actuellement, j'utilise (je bosse sous Access, c'est pour ça le "Excel.") :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    Dim wb As Excel.Workbook
 
    Dim path As String
    path = "E:\testVBA\"
 
    Set wb = Excel.Workbooks.Open _
        (Filename:=path + "modele.xlt", UpdateLinks:=False, AddToMRU:=False, Editable:=True)
 
    'edition du contenu
    'edition du contenu
    'edition du contenu
    '...
 
    wb.Close True, path + "generated.xls"

Mais là, il m'enregistre tout le document, en incluant toutes les feuilles du classeur. J'aimerai ne récupérer que la feuille que j'ai traitée...

Est-ce que vous avez une tite idée ? D'avance merci pour vos suggestions

[Daranc]

peut être comme ceci

Code :

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

1
2
3
4
ActiveSheet.Move Before:=Sheets(1) 'pour mettre le document en position 1
  For t = 2 To Sheets.Count  'supprimer les autres feuilles a partir de la 2
  Sheets(t).Delete
  Next

il nereste plus qu'à enregistrer
Cordialement
Daranc

[titouille]

Ah ben tiens... j'avais pas du tout pensé à ça... en fait c'est vrai, j'ai pas besoin d'exporter ma feuille dans un autre classeur... je supprime tout ce dont je n'ai pas besoin avant l'enregistrement et c'est bon... ça c'est vraiment pas bête dis donc

Merci beaucoup, je teste dès que possible.

[titouille]

Hello,

Alors j'ai testé tout ça, mais malheureusement, je n'arrive pas à supprimer les feuilles...

Le déplacement en première positon est ok, mais la suppression ne fonctionne pas... j'ai essayé différentes manières et différentes syntaxes, mais rien n'y fait, ça ne veut pas...

J'ai tenté de supprimer via les indexes numériques, et également via les indexes alphanumériques (nom de la feuille) mais ça ne change rien...

J'ai tenté de passer par wb.Sheets(index), wb.Worksheets(index), de récupérer directement un objet Sheet et de lui appliquer sa méthode Delete, mais non...

Est-ce que ça pourrait venir du fait que je travaille avec un document xlt par hasard ?? je ne comprend pas

D'avance merci pour une quelconque piste

[SilkyRoad]

bonjour

Alors j'ai testé tout ça, mais malheureusement, je n'arrive pas à supprimer les feuilles...

Le déplacement en première positon est ok, mais la suppression ne fonctionne pas... j'ai essayé différentes manières et différentes syntaxes, mais rien n'y fait, ça ne veut pas...

Il ne se passe rien?
Tu as un message d'erreur?
Si oui lequel?
Peux tu montrer ta procédure?



Sinon tu peux tester cette autre possiblité:

Code :

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

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
31
    Dim Wb As Excel.Workbook, WbCopie As Excel.Workbook
    Dim Path As String, NomFeuille As String
 
    Path = "C:\"
    NomFeuille = "Feuil2" 'Nom de la feuille à extraire
 
    'Excel.Application.Visible = True
    Set Wb = Excel.Workbooks.Open _
        (FileName:=Path + "modele.xlt", UpdateLinks:=False, _
        AddToMRU:=False, Editable:=True)
 
    'Copie de la feuille cible dans un nouveau classeur
    Wb.Worksheets(NomFeuille).Copy
    Set WbCopie = Excel.ActiveWorkbook
 
    '
    'écriture dans le nouveau classeur
    WbCopie.Worksheets(NomFeuille).Range("A1") = "Essai"
    '
    '
 
    'Sauvegarde du nouveau classeur
    WbCopie.SaveAs Path & "generated.xls"
    'Puis fermeture
    WbCopie.Close True
 
    'Fermeture du modèle
    Wb.Close False
 
    'Fermeture application Excel
    Excel.Application.Quit

michel