Associer une macro à son fichier (LibreOffice)
Résolu
Guy72
Messages postés
973
Date d'inscription
Statut
Membre
Dernière intervention
-
Guy72 Messages postés 973 Date d'inscription Statut Membre Dernière intervention -
Guy72 Messages postés 973 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Associer une macro à son fichier (LibreOffice)
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
5 réponses
Bonjour,
J'ai un fichier .csv
J'ai une macro, mais...., je souhaiterais avoir la macro avec mon fichier (sans bouton)
Quand je clic sur "Outils > macro > Exécuter la macro... >, J'ai le message suivant:
"Libre office nécessite un environnement d'exécution Java (JRE) pour exécuter cette tâche.Veuillez installer un JRE et redémarrer LibreOffice"
Je clic sur OK et une autre fenêtre arrive:
"Sélecteur de macro", à gauche il faut cliquer sur Standard > Module1 > exécuter.
Bref, j'e souhaiterais avoir cette macro dans mon fichier et cliquer simplement sur
Exécuter la macro
Voici le fichier et la macro:
https://www.cjoint.com/doc/19_12/ILfoGlwueoz_Backup-B.CSV
J'ai un fichier .csv
J'ai une macro, mais...., je souhaiterais avoir la macro avec mon fichier (sans bouton)
Quand je clic sur "Outils > macro > Exécuter la macro... >, J'ai le message suivant:
"Libre office nécessite un environnement d'exécution Java (JRE) pour exécuter cette tâche.Veuillez installer un JRE et redémarrer LibreOffice"
Je clic sur OK et une autre fenêtre arrive:
"Sélecteur de macro", à gauche il faut cliquer sur Standard > Module1 > exécuter.
Bref, j'e souhaiterais avoir cette macro dans mon fichier et cliquer simplement sur
Exécuter la macro
Voici le fichier et la macro:
https://www.cjoint.com/doc/19_12/ILfoGlwueoz_Backup-B.CSV
Option explicit
Sub Main
dim feuille as object, cellule as object
dim i as long, a as string, jDate as string, jtemps as string
feuille = ThisComponent.sheets(0)
feuille.columns.insertByIndex(1,1)
feuille.getCellByPosition(0, 0).String = "Date"
feuille.getCellByPosition(1, 0).String = "Time"
for i = 1 to 1000
cellule = feuille.getCellByPosition(0, i)
a = cellule.string
if a <> "" then
jDate = left(a, 10)
jDate = join(split(jDate,"/"),"")
feuille.getCellByPosition(0, i).string = jDate
jTemps = mid(a, 12, 5) + "00"
jTemps = join(split(jTemps, ":"),"")
feuille.getCellByPosition(1, i).string = jTemps
end if
next
End Sub
Bonjour
Pour exécuter les macro il faut effectivement java installé et parmétré dans Libre Office
voir là
Pour exécuter les macro il faut effectivement java installé et parmétré dans Libre Office
voir là
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question