code php pour ouvrir .xls en .pdf

Version imprimable

22/10/2008, 10h05
fthem

code php pour ouvrir .xls en .pdf

Salut à tous,
je suis sur un site intranet, il y a un lien qui pointe vers un fichier .xls et qui permet d'ouvrir ce fichier .xls
Existe-t-il un code php permettant d'indiquer que lorsque je clique sur ce lien :ouvres moi ce fichier .xls avec acrobat (au format pdf)?
Merci
22/10/2008, 10h30
sabotage

Que veux-tu dire par "ouvrir un .xls au format .pdf" ?
22/10/2008, 10h34
fthem

disons, que je voudrais ouvrir un fichier .xls au format .pdf (qu'il soit non modifiable )en cliquant sur le lien du site intrant
faut-il que se soit déja un fichier au format .pdf
ou peut-on ecrire du code permettant de dire :"ouvrir avec acrobat"???
22/10/2008, 10h40
sabotage

Citation:

Que veux-tu dire par "ouvrir un .xls au format .pdf" ?

Citation:

disons, que je voudrais ouvrir un fichier .xls au format .pdf

ah c'est plus clair :aie:

adobe acrobat ne sait pas lire un fichier excel.

mais pourquoi veux-tu empecher la modification du fichier excel ?
22/10/2008, 10h51
fthem

ce fichier .xls est passé par plusieurs étapes de modifications qui chaque fois, écrase la version précédente et lorsqu'il arrive au valideur final, celui ci par une macro Vba sur ce fichier excel pousse le fichier excel dans le ftp et à partir de ce moment là, il faudrait que l'on ne puisse que lire ou imprimer ce fichier, qu'il soit non modifiable
22/10/2008, 11h03
sabotage

On ne peut pas modifier le fichier sur le serveur : Le fichier qui est ouvert quand on clique sur le lien est un fichier temporaire local.
22/10/2008, 11h17
fthem

oui mais lorsque j'ouvre mon fichier, par un premier clic sur un bouton du fichier, je l'enregistre sous dans un coin de mon pc sans le fermer à partir de là je peut le modifier et par un clic sur un autre bouton du fichierj'enregistre la modfi et le pousse dans le ftp:?
22/10/2008, 11h31
sabotage

C'est peut etre la qu'il faut revoir ton systeme : le fichier placé sur le ftp ne devrait plus avoir l'automatisation d'upload.
22/10/2008, 11h41
fthem

oui mais même si le gars clique sur le lien et ouvre le fichier excel il peut tout de même modifier des cellules et imprimer la feuille même si ensuite cela lui propose de l'enregistrer sous et qu'il abandonne le procéssus,
il aurra tout de même imprimé un document diférent de celui VALIDE
je voudrais empécher cela ...
22/10/2008, 12h07
sabotage

Puisqu'il a accès au ftp, il peut recuperer le fichier et le modifier de toute facon.
22/10/2008, 14h54
fthem

alors, il faudrait peut étre plustot du code vba qui permet en cliquant sur le bouton dans excel d'enregistrer mon fichier .xls en .pdf et de le puosser dans le ftp comme cela en cliquant sur le lien du site intranet cela m'ouvrirait un .pdf non modifiable,
le problème, c'est le poids du fichier .pdf environ 306Ko
22/10/2008, 15h42
grunk

Citation:

le problème, c'est le poids du fichier .pdf environ 306Ko

En intranet le poids de tes ressource n'aucune importance (dans une certaine limite tout de même ^^ ).
Tu pourrais avoir un pdf de 5Mo que ca serais pareil ;)
30/10/2008, 13h15
kanabzh29

Et pourquoi tu n'interdit pas directement la modification dans ton fichier excel avant de le placer sur ton FTP ?
30/10/2008, 20h00
morgan47

pk ne par convertir le xls en pdf?
30/10/2008, 23h44
kanabzh29

Je ne suis pas sur qu'a partir du php tu puisse convertir un xls en pdf, je pense qu'il te faudrait passer par du VBA pour convertir en CSV ou en XML à la limite et après le convertir en PDF, mais directement de xls vers pdf en passant par PHP, je ne suis pas sur que cela soit possible.
31/10/2008, 00h10
sabotage

PHP sachant lire un xls et ecrire un pdf, techniquement c'est faisable.
31/10/2008, 11h59
kanabzh29

Utilise l'objet COM pour lire le fichier excel. Ensuite tu place les donner ou tu le souhaite (tableaux, csv, BDD) ensuite tu utilise la PhpToPdf en php pour le convertir...enfin placer les données extraites du fichier excel dans un fichier PDF
03/11/2008, 09h29
fthem

Code:

Utilise l'objet COM pour lire le fichier excel. Ensuite tu place les donner ou tu le souhaite (tableaux, csv, BDD) ensuite tu utilise la PhpToPdf en php pour le convertir...enfin placer les données extraites du fichier excel dans un fichier PDF

Ok mais c'est un fichier xls assez complexe est-ce possible?

Code:

PhpToPdf en php

ou ça se trouve?????

avez vous un exemple????
03/11/2008, 09h42
kanabzh29

Objet COM :

http://stephaneey.developpez.com/tutoriel/php/phpexcel/

PhpToPDF :

http://jc-cornic.developpez.com/tuto.../pdf/index.php

L'objet COM, je ne l'ai jamais utilisé, donc je pourrais pas te dire, mais je pense que mème avec un document complexe, c'est possible.
La librairie PDF, lis le tuto, elle est assez facile à utiliser.
03/11/2008, 11h14
fthem

OK, je comprends la philosophie du truc,
mais ce n'est pas ce que je voudrai faire,et c'est assez "lourd" à réaliser...
Ou alors, existe-t-il un code VBA qui me permet de faire la même chose que lorsque je clique droit sur le fichier .xls et que je choisi "Créer des fichiers PDF avec PDF Créator"???
03/11/2008, 11h28
kanabzh29

Avec PDF creator, je ne suis pas sur que tu ais besoin de convertir, PDF Creator imite une imprimante virtuel et te ressort le fichier. Donc après tu imprime ce que tu veux a mon avis, tu peux toujours essayer.

Sinon il existe ce site :

Express PDF

Citation:

Ou alors, existe-t-il un code VBA qui me permet de faire la même chose que lorsque je clique droit sur le fichier .xls et que je choisi "Créer des fichiers PDF avec PDF Créator"???

Si tu as l'object sur ton ordi c'est simple
voici un appel d'une meme object avec trois language
en vba
Code:

1 2 3 4 5 6 Private Sub CommandButton1_Click() Dim obj As Object Set obj = CreateObject("WScript.Shell") Call obj.Popup("Exemple alert 1", 0, "le titre ", 0) End Sub
en php
Code:

1 2 3 4 5 <?php $obj = new COM("WScript.Shell"); $obj->Popup("Exemple alert 1",0,"le titre ",0); ?>
en javascript
Code:

1 2 3 4 5 6 7 <script> <!-- var obj; obj = new ActiveXObject("WScript.Shell"); obj.Popup("Exemple alert 1",0,"le titre ",0); </script>

03/11/2008, 13h28
fthem
SAlut Montor
Code:

1 2 3 4 5 Private Sub CommandButton1_Click() Dim obj As Object Set obj = CreateObject("WScript.Shell") Call obj.Popup("Exemple alert 1", 0, "le titre ", 0) End Sub
ton code m'ouvre un popup avec "titre","Exemple alert" et le bouton "OK"
excuses moi, mais je suis loin de mon pdf comment puis je savoir quel et ou se trouve l'object sur mon pc?
je n'ai pas beaucoups évolué comme tu vois...:roll:
04/11/2008, 13h02
Montor

Bonjour non le code que je viens de citer n'est pas pour créer un fichier pdf mais pourquoi cette obsession tu peux simplement protéger tes feuilles par un mot de passe (outil ->protection) contre la modification et impression sera toujours disponible
04/11/2008, 13h15
fthem

Salut

Code:

protéger tes feuilles par un mot de passe

Alors peut on le faire par du code VBA?
04/11/2008, 13h18
kanabzh29

C'est ce que je lui avais dit dès le départ... Franchement t'embête pas à pisser du code pour rien, la protection des feuilles excel marche très bien et empêche toute modification, cela te fait gagner du temps (et le temps c'est de l'argent :) ).

Si tu veux lire un fichier excel : Objet COM (adresse indiquée plus haut)
Si tu veux ensuite un fichier pdf : phpToPdf ou Fpdf

Mais franchement tu vas t'embêter pour rien vu qu'une protection existe déja sur Excel, maintenant si tu veux vraiment le coder, bas utilise les ressources que l'on ta indiqué et si tu as des erreurs montre les nous et on t'aidera. On ta donné toute les billes, maintenant à toi de voir, mais ce qui est sur c'est qu'on ne va pas te donner le code entier.

Citation:

Salut

Code:

protéger tes feuilles par un mot de passe

Alors peut on le faire par du code VBA?

Pourquoi tu veux le faire en codant, comme il t'a été indiqué :

Code:

outil -> protection

directement sur excel, pas besoin de code
04/11/2008, 13h47
fthem

Code:

Pourquoi tu veux le faire en codant

mon fichier excel passe entre plusieurs mains pour étre modifié et à chaque fois, chaque intervenant clique sur un bouton qui a pour effet d'enregistrer la modif et de pousser le fichier dans le ftp du serveur dans un endroit bien précis.
lorsque c'est le tour du dernier intervenant, lui, est là pour mettre son nom et effectuer une validation finale ( avec un bouton qui lui ai attribué spécialement pour ça) qui devrait rendre le fichier immodifiable .
C'est là que je voudrais qui lorsque ce dernier intervenant clique sur le bouton du fichier cela génére un mot de passe qui protègerai la feuille et finit sa procédure en poussant dans le ftp
chest pas chi chui clair??????:(

je viens de touver ça

Code:

ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True, password:="Jennifer"

qui fonctionne pas mal qui m'empèche d'écrire dans les cellules, mais cela ne m'empèche pas de cacher et bloquer les macros???

J'ai trouvé cela sur internet, peut être que ça pourra t'aider :

Citation:

Code:

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub SheetProtect(ByVal sBookAProteger As String, ByVal sFeuilleAProteger As String, ByVal vPassword As Object) 
If Dir(sBookAProteger) <> "" Then
Dim xlApp As Excel.Application 
Dim xlBook As Workbook
Dim i As Integer
 
xlApp = CreateObject("Excel.Application") 
xlBook = xlApp.Workbooks.Open(sBookAProteger)
For i = 1 To xlBook.Sheets.Count 
If xlBook.Sheets(i).Name = sFeuilleAProteger Then
 
xlBook.Activate()
 
xlBook.Sheets(sFeuilleAProteger).Select()
 
xlBook.Worksheets(sFeuilleAProteger).Protect(vPassword)
 
Exit For
 
ElseIf i = xlBook.Sheets.Count Then
MsgBox("La feuille à protéger n'existe pas!", vbCritical) 
End If
Next ixlBook.Close(True) 
xlApp.Quit()
 
xlBook = Nothing
 
xlApp = Nothing
 
Else
MsgBox("Le fichier n'existe pas, vérifier le chemin !", vbCritical) 
End If
 
End Sub
Sub SheetUnprotect(ByVal sBookADeproteger As String, ByVal sFeuilleADeproteger As String, ByVal vPassword As Object) 
If Dir(sBookADeproteger) <> "" Then
Dim xlApp As Excel.Application 
Dim xlBook As Workbook
Dim i As Integer
 
xlApp = CreateObject("Excel.Application") 
xlBook = xlApp.Workbooks.Open(sBookADeproteger)
For i = 1 To xlBook.Sheets.Count 
If xlBook.Sheets(i).Name = sFeuilleADeproteger Then
 
xlBook.Activate()
 
xlBook.Sheets(sFeuilleADeproteger).Select()
 
xlBook.Worksheets(sFeuilleADeproteger).Unprotect(vPassword)
 
Exit For
 
ElseIf i = xlBook.Sheets.Count Then
MsgBox("La feuille à déprotéger n'existe pas!", vbCritical) 
End If
Next ixlBook.Close(True) 
xlApp.Quit()
 
xlBook = Nothing
 
xlApp = Nothing
 
Else
MsgBox("Le fichier n'existe pas, vérifier le chemin !", vbCritical) 
End If
 
End Sub
'Exemple d'utilisation
Private Sub Button1__Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
'Protéger
Call SheetProtect("C:\Classeur1.xls", "Feuil2", 1206) 
'Déprotéger
Call SheetUnprotect("C:\Classeur1.xls", "Feuil2", 1206) 
End Sub

04/11/2008, 16h22
fthem

merci pour les infos le fait de bloquer l'écriture est déja pas malje ferai évoluer petit à petit
merci encore:king:
05/11/2008, 11h59
Montor

si tu veux une alternative tu peux enregister ton fichier excel sous format csv et utiliser ce test
tu mets les trois fichiers dans un meme dossier executer new_test_file.php pour creer un fichier de test (200000lignes 16MB) puis lancer le fichier demarrer.php
voir ici pour plus infos
http://www.developpez.net/forums/d63...b/#post3759762
si tu veux une version pour ecrire c'est faite
05/11/2008, 14h56
fthem

1 pièce(s) jointe(s)

csv.php

Bien sur que je suis toujours interressé, j'attendais avec impatience,
alors, j'ai créé un nouveau dossier csv2 pour tester
j'ai mis dans ce dossier: classes.php,démarrer.php,mon fichier test.php + ajax.js
je te mets en pièce jointe ce que j'obtient, je ne comprends pas d'ou vient le problème???
05/11/2008, 15h20
kanabzh29

1 pièce(s) jointe(s)

Pour ma part, je ne pense pas qu'il y ait de problème, il n'affiche seulement pas les case vide, dès qu'il n'y a pas de données entre deux ";" du csv, il ne met pas les <td> </td> mais <td></td> ce qui n'affiche rien en gros

Enfin je pense que c'est ça, je n'est pas un problème de code, mais juste d'affichage, il faut donc changer le mode d'affichage dans le code...je m'embrouille un peu la.

Je t'ai changé le code en mettant des " "
06/11/2008, 07h40
fthem

salut,
dans quel fichier as tu rajoutté " "
c'est dans le fichier démarrer???
mais comment l'écris-tu?
ensuite, je voit qu'il y a des couleurs définies dans les classes
mais dans mon tableau à l'écran je n'en ai pas ???
06/11/2008, 09h38
kanabzh29

J'ai écris directement les " " dans le html de la page "demarrer.htm", cela pour te montrer que ce n'était qu'un petit problème d'affichage, si les <td></td> n'ont aucune valeur à l'interieur elles ne s'affichent pas.

Maintenant, il faudrait que tu mette une condition dans le code qui crée automatiquement ce tableau, je ne l'ai pas regardé donc je ne peux te dire ou.

c'est une simlple demonstration
essaie j ne ai pas tester

Code:

1
2
3
4
5
6
7
8
9
10
11
foreach ($csv->buff as $keys=>$vals)
	{
		$out.="<tr>";
		foreach ($vals as $v)
		{
			$out.='<td>';
			$out.=($v!=="")?$v:'&nbsp;';
			$out.='</td>';
		}
		$out.="</tr>";
	}

08/11/2008, 13h18
Montor

essaie ce code

Bonjour
essaie ce code sur le forum