Discussion :

[Copyright83]

Bonjour à tous,

Je suis face à un problème assez originale.
Je développe une application en PHP qui écrit dans un fichier Excel à l'aide de l'objet COM.

Jusque là tout va bien, même si vous ne comprenez surement pas pourquoi je poste dans ce forum

La procédure est la suivante :
- je copie un fichier Excel à partir d'un autre qui contient lui-même 3 feuilles
- j'écris dans ce nouveau fichier dans les 3 feuilles existantes
- et je créé d'autres feuilles

C'est là qu'intervient mon problème : lors de la création de ces nouvelles feuilles, au lieu de les placer à la suite des autres, il me les place entre la 1ère et la 2ème feuilles.

Après avoir cherché sur le net j'ai trouvé un script VB qui pourrait m'aider, mais il faudrait que je le traduise en PHP.

Donc s'il y a des experts PHP/VB dans le coin, je serais intéressé par un coup de main.

Voici le script à traduire :

Code :

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

Set Sh1 = ActiveWorkbook.Worksheets.Add(After:=Worksheets("Test"))

Sachant que pour la création d'une feuille en PHP :

Code :

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

1
2
3
4
5
 
Workbook = $excel_app->Workbooks->Open($file) or Die("Impossible d'ouvrir le fichier Excel");
$Worksheet_crit = $Workbook->Worksheets->Add();
$Worksheet_crit->activate;
$Worksheet_crit->Name = 'nomDeMaFeuille';

Please help !

[faves]

C'est possible en utilisant la fonction Add avec tous les paramètres
et en définissant la feuille de référence :

Code :

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

1
2
3
4
5
6
7
8
9
 
$Workbook = $excel_app->Workbooks->Open($file) or Die("Impossible d'ouvrir le fichier Excel");
//récupère la feuille référence
$Worksheet_init = $Workbook->Worksheets("Test");
//Ajoute après 'Test'(deuxième paramètre de Add)
//avec comme type de feuille xlWorksheet (xlWorksheet=-4167)
$Worksheet_crit = $Workbook->Worksheets->Add(null,$Worksheet_init,1,-4167);
$Worksheet_crit->activate;
$Worksheet_crit->Name = 'nomDeMaFeuille';

Rappel : Worksheets.Add(Avant, Après, Nombre, Type)
Avant = référence du WorkSheet avant lequel on veut se placer
Après = référence du WorkSheet après lequel on veut se placer
Nombre = nombre de feuilles à ajouter
Type = type de feuille (énumération de type XlSheetType)

[Copyright83]

Bonjour Faves,

Merci pour votre réponse plus précise que tout ce que j'ai pu trouver sur le net.

En fin de compte j'ai trouvé un moyen en ne passant que par du VBA, ce qui me permet d'effectuer de multiples actions sur mon fichier Excel en un seul click.

Merci encore.

Copyright