Appliquer un code VB sur un fichier Excel depuis Java

Bonjour :)

tout d'abord, je ne sais pas vraiment si je suis au bon endroit pour poser cette question, mais bon, dans le doute, j'ai choisi un forum général..

Alors voilà mon problème : j'utilise JExcel pour pouvoir lire un fichier Excel (fournisseurs de produits) pour après traiter les informations à l'intérieur, et les charger en base de données + sérialisation. La plupart du temps, aucun soucis.

Mais... Certain fournisseur trouvent ça plus pratique de mettre les lignes des tableaux en traçant de vrais objets lignes 8O, ou alors, de mettre des petites zones de textes un peu partout, ils sont vraiment taquins ces fournisseurs... :arf:

Bref, j'ai trouvé un code VB qui permet de supprimer toutes les zones de textes d'un fichier Excel, donc pour l'activer, onglet développeur, macro, copier, coller, et après le petit bouton play.

Mais j'aimerai que ce soit mon programme qui fassent ça.

Le gros soucis, c'est que je ne peux pas ouvrir un feuille qui contient des zones de textes avec JExcel. Donc il faudrait que je puisse appliquer le code VB à la feuille, en l'ouvrant sans utiliser JExcel...

Hum... déjà, merci à ceux qui m'auront suivis jusque là. Donc ma question :
Comment appliquer un code VB à une feuille Excel, le tout en Java ?

Et si quelqu'un pouvait, ne serait-ce que m'indiquer une piste, je suis preneur !!

Merci d'avance !

Nafnlaus.

Je ne sais pas si tu peux appeler ton script avec ton fichier en paramètre?
Si oui, tu peux peut-être essayer ça

Je serais très surpris qu'il existe une implémentation de VBA en Java, avec ou sans les API Excel.

Une solution que j'ai utilisé (moi pour supprimer des fusions) : traduit ton VBA en VBS (de façon à ce que ça ne soit plus une macro mais un script que tu appelle avec ton fichier Excel en paramètre) pis voilà un bout de code pour lancer ça en Java :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

List<String> command = new ArrayList<String>(); command.add("wscript.exe");// ou cscript.exe command.add("D:/chemin_vers_ton_VBS/script.vbs"); command.add("D:/chemin_vers_ton_excel/file.xls"); ProcessBuilder pb = new ProcessBuilder(command); final Process p = pb.start(); final BufferedReader is = new BufferedReader(new InputStreamReader(p.getInputStream())); String line; while ((line = is.readLine()) != null) { ; }

---

En espérant que tu vas pouvoir t'en servir ! ça vaut le coup de s'embêter à traduire du VBA en VBS...

Je vais essayer tout ça cette après-midi ! Merci de vous penchez sur mon problème en tout cas ! :ccool::ccool:

Bon alors, je pense que je vais prendre ta solution Doopeijii, seulement, je connais ni le vba, ni le vbs... Je viens de jeter des yeux sur le net, et... j'ai pas compris grand chose :cry:

Ma fonction est la suivante :

Code:

---

1 2 3 4 5

Sub Suphapes() For Each c In ActiveSheet.Shapes c.Delete Next c End Sub

---

Ça c'est ce que j'exécute depuis Excel, je sais pas pourquoi, mais ça marche. :ccool:

Donc déjà, sur le principe, faudrait que je lui fille un truc en paramètre. J'ai vu ça aussi sur le net :

Code:

---

1 2 3 4 5 6 7 8

Dim xlapp FichierXLS = "c:\fichier.xls" FeuilleXLS = "Feuil1"   Set xlapp = CreateObject("Excel.Application") xlapp.Visible = True xlapp.workbooks.open FichierXLS xlapp.sheets(FeuilleXLS).Activate

---

Donc je peux filer le nom du fichier en paramètre au format String, mais déjà comment le déclarer ? Et de plus, la feuille, je ne connais pas son nom, donc ça serait possible de récupérer son nom, depuis son numéro ? (c'est toujours la première feuille)

Merci d'avance !! :lol:

Quelques indices pour y arriver à venir :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim args, fichier Set args = WScript.Arguments If args.Count <> 1 Then MsgBox "Erreur argument" & args.Count WScript.quit End If fichier = args(0) Set excel = WScript.CreateObject("Excel.Application") excel.Visible = False With excel.Workbooks.Open(fichier) 'la traduction de ton code VBA End With

---

Voilà pour récupérer un argument (moi le nom du fichier en l'occurence). Mais pour être propre il faudrait ajouter des sécurités...

Ensuite un lien que j'ai trouvé utile pour la conversion VBA/VBS :
Par ici !

Merci beaucoup, je vais me pencher là dessus, et je reviens dès que c'est fait !!

Merci pour tout !! :ccool: