Tom's Guide > Forum > Programmation > Pb excel

Pb excel

Forum Programmation : Pb excel

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
salistase   28-08-2007 à 10:27:41

Encore moi :kaola:
voilà j'ai besoin d'exploiter les données d'une bases de données Mysql et de les afficher dans un ficheir excel qui va s'ouvrir ds ma page web.
je suis en local sous esayphp avec une base mysql 4.0.15
ma page ne m'affiche pas d'erreur mais le fichier ne se crée pas, j'ai une page blanche à la place avec ma phrase :

"création du fichier en cours ..."

QQn peut m'aider SVP.

voici le code (c un peu long ;) )


Code :
  1. <html>
  2. <head>
  3. <title>Entrenoo/Creation fichier Liste des fichiers reçus des URR</title>
  4. </head>
  5. <body>
  6. Création du fichier en cours...
  7. <script type="text/vbscript">
  8. <!--
  10. Set monexcel = CreateObject("Excel.Application" )
  11. monexcel.visible=true
  14. Set newBook = monexcel.Workbooks.Add
  15. newBook.Worksheets(1).Name="Liste des Fichiers reçus"
  18. monexcel.Selection.cells(1,1).value="Code Nidt"
  19. monexcel.Selection.cells(1,2).value="Nom du Site"
  20. monexcel.Selection.cells(1,3).value="Fichiers"
  21. monexcel.Selection.cells(1,4).value="Date Exportation"
  22. monexcel.Selection.cells(1,5).value="URR"
  23. monexcel.Selection.cells(1,6).value="Code DR"
  24. monexcel.Selection.cells(1,7).value="Maintenance"
  25. monexcel.Selection.cells(1,8).value="Prestataire"
  26. monexcel.Selection.cells(1,9).value="Mois"
  28. Set objselect = monexcel.Range("A1","I1" ) 
  29. objselect.Select
  30. monexcel.Selection.Font.Bold=true
  32. <?php
  34. $annee=2007;
  35. $SQL="SELECT f.code_nidt, f.Fichiers, u.dr, s. code_dr, s.nom_site, f.DateEntree, f.prestataire, f.mois, s.maintenance FROM MPM_Liste_Fichiers f, site s, MPM_URR u WHERE f.annee=2007 AND f.Fichiers=Site  AND  f.codePRE=4 AND f.code_nidt=s.code_nidt AND  (u.code1=s.code_dr  or u.code2=s.code_dr) order by u.dr, f.code_nidt ";
  36. $rs=mysql_query($SQL) or die (mysql_error());
  37. $nbligne=mysql_numrows($rs);
  38. $i=0;
  39. while($i<$nbligne)
  40. {
  41. $dtentree=mysql_result($rs,$i,"DateEntree" );
  42. $code_nidt=mysql_result($rs,$i,"code_nidt" );
  43. $nom_site=mysql_result($rs,$i,"nom_site" );
  44. $dr=mysql_result($rs,$i,"dr" );
  45. $code_dr=mysql_result($rs,$i,"code_dr" );
  46. $maintenance=mysql_result($rs,$i,"maintenance" );
  47. $prestataire=mysql_result($rs,$i,"prestataire" );
  48. $mois=mysql_result($rs,$i,"mois" );
  50. $Libfic="Contrôle état général";
  51. }
  52. $i++;
  53. ?>
  54. monexcel.Selection.cells(<? $i ?>+1,1).NumberFormat="@"
  55. monexcel.Selection.cells(<? $i ?>+1,1).value="<? echo $code_nidt; ?>"
  56. monexcel.Selection.cells(<? $i ?>+1,4).NumberFormat="@"
  57. monexcel.Selection.cells(<? $i ?>+1,4).value="<? echo $dtentree; ?>"
  58. monexcel.Selection.cells(<? $i ?>+1,2).value="<? echo $nom_site; ?>"
  59. monexcel.Selection.cells(<? $i ?>+1,3).value="<? echo $Libfic; ?>"
  60. monexcel.Selection.cells(<? $i ?>+1,5).value="<? echo $dr; ?>"
  61. monexcel.Selection.cells(<? $i ?>+1,6).value="<? echo $code_dr; ?>"
  62. monexcel.Selection.cells(<? $i ?>+1,7).value="<? echo $maintenance; ?>"
  63. monexcel.Selection.cells(<? $i ?>+1,8).value="<? echo $prestataire; ?>"
  64. monexcel.Selection.cells(<? $i ?>+1,9).value="<? echo $mois; ?>"
  66. Set objselect = monexcel.Range("A2","I"&"<? $nbligne+1 ?>" ) 
  67. objselect.Select
  68. monexcel.Selection.Name="listeimport"
  70. Set objselect = monexcel.Range("A1","I"&"<? $nbligne+1 ?>" ) 
  71. objselect.Select
  72. monexcel.Selection.Borders(3).LineStyle=1 'bordures interieures
  73. monexcel.Selection.Borders(2).LineStyle=1 'bordures exterieures
  74. window.location="../accueil/accueil_MPM.php"
  76. //-->
  77. </script>
  78. </body>
  79. </html>

Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
coca25   28-08-2007 à 11:32:06
- 0 +

salut,
tu l'ouvres avec quel navigateur?

 

la syntaxe en php:

Code :
  1. <? $nbligne+1 ?>


n'est pas bonne!
tu peux utiliser la syntaxe courte

Code :
  1. <?= $nbligne+1 ?>

mais il faut qu'elle soit activée.


Message édité par coca25 le 28-08-2007 à 11:40:43
------------------------------ Ne pas oublier le [resolu] pour finir le sujet.
Penser à voir les tutos, ca peut aider!
 Répondre à coca25
salistase   28-08-2007 à 11:35:43
- 0 +

j'utilise IE .
si je veux utiliser la syntaxe que tu me prooses, qu'est ce qu'il faut activer?


Message édité par salistase le 28-08-2007 à 11:40:03
Répondre à salistase
coca25   28-08-2007 à 11:45:16
- 0 +

il faut activer la balise short_open_tag dans php.ini mais dans le doute utilise

Code :
  1. <?php echo $nbligne+1; ?>



pour ton script, remplace le die (mysql_error ()) par:

Code :
  1. die ('msgbox "' . mysql_error () . "\"\n" );


------------------------------ Ne pas oublier le [resolu] pour finir le sujet.
Penser à voir les tutos, ca peut aider!
 Répondre à coca25
salistase   28-08-2007 à 11:53:00
- 0 +

Aucun changement, pas de message d'erreur.
tjrs une page blanche avec la phrase " Création du fichier en cours..."

Répondre à salistase
coca25   28-08-2007 à 11:56:43
- 0 +

tu peux poster le code source de la page?
celui que tu obtiens en cliquant droit sur la page puis code source.

------------------------------ Ne pas oublier le [resolu] pour finir le sujet.
Penser à voir les tutos, ca peut aider!
 Répondre à coca25
salistase   28-08-2007 à 12:04:18
- 0 +

j'obtients des erreurs(j'ai oublié de mettre ma fonction Connection pour se connecter à ma BDD) qd j'affiche le code source .
je continue à les corriger et je te tiens au courant.

Répondre à salistase
salistase   28-08-2007 à 12:23:55
- 0 +

voilà, Mis à part l'erreur de la fonction Connection(), ma requête ne fonctionnait pas car il y avait une erreur de syntaxe.

AND f.Fichiers="Site"

maintenant j'ai un autre pb :

Fatal error</b>: Maximum execution time of 180 seconds exceeded

le temps était fixé à 60 et j'ai testé avec 180 mais je n'ai tjrs rien, si j'augmente encore est ce que ça causer des pbs?
merci

Répondre à salistase
coca25   28-08-2007 à 13:47:51
- 0 +

faut etre un peu logique :p, si le script prend du temps, c'est qu'il y a un probleme, rallonger le temps maximum ne sert à rien!

Code :
  1. $i=0;
  2. while($i<$nbligne)
  3. {
  4. //...
  5. }
  6. $i++;


le $i++ est en dehors de la boucle, ce qui donne une boucle infinie

------------------------------ Ne pas oublier le [resolu] pour finir le sujet.
Penser à voir les tutos, ca peut aider!
 Répondre à coca25
salistase   28-08-2007 à 14:02:05
- 0 +

lol c vrai.
j'ai corrigé l'erreur, je n'ai plus de message d'erreur mais j'ai tjrs la page blanche sans rien.

voici le code source:

Code :
  1. <html>
  2. <head>
  3. <title>Entrenoo/Creation fichier Liste des fichiers reçus des URR</title>
  4. </head>
  5. <body>
  6. Création du fichier en cours...
  7. <script type="text/vbscript">
  8. <!--
  10. Set monexcel = CreateObject("Excel.Application" )
  11. monexcel.visible=true
  14. Set newBook = monexcel.Workbooks.Add
  15. newBook.Worksheets(1).Name="Liste des Fichiers reçus"
  18. monexcel.Selection.cells(1,1).value="Code Nidt"
  19. monexcel.Selection.cells(1,2).value="Nom du Site"
  20. monexcel.Selection.cells(1,3).value="Fichiers"
  21. monexcel.Selection.cells(1,4).value="Date Exportation"
  22. monexcel.Selection.cells(1,5).value="URR"
  23. monexcel.Selection.cells(1,6).value="Code DR"
  24. monexcel.Selection.cells(1,7).value="Maintenance"
  25. monexcel.Selection.cells(1,8).value="Prestataire"
  26. monexcel.Selection.cells(1,9).value="Mois"
  28. Set objselect = monexcel.Range("A1","I1" ) 
  29. objselect.Select
  30. monexcel.Selection.Font.Bold=true
  32. monexcel.Selection.cells(408+1,1).NumberFormat="@"
  33. monexcel.Selection.cells(408+1,1).value="00011068H7"
  34. monexcel.Selection.cells(408+1,4).NumberFormat="@"
  35. monexcel.Selection.cells(408+1,4).value="09/02/2007"
  36. monexcel.Selection.cells(408+1,2).value="VILLEVOCANCE"
  37. monexcel.Selection.cells(408+1,3).value="Contrôle état général"
  38. monexcel.Selection.cells(408+1,5).value="Rhône Durance"
  39. monexcel.Selection.cells(408+1,6).value="H7"
  40. monexcel.Selection.cells(408+1,7).value="GIL Aubenas
  41. "
  42. monexcel.Selection.cells(408+1,8).value="GILM Tournon"
  43. monexcel.Selection.cells(408+1,9).value="2"
  45. Set objselect = monexcel.Range("A2","I"&"409" ) 
  46. objselect.Select
  47. monexcel.Selection.Name="listeimport"
  49. Set objselect = monexcel.Range("A1","I"&"409" ) 
  50. objselect.Select
  51. monexcel.Selection.Borders(3).LineStyle=1 'bordures interieures
  52. monexcel.Selection.Borders(2).LineStyle=1 'bordures exterieures
  53. window.location="../accueil/accueil_MPM.php"
  55. //-->
  56. </script>
  57. </body>
  58. </html>

Répondre à salistase
coca25   28-08-2007 à 14:29:12
- 0 +

si tu as une seule erreur dans ton vbscript, l'excel n'est pas généré.
dans le source que tu m'as donné:

Code :
  1. monexcel.Selection.cells(408+1,7).value="GIL Aubenas
  2. "


il y a un saut de ligne en trop!

 

de plus ta boucle ne sert à rien, tu affectes aux memes variables, à la fin, tu n'as que le dernier enregistrement.

Message cité 1 fois
Message édité par coca25 le 28-08-2007 à 14:29:23
------------------------------ Ne pas oublier le [resolu] pour finir le sujet.
Penser à voir les tutos, ca peut aider!
 Répondre à coca25
salistase   28-08-2007 à 14:46:57
- 0 +

je vois pas où est le saut de ligne en trop
en fait c pas ma boucle qui ne sert à rien mais j'ai plutôt refermé les "}" au mauvais endroit.
il a fallu refermer le "}" du while après cette ligne

monexcel.Selection.cells(<? echo $i+1; ?>,9).value="<? echo $mois; ?>"

maintenant qd je regarde le code source, elle m'affiche tous les enregistrements et pas seulement le dernier.

mais sur ma page php je n'ai tjrs rien

Message cité 1 fois
Répondre à salistase
coca25   28-08-2007 à 14:49:37
- 0 +

salistase a écrit :

je vois pas où est le saut de ligne en trop



coca25 a écrit :


Code :
  1. monexcel.Selection.cells(408+1,7).value="GIL Aubenas
  2. "




le " est bien sur une nouvelle ligne non?

------------------------------ Ne pas oublier le [resolu] pour finir le sujet.
Penser à voir les tutos, ca peut aider!
 Répondre à coca25
salistase   28-08-2007 à 14:59:07
- 0 +

oui et d'ailleurs je sais pas pourquoi il ya une nouvelle ligne.
je vais enlever les " " complètement pour cette ligne et voir si ça marche

Message cité 1 fois
Répondre à salistase
salistase   28-08-2007 à 15:19:29
- 0 +

Tjrs rien malheureusement...

Répondre à salistase
coca25   28-08-2007 à 15:41:04
- 0 +

salistase a écrit :

oui et d'ailleurs je sais pas pourquoi il ya une nouvelle ligne.
je vais enlever les " " complètement pour cette ligne et voir si ça marche


t'y vas au pif, c'est ca :D
c'est du vbscript, un langage! et les ", c'est pour délimiter une chaine!

------------------------------ Ne pas oublier le [resolu] pour finir le sujet.
Penser à voir les tutos, ca peut aider!
 Répondre à coca25
salistase   28-08-2007 à 15:48:24
- 0 +

et voilà que tu te moque de moi encore une fois
ça marche bien qd je les enlève, pas de saut de ligne mais j'ai tjrs rien

Message cité 1 fois
Répondre à salistase
coca25   28-08-2007 à 16:07:45
- 0 +

salistase a écrit :

et voilà que tu te moque de moi encore une fois


non, mais toi si

salistase a écrit :


ça marche bien qd je les enlève, pas de saut de ligne mais j'ai tjrs rien


qu'est ce qui te permet de dire que ca marche bien?
pas de message d'erreur ne veut pas dire pas d'erreur.

Code :
  1. monexcel.Selection.cells(408+1,7).value=GIL Aubenas


ne veut strictement rien dire!

pour t'en assurer, prend le code source (la sortie sans le php) que tu as posté, sauvegarde dans un .html, enleve le retour à la ligne avant le " puis ouvres le avec explorer!

------------------------------ Ne pas oublier le [resolu] pour finir le sujet.
Penser à voir les tutos, ca peut aider!
 Répondre à coca25
salistase   28-08-2007 à 16:48:15
- 0 +

t'as sûrement raison
mais est ce que dois enlever tous les sauts de lignes de trop ds mon code source??

Répondre à salistase
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > Pb excel
Aller à :

Il y a 2626 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,284 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens