Discussion :

[KarMa_CoMa]

Bonjour,

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

[Laurent Dardenne]

Salut,

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 :

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

1
2
3
4
Move
Déplace la feuille en un autre endroit du classeur.
Syntaxe
 expression.Move(Before, After)

Code :

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

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.

[KarMa_CoMa]

Hello !

Merci de ton aide ... j'ai rechercher sur google l'endroit ou tu avais trouver l'info et j'ai adapter le code ...

en fait ca donne ca au cas ou certains emploi la même méthode que moi

OleClasseur2.Worksheets[3].move(OleClasseur2.Worksheets[1]);
OleClasseur2.Worksheets[3].move(OleClasseur2.Worksheets[2]);

ceci déplace inverse le placement des feuilles c a d la 3 devient 1 et la nv 3 devient 2 ....

CQFD

Merci bcp laurent !!

A bientot !

[Raylemon]

Si ton problème est réglé, ajoute le tag résolu

[KarMa_CoMa]

LoL ...