Discussion :

[talumn]

Bonjour,

J'ai une feuille excel que je souhaiterai pouvoir publier au format.htm.
Il faut savoir que excel est manipulé par un script VB.
J'ai donc fait genèrer du code par excel via un enregistrement de macro. Code que j'ai ensuite réimplanté dans mon script.
Cependant le code plante a cette ligne :

Code :

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

1
2
 
appE.ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "c:\bal\test.htm", "Tableau", "", xlHtmlStatic, "", "").publish

Comme erreur, j'ai le droit a "Erreur d'exécution inconnue".

Si vous avez une idée, de l'erreur et de la manière de la résoudre, je suis preneur

Merci d'avance

Cédric

[Troopers]

essaie:

Code :

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

1
2
3
4
5
6
7
 
dim oWorkBook as Object
dim oPublish as Object
 
set oWorkBook=appE.ActiveWorkbook
set oPublish=oWorkBook.PublishObjects.Add(xlSourceSheet, "c:\bal\test.htm", "Tableau", "", xlHtmlStatic)
oPublish.publish

Attention! excel doit etre installé sur le poste client et tu doit commencer par créer une instance d'application:

Code :

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

1
2
3
4
 
dim appE as Object
 
set appE=CreateObject("Excel.Application")

Et à la fin tu quittes l'instance d'application:

Code :

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

1
2
3
 
appE.Quit
Set appE=Nothing

[talumn]

Voila, pb résolue.

en fait, le pb venait de cette ligne la :

Code :

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

1
2
 
appE.Sheets("Tableau").Select

que j'ai passé en :

Code :

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

1
2
 
appE.Sheets("Tableau").Activate

et ca résolue mon pb d'erreur.
je me suis aider de MSDN.
Mais je ne voit pas trop quelle est la différence entre Select et Activate
qui dans les 2 cas, fait passer ma feuille "tableau" en 1 er plan.

Enfin bref, maintenant ca marche

Merci a Troopers de m'avoir répondu

Cédric

[bellus33cg]

D'après l'AIDE ( ? ) EXCEL-VBA .... Activate ne s'intéresse qu'à 1 SEULE cellule... pour Select , rien ne prouve qu'au moins 1 cellule est bien sélectionnée...
"
Pour sélectionner une cellule ou une plage de cellules, utilisez la méthode Select. Pour activer une seule cellule, utilisez la méthode Activate.

Exemple
Cet exemple montre comment sélectionner les cellules A1:B3 dans la feuille « Sheet1 ».

Code :

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

1
2
Worksheets("Sheet1").Activate
Range("A1:B3").Select

"
Bon courage....