cs_Patrice99
Messages postés1221Date d'inscriptionjeudi 23 août 2001StatutMembreDernière intervention 9 septembre 2018 24 sept. 2017 à 11:05
Version 1.12 : Association du menu contextuel via tous les fichiers (*) au lieu de .xls qui ne fonctionne plus (solution provisoire).
gillardg
Messages postés3275Date d'inscriptionjeudi 3 avril 2008StatutMembreDernière intervention14 septembre 20142 21 oct. 2008 à 00:56
salut
superbe ton code , Patrice
merci 10/10
foufidou
Messages postés156Date d'inscriptionmardi 31 août 2004StatutMembreDernière intervention21 mai 2015 7 oct. 2008 à 16:48
j'arrive pas à ouvrir le projet carrement !!!!
j'ai le message : "l'application n'est pas installée correctement" en cliquant sur le .sln.
cs_Patrice99
Messages postés1221Date d'inscriptionjeudi 23 août 2001StatutMembreDernière intervention 9 septembre 2018 24 sept. 2008 à 08:30
Il faut renommer XL2Csv._exe_ en XL2Csv.exe (il faut afficher les extensions de fichier pour pouvoir renommer l'extension), le reste est expliqué dans la doc.
JohnDiffool
Messages postés1Date d'inscriptionmardi 23 septembre 2008StatutMembreDernière intervention23 septembre 2008 23 sept. 2008 à 20:16
Excusez le béotien que je suis mais, comment fait on fonctionner ce programme ?(le .exe du Zip m'apparaît
cs_Patrice99
Messages postés1221Date d'inscriptionjeudi 23 août 2001StatutMembreDernière intervention 9 septembre 2018 Modifié le 2 oct. 2017 à 12:41
Pardon j'ai du oublié ton commentaire, est-ce que tu peux m'envoyer ton fichier Excel ici pour que je le teste : xxx@xxx.fr
sausteen
Messages postés1Date d'inscriptionvendredi 4 janvier 2008StatutMembreDernière intervention 4 janvier 2008 4 janv. 2008 à 10:33
Ne marche pas sur mon environnement, voici les 2 messages d'erreurs que j'obtiens:
---------------------------
XL2Csv
---------------------------
Fonction : bLireSourceODBC
SQL : Select * From ['Cover Sheet$']
Chaîne de connexion : Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\PIRConventional-FINAL.xls;Extended Properties="Excel 8.0;";
Certains champs sont peut-être introuvables, ou bien :
Trop de champs définis.
---------------------------
OK
---------------------------
---------------------------
XL2Csv
---------------------------
Erreur ADO : Trop de champs définis.
Numéro : -2147467259 (80004005)
Erreur Jet : 3190
Cause possible : Le pilote ODBC spécifié n'est pas installé sur ce poste.
---------------------------
OK
---------------------------
cs_Patrice99
Messages postés1221Date d'inscriptionjeudi 23 août 2001StatutMembreDernière intervention 9 septembre 2018 4 janv. 2008 à 08:28
Cela ne fonctionne certes pas, mais j'ai mis la solution juste après :
Dim sArg0$ = Microsoft.VisualBasic.Interaction.Command
Dim asArgs$() = asArgLigneCmd(sArg0)
iNbArguments = UBound(asArgs) + 1
...
manulegosny
Messages postés18Date d'inscriptionjeudi 30 mars 2006StatutMembreDernière intervention 4 janvier 2009 3 janv. 2008 à 21:39
" ' Cette fct ne marche pas avec des chemins contenant des espaces, même entre guillemets"
24 sept. 2017 à 11:05
21 oct. 2008 à 00:56
superbe ton code , Patrice
merci 10/10
7 oct. 2008 à 16:48
j'ai le message : "l'application n'est pas installée correctement" en cliquant sur le .sln.
24 sept. 2008 à 08:30
23 sept. 2008 à 20:16
Modifié le 2 oct. 2017 à 12:41
4 janv. 2008 à 10:33
---------------------------
XL2Csv
---------------------------
Fonction : bLireSourceODBC
SQL : Select * From ['Cover Sheet$']
Chaîne de connexion : Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\PIRConventional-FINAL.xls;Extended Properties="Excel 8.0;";
Certains champs sont peut-être introuvables, ou bien :
Trop de champs définis.
---------------------------
OK
---------------------------
---------------------------
XL2Csv
---------------------------
Erreur ADO : Trop de champs définis.
Numéro : -2147467259 (80004005)
Erreur Jet : 3190
Cause possible : Le pilote ODBC spécifié n'est pas installé sur ce poste.
---------------------------
OK
---------------------------
4 janv. 2008 à 08:28
Dim sArg0$ = Microsoft.VisualBasic.Interaction.Command
Dim asArgs$() = asArgLigneCmd(sArg0)
iNbArguments = UBound(asArgs) + 1
...
3 janv. 2008 à 21:39
C'est bien dommage !!