[Excel] Comment déplacer un feuillet ?
Bonjour, :D
Voila je fais une application qui (en gros) charge un fichier texte dans excel et crée sur base des cellule dans la premiere fiche des graphiques sur les suivantes ... l'inconvénient c que qu'une fois le traitement fini les fiches sont dans l'ordre inverse ...
J'ai essayer de faire comme un swap :
du genre OleClasseur2.Worksheets.item[1] devient OleClasseur2.Worksheets.item[2] ect ... mais bon évidement c pas aussi simple lol ...
je sais que dans la faq ya moyen d'ajouter une feuille en fin de position au lieu de chaque fois prendre la place de la premiere ... mais de la facon dont j'ai construit l'api cette manip :
Monclasseur.Sheets.Add(EmptyParam,monclasseur.Sheets[monclasseur.Sheets.count],1,xlWBATExcel4MacroSheet,0);
ne convient pas ...
Mon code ressemble plus a ca :
OleClasseur2 := OleApplication.Workbooks.Add;
FeuilSource := OleClasseur1.Worksheets[1];
FeuilRapport := OleClasseur2.Worksheets[1];
NomFeuil1 := 'Rapport Final';
OleClasseur2.Worksheets.item[1].Name := NomFeuil1;
FeuilRapport.Cells.Item[2,1].value := XLSFile.FichTitle;
Enfin a titre d'exemple ...
QQ aurait une idée SVP ... pcq j'ai chercher partout une liste des propriétés que je peux utiliser mais c vraiment pas évident ...
enfin voila je repasserais demain :wink:
Re: Excel déplacement de feuillet
Salut,
Citation:
Envoyé par KarMa_CoMa
QQ aurait une idée SVP ... pcq j'ai chercher partout une liste des propriétés que je peux utiliser mais c vraiment pas évident ...
Consulte la FAQ pour avoir qq infos sur l'aide des serveurs Office.
Code:
1
2
3
4
| Move
Déplace la feuille en un autre endroit du classeur.
Syntaxe
expression.Move(Before, After) |
Code:
1
2
3
4
5
|
Cet exemple montre comment placer Sheet1 après Sheet3 dans le classeur actif.
Worksheets("Sheet1").Move _
after:=Worksheets("Sheet3") |
A vérifier.
