Discussion :

[Nafnlaus]

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 , ou alors, de mettre des petites zones de textes un peu partout, ils sont vraiment taquins ces fournisseurs...

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.

[ruscov]

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

[thelvin]

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

[Doopeijii]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Nafnlaus]

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

[Nafnlaus]

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

Ma fonction est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[Doopeijii]

Quelques indices pour y arriver à venir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Nafnlaus]

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

Merci pour tout !!