1. #1
    Membre du Club
    Homme Profil pro
    Responsable de projet fonctionnel
    Inscrit en
    avril 2004
    Messages
    105
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Responsable de projet fonctionnel
    Secteur : Service public

    Informations forums :
    Inscription : avril 2004
    Messages : 105
    Points : 45
    Points
    45

    Par défaut Supprimer un onglet dans Excel avec Coldfusion

    Bonjour à tous,

    Dans une appli type web, je dois générer un fichier Excel provenant d'un modèle (avec multiples onglets) mais ne contenant qu'un onglet (en fonction des droits des utilisateurs).

    J'ai donc fait ceci... mais impossible de trouver comment supprimer les onglets non nécessaires :
    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
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    <cfset onglet = "test">
    <cfset w_date_jour = dateformat(now(),"yyyymmdd")>
    			
    <CFTRY>
       <CFOBJECT        
    	ACTION="CONNECT"
    	CLASS="Excel.Application"
    	NAME="objExcel"
    	TYPE="COM">
    <CFCATCH>
       <CFOBJECT
    	ACTION="CREATE"
    	CLASS="Excel.Application"
    	NAME="objExcel"
    	TYPE="COM">
    </CFCATCH>			   
    </CFTRY>
    			
    <!---Création du fichier Excel --->
    <cfscript>
    	objExcel.Visible = false;
    	objExcel.DisplayAlerts = false;  
    				
            // Ouverture du fichier source
    	objWorkBook_temp = objExcel.Workbooks.Open("#application.temp#\mon_modele_excel.xls");
    	objWorkSheets_temp = objExcel.WorkSheets;
    	numOfSheets = objWorkSheets_temp.Count;
    	
            for(w=numOfSheets; w gt 1; w=w-1){
    		objWorkSheet_temp = objWorkSheets_temp.Item(val(w));			
    					
    		if(objWorkSheet_temp.Name neq #onglet#){
    			//objWorkSheet_temp.Delete();
    		        objWorkSheets_temp.Item(objWorkSheet_temp.Name).Delete();
    		}
    	}
    				
    	fic = "#application.temp#\mon_fichier_" & #w_date_jour# & ".xls";
    	objWorkBook_temp.SaveAs(fic2,Val(1));
    	objWorkBook_temp.Close();
    	objexcel.quit();
    	ReleaseComObject(objexcel);
    </cfscript>
    Et j'ai cette erreur :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    An exception occurred when accessing a Com object field.  
    The cause of this exception was that: AutomationException: 0x800a01a8 - .
    Merci d'avance à tous

  2. #2
    Membre du Club
    Homme Profil pro
    Responsable de projet fonctionnel
    Inscrit en
    avril 2004
    Messages
    105
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Responsable de projet fonctionnel
    Secteur : Service public

    Informations forums :
    Inscription : avril 2004
    Messages : 105
    Points : 45
    Points
    45

    Par défaut

    J'ai résolu le problème en écrivant ma boucle FOR comme suit :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    for(w=numOfSheets; w gt 1; w=w-1){
    	objWorkSheet_temp = objWorkSheets_temp.Item(val(w));								
    	objWorkSheet_temp.Activate;
    						
    	if(objWorkSheet_temp.Name neq #onglet#){
    		objWorkSheet_temp.Delete;
    	}
    }
    Apparemment, il fallait activer la feuille pour pouvoir la supprimer... Rien à voir avec CF finalement

+ Répondre à la discussion
Cette discussion est résolue.

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo