Contrairement à d'autres, ne consacrez pas trop de temps et d'efforts au suivi de vos dépenses. Suivez cet article et créez votre propre outil de suivi des revenus et des dépenses. Cet outil accepte vos relevés bancaires au format Excel et les lit ensuite pour vous indiquer où vous avez dépensé le plus.
Préparons l'interface graphique
L'outil a besoin de 3 feuilles. Renommez la feuille 1 en "Panneau de configuration", la feuille 2 en "Résumé" et la feuille 3 en "Base de données". Sur la feuille "Panneau de configuration", créez un champ pour permettre à l'utilisateur de parcourir et de télécharger l'historique des relevés bancaires. Pour définir des balises pour chaque transaction dans votre relevé bancaire, vous devez définir des mots-clés pour chaque onglet. Comme indiqué dans l'image, séparez plusieurs mots-clés par une virgule.
Rendons-le fonctionnel
Importez le script dans un nouveau module. Attachez le script "Import_Bank_Statement" au bouton "Importer" sur la feuille "Control Panel" et le script "Update_Tags" au bouton "Refresh".
Un service innovant
Ajoutez le chemin complet de votre relevé bancaire et importez-le. Toutes les données de votre relevé bancaire seront chargées sur la feuille "Base de données". Le script identifie la liste des balises que vous avez mentionnées sur la feuille "Panneau de configuration". Pour chaque balise répertoriée, les mots-clés correspondants sont lus dans une variable et ils sont divisés à l'aide de la commande SPLIT de VBA. Pour chaque mot-clé séparé par une virgule, le script parcourt toute la base de données et identifie la valeur correspondante pour chaque mot-clé. La valeur finale et totale est alors mise à jour sur la feuille « Récapitulatif » qui alimente l'histogramme.
Scénario:
Sub Import_Bank_Statement()
With Sheets("Database").QueryTables.Add(Connection:= _
"TEXT;" & Sheets("Control Panel").Range("B3").Value _
, Destination:=Sheets("Database").Range("$A$1"))
.Name = "Bank Statement"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Sub Update_Tags()
Dim lr As Long
Dim r As Long
Dim v_string() As String
Dim intcount As Long
Dim rindb As Long
Dim lrindb As Long
Dim v_total As Long
lr = Sheets("Control Panel").Range("K" & Rows.Count).End(xlUp).Row
For r = 3 To lr
v_total = 0
v_string = Split(Sheets("Control Panel").Range("L" & r).Value, ",")
For intcount = LBound(v_string) To UBound(v_string)
lrindb = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row
For rindb = 2 To lrindb
If InStr(UCase(Sheets("Database").Range("B" & rindb).Value), UCase(Trim(v_string(intcount)))) <> 0 Then
v_total = v_total + Sheets("Database").Range("D" & rindb).Value
End If
Next rindb
Next intcount
MsgBox v_total
Sheets("Summary").Range("C" & r + 1).Value = v_total
Next r
End Sub
Modifiez-le
L'outil importe désormais un relevé bancaire unique dans la base de données. Vous pouvez modifier l'outil pour permettre à l'utilisateur de parcourir et de sélectionner un dossier, de rechercher tous les relevés bancaires disponibles et d'importer tous les fichiers dans la base de données. La feuille "Résumé" peut également être modifiée pour afficher les balises et les valeurs pour chaque mois ou semaine. Au lieu de lire toute la base de données, la macro peut être modifiée pour lire des valeurs entre des dates spécifiques.
Solution rapide
Si la feuille "Résumé" est corrompue, vous pouvez essayer de corriger Excel en supprimant la feuille corrompue puis en la recréant dans le même classeur.
Introduction de l'auteur:
Nick Vipond est un expert en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris Mot corrompu et produits logiciels de récupération Outlook. Pour plus d'informations, visitez www.datanumen.com