Discussion :

[aminepop]

bonjour tous le monde

je cherche un script pour faire la conversion de fichier Excel vers fichier KML ou KMZ ou bien si vous avez une solution par exemple de passer avec un fichier TXT c'est a dire xls => txt=> kml

merci d'avance

[aminepop]

est ce que c'est juste ? car sa marche pas chez moi

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
45
46
47
48
49
50
51
52
53
54
55
<?php 
function xls2kml($xls,$kml)
{
 
// Pas de paramétres requis
$empty = new VARIANT();
 
/* Supression du kml si il existe */
if(file_exists ($kml))
@unlink($kml);
 
/* Démarrage de Word */
$w = new COM("word.application") or die("Impossible d'instancier l'application Word");
 
/* Test de Word 2007 */
if($w->Version > 11)
{
/* Amener Word devant */
$w->Visible = 1;
 
/* Test du fichier */
if(file_exists ($xls))
$w->Documents->Open($xls);
else
return false;
 
/* Quelques commandes */
$w->Documents[1]->SaveAs($kml,17);
 
/* Fermeture de word */
$w->Documents[1]->Close(false);
}
$w->Quit($empty,$empty,$empty);
 
 
/* Libération des ressources */
$w = null;
unset($w);
 
/* Test du fichier */
if(file_exists ($kml))
return true;
else
return false;
 
}
 
 
$xls="C:\wamp\www\test\test.xlsx";
$kml="C:\wamp\www\test\test.kml";
 
xls2kml($xls,$kml);
 
 
?>

[aminepop]

j'ai arrivé a ce code mais j'aimerai bien avoir une orientation, comment l'utiliser et est ce que il est juste voila le code

<?php
function xls2kml($xls,$kml)
{

// Pas de paramétres requis
$empty = new VARIANT();

/* Supression du kml si il existe */
if(file_exists ($kml))
@unlink($kml);

/* Démarrage de Word */
$w = new COM("word.application") or die("Impossible d'instancier l'application Word");

/* Test de Word 2007 */
if($w->Version > 11)
{
/* Amener Word devant */
$w->Visible = 1;

/* Test du fichier */
if(file_exists ($xls))
$w->Documents->Open($xls);
else
return false;

/* Quelques commandes */
$w->Documents[1]->SaveAs($kml,17);

/* Fermeture de word */
$xls->Documents[1]->Close(false);
}
$w->Quit($empty,$empty,$empty);


/* Libération des ressources */
$w = null;
unset($w);

/* Test du fichier */
if(file_exists ($kml))
return true;
else
return false;

}


$xls="C:\wamp\www\test\test.xlsx";
$kml="C:\wamp\www\test\test.kml";

xls2kml($xls,$kml);


?>