Bonsoir,
j'étais en quête d'un logiciel de comptabilité. Je suis sous dwm ou associé, donc un système light. Après essais de différents programmes, je n'étais pas très satisfait de cela. En ligne de commande, je n'ai pas trouvé quelque chose de simple. Ce que je voulais, c'est avoir un listing par mois mais aussi par catégorie pour avoir une idée et pouvoir comparer un peu par mois. Rien de compliqué donc. Après réflexion, je me suis dit que la compta c'est un peu de stat finalement et je connais R (mooc extrément bien de paris 5 d'ailleurs), du coup je me suis fait un script qui importe un fichier csv, découpe l'objet par mois, fait un listing par mois, le montant par mois et catégorie et le montant total par mois.
Voici un fichier d'exemple : à nommer compte.csv absolument si vous changez le nom, il est à changer dans le script r
Mois;Libellé;Catégorie;Montant
01;Auchan;Courses;-50,5
01;Cinéma;Loisirs;-20,5
01;Musée;Loisirs;-40
01;Leclerc;Courses;-20
01;Salaire G;Paies;2000
02;Salaire M;Paies;3000
02;Théatre;Loisirs;-120
Script r
# Résumé Compte année 2017
# Données de base
compte <- read.csv2("compte.csv")
janvier <- subset(compte, Mois== "1", 1:4)
février <- subset(compte, Mois== "2", 1:4)
mars <- subset(compte, Mois== "2", 1:4)
avril <- subset(compte, Mois== "2", 1:4)
mai <- subset(compte, Mois== "2", 1:4)
juin <- subset(compte, Mois== "2", 1:4)
juillet <- subset(compte, Mois== "2", 1:4)
aout <- subset(compte, Mois== "2", 1:4)
septembre <- subset(compte, Mois== "2", 1:4)
octobre <- subset(compte, Mois== "2", 1:4)
novembre <- subset(compte, Mois== "2", 1:4)
décembre <- subset(compte, Mois== "2", 1:4)
print("Résumé de janvier")
janvier
tapply(janvier$Montant, janvier$Catégorie, sum)
sum(janvier$Montant)
print("---------------------------------------")
print("Résumé de février")
février
tapply(février$Montant, février$Catégorie, sum)
sum(février$Montant)
print("---------------------------------------")
print("Résumé de mars")
mars
tapply(mars$Montant, mars$Catégorie, sum)
sum(mars$Montant)
print("---------------------------------------")
print("Résumé de avril")
avril
tapply(avril$Montant, avril$Catégorie, sum)
sum(avril$Montant)
print("---------------------------------------")
print("Résumé de mai")
mai
tapply(mai$Montant, mai$Catégorie, sum)
sum(mai$Montant)
print("---------------------------------------")
print("Résumé de juin")
juin
tapply(juin$Montant, juin$Catégorie, sum)
sum(juin$Montant)
print("---------------------------------------")
print("Résumé de juillet")
juillet
tapply(juillet$Montant, juillet$Catégorie, sum)
sum(juillet$Montant)
print("---------------------------------------")
print("Résumé de aout")
aout
tapply(aout$Montant, aout$Catégorie, sum)
sum(aout$Montant)
print("---------------------------------------")
print("Résumé de septembre")
septembre
tapply(septembre$Montant, septembre$Catégorie, sum)
sum(septembre$Montant)
print("---------------------------------------")
print("Résumé de octobre")
octobre
tapply(octobre$Montant, octobre$Catégorie, sum)
sum(octobre$Montant)
print("---------------------------------------")
print("Résumé de novembre")
novembre
tapply(novembre$Montant, novembre$Catégorie, sum)
sum(novembre$Montant)
print("---------------------------------------")
print("Résumé de décembre")
décembre
tapply(décembre$Montant, décembre$Catégorie, sum)
sum(décembre$Montant)
print("---------------------------------------")
Le script est à mettre dans le même dossier que le csv
Puis lancer le
On peut mettre dans un fichier texte.
L'apprentissage de R est facilité je trouve par l'emploi de Rstudio qui permet d'autres choses aussi.
Ce truc est histoire de ne pas me prendre la tête mais de pouvoir quand même jeter un coup d'oeil pour certains trucs et de faire un suivi clair
Bon compte