Discussion :

[Ben13d10]

Bonjour,

voila un petit soucis que je n'arrive pas à résoudre.

Je souhaite exporter plusieurs TCD vers EXCEL. Le premier de ces TCD s'exporte sans soucis, la feuille est renommée : OK

Le second, par contre, annule et remplace la premier. La fonction TCDVersExcel ne comporte pas d'option Fusion.

Avez vous une Idées ?

Merci par avance

Mon code :

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
TCDVersExcel(ONG_SYNTHESE.TCD_SansNom1,Mon_Fichier)
xl>>WorkBooks>>Open(Mon_Fichier)
xl>>Sheets>>Item( 1 )>>Select
xl>>Sheets>>Item( 1 )>>Name="Balance Fonctionnement"
xl>>ActiveWorkbook>>Save
xl>>ActiveWorkbook>>close()
xl>>Quit()
//--------------------------------
xl>>WorkBooks>>Open(Mon_Fichier)
xl>>WorkSheets>>Add()
xl>>Sheets>>Item( 1 )>>Select
xl>>Sheets>>Item( 1 )>>Name="Fonctionnement BIS"
xl>>ActiveWorkbook>>Save
xl>>ActiveWorkbook>>close()
xl>>Quit()
TableVersExcel(ONG_SYNTHESE.TCD_SansNom2,Mon_Fichier)

[Ben13d10]

Bonjour,

j'ai fini par trouver une solution

merci pour votre aide

[Lo²]

Et quelle est cette solution ?

[Ben13d10]

1- d'exporter le tcd dans un fichier excel indépendant
2- copier la feuille concerner dans le fichier excel souhaité
3- renommer la feuille

je sais c'est un peu simpliste mais cela fonctionne