Ouverture multiple de modèle mais, ils portent tous le même nom
Bonjour à tous.
J'ai créé une app. avec Delphi7 qui créer et formate des rapports dans Excel à partir d'un modèle (.xlt) que j'ai fait. Quand on ouvre un modèle directement avec Excel, le nom du fichier (caption) devient NomDuFichier1. Si j'ouvre à nouveau le même modèle, ce nouveau fichier prendra par défaut le nom de NomDuFichier2, puis NomDuFichier3 et ainsi de suite pour les suivants. Je me retrouve donc avec ces trois fichiers en référence sur ma barre de tâches, et dans le menu Fenêtre de Excel. Malgré tous mes essais, je n'arrive pas à reproduire ce comportement avec mon app. A chaque fois que j'ouvre le même modèle successivement, je me retrouve avec un nouveau fichier dans la barre de tâches (qui porte le même nom que le précédent), mais avec seulement un fichier dans le menu Fenêtre. Comment pourrais-je faire pour qu'à chaque fois que j'ouvre mon modèle, j'obtienne des nom de fichier avec un chiffre incrémenté?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Voici le code.
var
XLApp : Variant; // Application Excel
...
begin
XLApp := CreateOleObject('Excel.Application');
XLApp.visible := false;
gstrFichierModele := ExtractFilePath(Application.ExeName) + 'Rapport.xlt';
end;
...
begin
XLApp.Workbooks.add(gstrFichierModele) ;
XLApp.caption := 'Rapport - ' + dateToStr(Date);
end; |
J'ai aussi par la suite essayé de palier à ce problème en forgant le nom du fichier. J'ai donc essayé de renommer le workbook mais j'obtenais toujours des exceptions avec cette commande.
Code:
XLApp.Workbooks[1].Name := 'Rapport - ' + dateToStr(Date) + IntToStr(i) ;
Des suggestions?
Merci.
